Máy tính bị virus BOSS!!!!!

như tiêu đề mày mình bị nhiêm virus
4PNy0St.png


EU1V5t1.png

virus này minh quét thì ko diệt được
virus này theo mình thấy nó copy tên thư mục của file mấy mình hoặc có file
wZPobbH.png

mình đã xóa 1000 lần xóa xong khoản 4 5 phút lại xuất hiên
mong mỗi người chỉ cách khác phục giùm
 

VSupport

Ngây thơ trong tối
Copy đoạn code này vào file txt
Mã:
'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 Boss!!!!!!!.vbs")
'COP.write VBCopy
'Set CAP=fso.CreateTextFile(f1.path & "---\Virus Boss!!!!!!!.vbs")
'CAP.write VBCopy
'Set ATT=fso.GetFolder(f1.Path)
'ATT.Attributes=ATT.Attributes+2
fso.DeleteFile(f1.path & "\Virus Boss!!!!!!!.vbs")
fso.DeleteFile(f1.path & "---\Virus Boss!!!!!!!.vbs")
FolderList(f1.Path)
Next
End sub

Sau đó lưu với file thuocgiai.vbs và click chạy file này sẽ hết thôi :ngamngui:
 

0406

✩✩✩✩
Copy đoạn code này vào file txt
Mã:
'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 Boss!!!!!!!.vbs")
'COP.write VBCopy
'Set CAP=fso.CreateTextFile(f1.path & "---\Virus Boss!!!!!!!.vbs")
'CAP.write VBCopy
'Set ATT=fso.GetFolder(f1.Path)
'ATT.Attributes=ATT.Attributes+2
fso.DeleteFile(f1.path & "\Virus Boss!!!!!!!.vbs")
fso.DeleteFile(f1.path & "---\Virus Boss!!!!!!!.vbs")
FolderList(f1.Path)
Next
End sub

Sau đó lưu với file thuocgiai.vbs và click chạy file này sẽ hết thôi :ngamngui:
hình như virus này bị ai đó troll bằng lệnh code.bat thì phải :))
 

longseto

học tập viên
hãy bạn wa team gium lun cho rồi lân này inbox
gủi file mình chưa biết sư dụng
 

0406

✩✩✩✩
hãy bạn wa team gium lun cho rồi lân này inbox
gủi file mình chưa biết sư dụng
dow file thuốc giải này về chạy là hết nhé :))
[DLL]tenlua.vn/download/0137e129e30369051a/thuocgiai[/DLL]
 

VSupport

Ngây thơ trong tối
Cái này chỉ giúp bạn xóa tất cả các file bị lỗi này thôi. Còn mấu chốt là cái file nguồn để tự động tạo ra các file đó thì phải tìm xem nó ở đâu nhé. Trước khi bị lỗi này bạn có tải phần mềm nào lạ hoặc download, chạy cái gì không :troll:
 

quanltv

Sư phụ của ADMIN
Em đã giúp bạn ấy xoá sạch sẽ không còn 1 file vbs nào, nếu có xoá quá tay không vào được win thì bạn nhớ vào đây comment lại nhé
 

VSupport

Ngây thơ trong tối
Em đã giúp bạn ấy xoá sạch sẽ không còn 1 file vbs nào, nếu có xoá quá tay không vào được win thì bạn nhớ vào đây comment lại nhé
Chia sẻ cách xử lý để mọi người cùng biết đi Quân lờ tờ vờ :troll2:
 
Thật không thể tin nổi, nghịch VBScript thì nên học VBScript trước đi

Virus .vbs hầu như tự show mã nguồn rồi, đọc hiểu VBScript diệt tốt

Loại này vô WinPE xóa là hết
 
Top