如何使用vbs进行alpha2shellcode解密-创新互联

小编给大家分享一下如何使用vbs进行alpha2 shellcode解密，相信大部分人都还不怎么了解，因此分享这篇文章给大家参考一下，希望大家阅读完这篇文章后大有收获，下面让我们一起去了解一下吧！

创新互联是一家专注于做网站、网站制作与策划设计,威信网站建设哪家好?创新互联做网站,专注于网站建设10余年,网设计领域的专业建站公司;建站业务涵盖:威信等地区。威信做网站价格咨询:18982081108

代码如下:

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进行alpha2 shellcode解密”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注创新互联行业资讯频道！

本文名称：如何使用vbs进行alpha2shellcode解密-创新互联
URL分享：http://cdxtjz.cn/article/dhgihh.html