alpha2 shellcode解密的vbs脚本
摘要：复制代码代码如下:DimenTmp,enstr,a,bbenstr=Str2Hex("RHptd4RPFZVOdoVQTrvWTnTp4n6...
复制代码 代码如下:
DimenTmp,enstr,a,bb
enstr=Str2Hex("RHptd4RPFZVOdoVQTrvWTnTp4n6PVN6QTop1tnau1hsU")
Fori=1ToLen(enStr)step6
enTmp=Array(Mid(enStr,i,6)&"00")
sz=Split(enTmp(0),",",-1,1)
a=right(sz(0),1)Xorleft(sz(1),1)
bb=bb&a&right(sz(1),1)
Next
FunctionStr2Hex(ByValstrHex)
DimsHex
Fori=1ToLen(strHex)step1
sHex=sHex&Hex(Asc(Mid(strHex,i,1)))&","
Next
Str2Hex=sHex
EndFunction
FunctionHex2Str(hexStr)
Dimsstr,hextmp
Fori=1ToLen(hexStr)step2
hexTmp=Mid(hexStr,i,2)
IfhexTmp<>"00"Then
sstr=sstr&ChrW("&h"&hexTmp)
EndIf
Next
Hex2Str=sstr
EndFunction
wscript.echoHex2Str(bb)
【alpha2 shellcode解密的vbs脚本】相关文章：
★ 一个可以更换windows xp or 2003的序列号的vbs脚本
上一篇：
vbs屏蔽键盘按键
下一篇：
用vbs实现zip功能的脚本