标题: 发一个变态程序:美化鼠标右键
[打印本页]
作者: AlexZhang
时间: 2008-1-16 12:37
标题: 发一个变态程序:美化鼠标右键
今天刚考完无机化学,下午没事了,发现在dos吧有人发了个
ad 我删掉以后顺便下载下来了 先peid发现是用delphi写的(delphi?!!很明显是cmd啊!)
开始怀疑这个东西
dump出来内存,没发现脚本 -_-P
于是乎我很郁闷的去了下%temp% 发现就藏在这里!(用peid dump内存在%temp%放着呢)
在那里发现了两个shr属性的bat -_-p
发来给大家看看 同时顺便bs下他
::dumped by Alex Cheung
@shift 1
@echo off
color 5f
mode con:cols=80 lines=26
title 右键菜单图片设置V3.0 美化鼠标右键 美化您的系统
if exist c:\windows\www.sunylw.cn. (
goto soo1
) else (
goto start
)
:start
cls
echo.
echo.
echo.
echo 本软件永久免费,经常更新!
echo.
echo.
echo 喜欢本软件,请经常关注作者网站,有什么问题也可直接到作者网站的论坛上咨询!
echo.
echo 我们将会第一时间回复您的!网址:http://sunylw.cn(阳光娱乐网)学习娱乐两不误!
echo.
echo 提示:将首页设置为作者网站后,将不再重复显示该画面!
echo 当然如果不设置也可以正常使用本程序的!
echo.
echo.
echo.
set input=y
set /p input= 支持本软件请将作者的网站设置为首页!(y/n)
if %input%==y goto soo
if %input%==Y goto soo
if %input%==n goto aa
if %input%==N goto aa
) else (
goto start
)
:aa
if exist c:\windows\fj888.soho8.cn. (
goto ab
) else (
goto paa
)
:paa
cls
echo.
echo.
echo.
echo 第一次使用本软件请输入本软件授权激活码。
echo.
echo.
echo 激活码请登录作者论坛bbs.sunylw.cn免费获得。
echo.
echo.
echo.
echo.
set input=
set /p input= 请输入激活码后按回车:
if %input%==36874546 goto good
if %input%==05946956016 goto good
if %input%==351265 goto good
if %input%==fj888soho8cn goto good
) else (
goto err
)
:good
echo %input% >>c:\windows\fj888.soho8.cn
goto aa
:ab
cls
echo.
echo.
echo.
color 1f
cls
echo.
echo ╭───────────────────╮
echo ╭=========┤ 欢迎使用 《右键菜单图片设置程序》 ├=========╮
echo │ ╰───────────────────╯ │
echo │ │
echo │ 1.卡通白熊 11.刘亦菲 21.茉莉花 31.南拳妈妈 │
echo │ 2.可爱QQ 12.陈慧琳 22.百合花 32.小仓优子 │
echo │ 3.清纯美眉 13.张靓颖 23.向日葵 33.金喜善 │
echo │ 4.紫色天空 14.陈嘉琪 24.水墨梅花 34.宋允儿 │
echo │ 5.婚纱照片 15.林嘉欣 25.侠客天下 35.圣女天团 │
echo │ 6.SHE青春会社 16.林心如 26.梦幻西游 36.黄圣依 │
echo │ 7.林志玲 17.梁静茹 27.仙境传说 37.蒋勤勤 │
echo │ 8.红玫瑰 18.杨千嬅 28.古天乐 38.黄奕 │
echo │ 9.白玫瑰 19.佘诗曼 29.郁金香 39.王艳 │
echo │10.艺术女神 20.林熙蕾 30.梦幻仙境 40.陈好 │
echo │ │
echo │D.卸载所设置过的右键菜单图片恢复到原来的空白效果 │
echo │Q.退出-退出本程序 DEL.删除激活码 │
echo ╰------------------------------------------------------------╯
echo DIY.自订图片
echo.
echo 作者:方晨曦 QQ:36874546 网址:http://sunylw.cn
echo _________________________________________________________________
echo.
set input=s
set /p input= 请输入以上的相应编号后按回车键:
if %input%==1 goto ab1
if %input%==2 goto ab2
if %input%==3 goto ab3
if %input%==4 goto ab4
if %input%==5 goto ab5
if %input%==6 goto ab6
if %input%==7 goto ab7
if %input%==8 goto ab8
if %input%==9 goto ab9
if %input%==10 goto ab10
if %input%==11 goto ab11
if %input%==12 goto ab12
if %input%==13 goto ab13
if %input%==14 goto ab14
if %input%==15 goto ab15
if %input%==16 goto ab16
if %input%==17 goto ab17
if %input%==18 goto ab18
if %input%==19 goto ab19
if %input%==20 goto ab20
if %input%==21 goto ab21
if %input%==22 goto ab22
if %input%==23 goto ab23
if %input%==24 goto ab24
if %input%==25 goto ab25
if %input%==26 goto ab26
if %input%==27 goto ab27
if %input%==28 goto ab28
if %input%==29 goto ab29
if %input%==30 goto ab30
if %input%==31 goto ab31
if %input%==32 goto ab32
if %input%==33 goto ab33
if %input%==34 goto ab34
if %input%==35 goto ab35
if %input%==36 goto ab36
if %input%==37 goto ab37
if %input%==38 goto ab38
if %input%==39 goto ab39
if %input%==40 goto ab40
if %input%==d goto delt
if %input%==D goto delt
if %input%==q goto quit
if %input%==Q goto quit
if %input%==diy goto diy
if %input%==DIY goto diy
IF %INPUT%==DEL GOTO deler
if %input%==del goto deler
)else (
goto ab
)
:deler
cls
del c:\windows\fj888.soho8.cn /q >nul
cls
echo.
echo.
echo 激活码已删除!
echo.
echo.
echo.
pause
goto aa
:diy
cls
echo.
echo.
echo.
echo.
start http://sunylw.cn/bbs/index.asp?boardid=21
echo 非常感谢广大朋友一直以来对本软件的支持和厚爱!!!
echo.
echo 由于本软件无法支持自设图片功能,请大家把自己喜欢的图片上传到我的论坛上,
echo 由本人免费代劳加入程序中。
echo 上传的图片格式要求:250×400像素左右BMP格式图片,文件大小越小越好。
echo 图片名称要写好。
echo 上传地址:http://sunylw.cn/bbs/index.asp?boardid=21
echo.
echo 有什么意见和建议多多提出,谢谢!
echo.
echo.
pause
goto ab
:error1
cls
color 4f
echo.
echo.
echo.
echo.
echo 对不起!您之前已使用本软件设置过右键图片,请删除后才能换图!
echo.
echo 注意:删除完成后,系统会自动刷新一下才能生效!
echo 刷新后,会自动重新运行本程序可设置别的图片!
echo _________________________________________________________________
echo.
set input=s
set /p input= 是否继续?(Y/N):
if %input%==y goto delt
if %input%==Y goto delt
if %input%==n goto ab
if %input%==N goto ab
) else (
goto error1
)
:pa1
cls
echo.
echo.
echo.
echo 右键菜单图片美化设置已成功卸载!
echo.
echo 请按任意键返回主界面...
echo.
pause>nul
goto ab
:delt
cls
rd c:\windows\sunylw.cn >nul
cls
regsvr32 /u /s c:\windows\contextbg.dll >nul
taskkill /f /im explorer.exe >nul && start explorer.exe
goto pa1
:ab1
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a1.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a1.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab2
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a2.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a2.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab3
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a3.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a3.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab4
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a4.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a4.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab5
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a5.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a5.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab6
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a6.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a6.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab7
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a7.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a7.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab8
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a8.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a8.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab9
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a9.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a9.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab10
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a10.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a10.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab11
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a11.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a11.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab12
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a12.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a12.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab13
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a13.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a13.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab14
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a14.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a14.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab15
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a15.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a15.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab16
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a16.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a16.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab17
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a17.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a17.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab18
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a18.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a18.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab19
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a19.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a19.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab20
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a20.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a20.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab21
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a21.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a21.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab22
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a22.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a22.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab23
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a23.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a23.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab24
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a24.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a24.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab25
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a25.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a25.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab26
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a26.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a26.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab27
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a27.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a27.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab28
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a28.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a28.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab29
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a29.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a29.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab30
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a30.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a30.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab31
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a31.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a31.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab32
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a32.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a32.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab33
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a33.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a33.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab34
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a34.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a34.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab35
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a35.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a35.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab36
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a36.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a36.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab37
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a37.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a37.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab38
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a38.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a38.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab39
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a39.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a39.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:ab40
cls
if exist c:\windows\sunylw.cn. (
goto error1
) else (
md c:\windows\sunylw.cn >nul
ren a40.dll ContextBG.dll >nul
copy ContextBG.dll c:\windows\ /y >nul 2>nul
ren ContextBG.dll a40.dll >nul
regsvr32 /s c:\windows\ContextBG.dll >nul
cls
echo.
echo.
echo 设置完毕!
echo.
echo.
pause
goto ab
)
:soo1
(echo Windows Registry Editor Version 5.00
echo [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
echo "Start Page"="http://sunylw.cn"
echo "1803"=dword:00000000)>"%tmp%\win.reg"
start /w regedit /s "%tmp%\win.reg"
del /a /f "%tmp%\win.reg"
cls
goto aa
:soo
md c:\windows\www.sunylw.cn >nul
(echo Windows Registry Editor Version 5.00
echo [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
echo "Start Page"="http://sunylw.cn"
echo "1803"=dword:00000000)>"%tmp%\win.reg"
start /w regedit /s "%tmp%\win.reg"
del /a /f "%tmp%\win.reg"
cls
goto aa
:err
cls
echo.
echo 请输入正确的激活码!
pause
goto aa
:quit
cls
echo.
echo.
echo.
echo.
start http://sunylw.cn
cls
echo.
echo.
echo.
echo 谢谢支持本软件!
echo.
echo.
echo 有什么问题可以与本软件作者联系。QQ:36874546
echo.
echo http://sunylw.cn
echo.
echo.
echo 欢迎下次再使用,请按任意键退出……
pause>nul
set input=
set svc=
───────────────── 版务记录 ─────────────────
执行:HAT
操作:在帖子标题中增加搜索关键字
说明:原标题"发一个变态程序"不利于论坛搜索
───────────────── 版务记录 ─────────────────
[
Last edited by HAT on 2008-9-26 at 23:55 ]
作者: HAT
时间: 2008-1-16 13:42
再次印证一句话:所有的批处理加密都只能引来高人一笑
作者: qymycom
时间: 2008-1-16 13:52
只能强顶一下,传DLL上来就好了
[
Last edited by qymycom on 2008-1-16 at 01:54 PM ]
作者: fastslz
时间: 2008-1-16 14:23
Quote: |
Originally posted by HAT at 2008-1-16 13:42:
再次印证一句话:所有的批处理加密都只能引来高人一笑 |
|
虽然我不懂delphi,但作者批处理和其它应用水平很低,a01.dll~a40.dll有40个.dll文件,可以想像那文件有多大,其实1个.dll+40个资源文件+ResHacker文件可以小十几倍。
Quote: |
Originally posted by qymycom at 2008-1-16 13:52:
只能强顶一下,传DLL上来就好了
[ Last edited by qymycom on 2008-1-16 at 01:54 PM ] |
|
google 关键词ContextBG.dll能找到
作者: knoppix7
时间: 2008-1-16 16:58
if %input%==del我汗.
输的时候貌似输1==1 echo "%~0"&pause&rem
到这里一解释
if 1==1 echo "%~0"&pause&rem ==del
直接破了....