中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 发一个变态程序：美化鼠标右键
作者:
标题: 发一个变态程序：美化鼠标右键 上一主题 | 下一主题
AlexZhang
系统支持





积分 952
发帖 410
注册 2007-2-8
状态 离线
『楼 主』:  发一个变态程序：美化鼠标右键

今天刚考完无机化学，下午没事了，发现在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 ]

2008-1-16 12:37
查看资料  访问主页  发短消息 网志   编辑帖子  回复  引用回复
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 2 楼』:  

再次印证一句话：所有的批处理加密都只能引来高人一笑

2008-1-16 13:42
查看资料  发短消息 网志   编辑帖子  回复  引用回复
qymycom
新手上路





积分 4
发帖 2
注册 2008-1-16
状态 离线
『第 3 楼』:  

只能强顶一下,传DLL上来就好了

[ Last edited by qymycom on 2008-1-16 at 01:54 PM ]

2008-1-16 13:52
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
fastslz
铂金会员

DOS一根葱


积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
『第 4 楼』:  



  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能找到



第一高手    第二高手
我的小站
2008-1-16 14:23
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
knoppix7
银牌会员





积分 1287
发帖 634
注册 2007-5-2
来自 cmd.exe
状态 离线
『第 5 楼』:  

if %input%==del我汗.
输的时候貌似输1==1 echo "%~0"&pause&rem
到这里一解释
if 1==1 echo "%~0"&pause&rem ==del
直接破了....

2008-1-16 16:58
查看资料  发短消息 网志   编辑帖子  回复  引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023