|
|
所谓知己知彼方可百战不殆,要想知道如何解密,就得知道如何加密。我们将通过下面的几个例子来共同学习一些入门知识。
【方案一】ASCII <<=>> VBS
此类加密工具通常是把VBS明文代码转换成ASCII码(十进制或十六进制),加密以后的代码如下EncodeTest.vbs:- HqwStr = Array(97,61,109,115,103,98,111,120,40,34,67,114,97,99,107,32,109,101,33,34,41,13,10,98,61,109,115,103,98,111,120,40,34,67,111,110,103,114,97,116,117,108,97,116,101,115,33,34,41,13,10)
- Execute Num2Str(HqwStr)
- Function Num2Str(HqwStr)
- For I=0 To UBound(HqwStr)
- Num2Str = Num2Str & Chr(HqwStr(I))
- Next
- End Function
复制代码 我们把其中的ASCII码复制出来,保存到一个文本文件中a.txt:- 97,61,109,115,103,98,111,120,40,34,67,114,97,99,107,32,109,101,33,34,41,13,10,98,61,109,115,103,98,111,120,40,34,67,111,110,103,114,97,116,117,108,97,116,101,115,33,34,41,13,10
复制代码 用下面的批处理来解密即可DecodeTest.bat:- @echo off
- ::Batcher@bbs.bathome.net
- ::2009-03-08
- ::批处理解密破解已经加密的VBS(ASCII2VBS)@CMD@XP
- ::http://bbs.bathome.net/thread-3637-1-1.html
- rem 待解密的以逗号分隔的ASCII码(十进制或十六进制)文件
- set "FileASCII=C:\test\a.txt"
- set "FileResult=%temp%\DecResult.txt"
- set ChrNum=
- set /p DecCode=<"%FileASCII%"
- set DecCode=head,%DecCode%,tail
- :Num2Chr
- set DecCode=%DecCode:*,=%
- if "%DecCode%" neq "tail" (
- if "%DecCode%" neq "" (
- call :SplitDec %DecCode%
- goto :Num2Chr
- )
- )
- echo OutPutFile="%FileResult%">"%temp%\Decode.vbs"
- echo Set objFSO=CreateObject("Scripting.FileSystemObject")>>"%temp%\Decode.vbs"
- echo Set objTXT=objFSO.CreateTextFile(OutPutFile,True,False)>>"%temp%\Decode.vbs"
- echo ChrVBS=""%ChrNum%>>"%temp%\Decode.vbs"
- echo objTXT.Write ChrVBS>>"%temp%\Decode.vbs"
- cscript //nologo "%temp%\Decode.vbs"
- start "" "%FileResult%"
- goto:eof
- :SplitDec
- set ChrNum=%ChrNum%+Chr(%1)
复制代码 那么,请问解密以后的内容究竟是啥模样呢?啊,这位朋友问的好!当~当~当~当~,各位观众(请自行模仿周星驰的配音):- a=msgbox("Crack me!")
- b=msgbox("Congratulates!")
复制代码 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
×
|