alpha2 shellcode解密的vbs脚本

2019-10-26 18:00:34

字体：大中小

来源：转载

供稿：网友

复制代码代码如下:

Dim enTmp,enstr,a,bb
enstr=Str2Hex("RHptd4RPFZVOdoVQTrvWTnTp4n6PVN6QTop1tnau1hsU")
For i = 1 To Len(enStr) step 6
   enTmp =Array(Mid(enStr,i,6)&"00")
   sz =Split(enTmp(0), ",", -1, 1)
a= right(sz(0), 1) Xor left(sz(1), 1)
bb=bb& a&right(sz(1), 1)
Next

Function Str2Hex(ByVal strHex)
Dim sHex
For i = 1 To Len(strHex) step 1
sHex = sHex & Hex(Asc(Mid(strHex,i,1)))&","
Next
Str2Hex = sHex
End Function

Function Hex2Str(hexStr)
Dim sstr,hextmp
For i = 1 To Len(hexStr) step 2
   hexTmp = Mid(hexStr,i,2)
   If hexTmp <> "00" Then
    sstr = sstr & ChrW("&h" & hexTmp)
   End If
Next
Hex2Str = sstr
End Function

wscript.echo Hex2Str(bb)

上一篇：把任意文件转成vbs文件的file2vbs的vbs代码