Gianlu-thebest |
|
| Ecco qui un programma che elimina il famoso spyware: RelevantKnowledge. Per testarlo ho avviato il mio antispyware, sono andato in quarantena ho guardato le cartelle e i file infetti(anche il reg.) ho fatto il programma , ho ripristinato questo spyware e ho riavviato il sistema. Doveva comparire un'icona sulla systemtray a forma di un globo ma non è comparsa. ho avviato RK Remove e mi ha trovato il virus ( ora dice non infetto! ) e lo ha eliminato. Ho riavviato il programma e niente spyware! La cartella dello spyware e super nascosta inm quanto è invisibile no si può vedere nemmeno attivando la visualizzazzione dei file e cartelle nascosti. Anche il mio AV ( Avira ) lo ha trovato ma ho fatto ignora. ecco il source: CODICE If FileExists(@ProgramFilesDir&"\RelevantKnowledge") Then
ProcessClose("rlservice.exe")
ProcessClose("rlvknlg.exe")
$domanda = MsgBox(4,"Infetto","Sei infetto dallo Spyware Relevant Knowledge! Vuoi rimuoverlo?")
If $domanda = 7 Then
Exit
Else
ProgressOn("Rimozione","Rimozione In corso...")
FileDelete(@ProgramFilesdir&"\RelevantKnowledge\MSVCP71.DLL")
ProgressSet(10,"Eliminazione File")
FileDelete(@ProgramFilesDir&"\RelevantKnowledge\rlvknlg.exe")
ProgressSet(15)
FileDelete(@ProgramFilesDir&"\RelevantKnowledge\rlservice.exe")
ProgressSet(25,"Eliminazione File")
FileDelete(@ProgramFilesDir&"\RelevantKnowledge\MSVCR71.DLL")
ProgressSet(35,"Eliminazione File")
FileDelete(@ProgramFilesDir&"\RelevantKnowledge\rloci.bin")
ProgressSet(45,"Rimozione Cartelle...")
DirRemove(@ProgramFilesDir&"\RelevantKnowledge",1)
ProgressSet(55,"Rimozione Cartelle")
DirRemove(@HomeDrive&"\Documents and Settings\All Users\Menu Avvio\Programmi\RelevantKnowledge")
ProgressSet(70,"Rimozione Chiavi registro...")
RegDelete("HKEY_CURRENT_USER\SOFTWARE\fcn")
ProgressSet(90)
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{d08d9f98-1c78-4704-87e6-368b0023d831}")
ProgressSet(100)
Sleep(500)
ProgressOff()
If @error Then
MsgBox(0,"Errore","Errore!")
Else
MsgBox(0,"Operazione Completata!","Spyware Rimosso")
EndIf
EndIf
Else
MsgBox(0,"No!","Non sei infetto dallo spyware RelevantKnowledge!")
EndIf download: |
| | |
