' Questo script eliminerà la backdoor di WinSatan
' program by rleo - rleo@iol.it
' Versione 2 - 27-9-1999
' This program can be used freely, but without modifying any word.

Dim WSHShell
Set WSHShell = Wscript.CreateObject("WScript.Shell")

Sub Cancella_file(filespec)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.DeleteFile(filespec)
End Sub

WSHShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\RegisterServiceBackup"
Cancella_file("C:\windows\fs-backup.exe")
WSHShell.Popup "Backdoor removed, now restart Windows and check that fs-backup.exe has been deleted, otherwise delete it."