如何使用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解密-创新互联
文章路径:http://pwwzsj.com/article/dhgihh.html