alpha2 shellcode解密的vbs脚本

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)