最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

alpha2 shellcode解密的vbs腳本

 更新時間:2008年02月22日 14:29:15   作者:  
'說明:只針對alpha2的TYIIIIIIIIIIIIIIII這樣的加密來解密,沒有做更多的容錯處理,只是解出下載url的exe地址。一般情況下該url的加密字符串是RHptd4之后的字符(去掉最后4個字符)。

復(fù)制代碼 代碼如下:

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) 

相關(guān)文章

最新評論

义马市| 宝坻区| 红安县| 英吉沙县| 自贡市| 故城县| 偃师市| 开远市| 扎赉特旗| 衡阳市| 遂宁市| 竹山县| 大邑县| 和硕县| 普安县| 离岛区| 鄂托克旗| 万全县| 织金县| 临湘市| 廊坊市| 普兰县| 海南省| 东宁县| 水城县| 晋州市| 安阳县| 横山县| 上饶县| 宝坻区| 潍坊市| 阜康市| 二连浩特市| 当涂县| 文昌市| 蒲城县| 双鸭山市| 六盘水市| 大同市| 克东县| 石台县|