中国DOS联盟

@ECHO OFF

TITLE 继续安装其他工具----瞿亚设计

C:

CD\TOOLS

ECHO 安装 Windows Update V7

Start/Wait wuv7.exe /Q

ECHO 安装 Windows Messenger 5.1

Start/Wait Messenger.msi /Q

ECHO 安装 Windows Live Messenger 8.5

Start/Wait WLM.msi /Q

Start/Wait wllogin.msi /Q

ECHO 安装 DOS模拟启动盘

Start/Wait dosboot.exe 

ECHO 正在进行优化并删除临时文件...

C:\WINDOWS\regedit /s hotfix.reg

C:\WINDOWS\regedit /s finetune.reg

CD\

FOR /F "DELIMS==" %%a IN (C:\WINDOWS\SYSTEM32\OEMINFO.INI) DO (SET STR=%%a)

SET STR=%STR:~4%

IF %STR% GTR 11 GOTO SKIPINF

ECHO.>>C:\WINDOWS\SYSTEM32\OEMINFO.INI

SET /A STR=%STR%+1

FOR /L %%a IN (%STR%,1,11) DO (ECHO Line%%a="">>C:\WINDOWS\SYSTEM32\OEMINFO.INI)

ECHO Line12=" '''╭⌒╮⌒╮.',''',,','',,','',,',''">>C:\WINDOWS\SYSTEM32\OEMINFO.INI

ECHO Line13=" ╱◥██◣　'''''''''">>C:\WINDOWS\SYSTEM32\OEMINFO.INI

ECHO Line14="︱田︱田田|    安装于 2008-06-21 星期六 ">>C:\WINDOWS\SYSTEM32\OEMINFO.INI

ECHO Line15="╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬">>C:\WINDOWS\SYSTEM32\OEMINFO.INI

:SKIPINF

DEL DPsFnshr.exe

RD /S/Q TOOLS

DEL C:\WINDOWS\*.TMP /Q /F

DEL C:\WINDOWS\KB*.LOG /Q

RD C:\WINDOWS\$hf_mig$\ /S /Q

DEL "C:\Documents and Settings\All Users\「开始」菜单\设定程序访问和默认值.lnk" /Q /F

RD C:\WINDOWS\LastGood.Tmp /S /Q

DEL  >nul 2>nul

del %0

Originally posted by zw19750516 at 2008-6-22 12:42 AM:
你这个加密好像跟书写格式都有关，书写格式有错误就解不出来了，特别是最后一行。

set str1=Joke

for /f "eol=S" %%i in (%~f0) do (set "str1=!str1:~0,-4!,%%i") 

set str1=%str1:,=%

set /p %STR1:~12,3%=<%~f0

call :set %str:~11,3%%str1:~32,1% 2>nul ||goto next

set str1=joke rem 障眼法

set str1=,@,T,%SYSTEMDR,,,,,%str1:~21,2%str1:~3,,:,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

,,)

set str1=%str1:,=%

call :set set 2>nul ||goto next rem 我日在这里就跟你的程序名关联了。。。

Originally posted by quya at 2008-6-22 09:42:
到你解的那一步，还没有跟任何程序名有关。应该可以解到我在19楼提到的那一步。

Originally posted by zw19750516 at 2008-6-22 10:37 AM:

兄弟是不是再仔细看看，到我解的这一步，程序就call :set了，在:set 里第一行命令就是set str1=%0，而且我还知道你这个鬼程序名的最后三个字符是set,你说是不是的？

:set

set str1=%0

    for /f "usebackq delims==" %%i in (`set`) do (set str=%%i

if not !str:~-3!==""  set str1=!str1:~,-4!%%i

)

Originally posted by zw19750516 at 2008-6-22 11:38 AM:
原理我是很清楚，但解起来确实是很麻烦的一件事，:set 部分如下：

:set

set str1=%0

    for /f "usebackq delims==" %%i in (`set`) do (set str=%%i

if not ...