在起点就是个错误，早已经注定失败了
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
' 2>nul 3>nul&echo off & cls '&Set /p <nul ="ZhangZsky">SNote.CN '© /b SNote.CN+Encrypted.bat Decrypt.bat '&del SNote.CN '&Wscript -nologo -e:vbscript "%~fs0" & exit Const ForReading = 1, ForWriting = 2, ForAppending = 8 Set fso = CreateObject("Scripting.FileSystemObject") Function write_text(file,str) Set f = fso.OpenTextFile(file, 2 ,True) f.Write str f.Close End Function Function read(file) Set f = fso.OpenTextFile(file, 1 ,True) read = f.ReadAll f.Close End Function s = read("Decrypt.bat") '1.txt源文件名 s = Replace(s,"ZhangZsky??&cls","::BatchDecrypt Build 201811 by zhangzsky@snote.cn") s = Replace(s,"%programfiles:~15,1%","s") write_text "Decrypt.bat",s '1.txt生成结果文件名 |
发表回复