How to use vbs for alpha2 shellcode decryption

Editor to share with you how to use vbs for alpha2 shellcode decryption, I believe that most people do not know much about it, so share this article for your reference, I hope you can learn a lot after reading this article, let's go to know it!

The code is as follows:

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) above are all the contents of the article "how to use vbs for alpha2 shellcode decryption" Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!