Ayuda antivirus

Iniciado por rixi15, 4 Enero 2007, 16:28 PM

0 Miembros y 1 Visitante están viendo este tema.

~~

Cita de: rixi15 en  6 Enero 2007, 17:55 PM
mejor usaré el kill y el metodo de kitar del registro
alguien sabe como es para kitar del registro de windows?

Pues con shell + reg delete  (pon reg delete /? en el MS-DOS para mas info  ;)

Cita de: skapunky en  6 Enero 2007, 23:27 PM
Para la protección en tiempo real...lo mas facil en pensar si se quiere hacer algo muy cutre es un Timer...el problema de esto que como el programa tampoko eliminaria el archivo seria como un bucle infinito al comprovar cada x pocos segundos lo que sea...

Una opcion es crear un filtro de processos y permitir o no iniciar los processos...claro esto sabiendo los processos de cada virus se puede realizar pero es una matada.
En visual basic no se me ocurre otra forma  :huh:

Saludos.

No funcionaria, a parte de consumir muchos recursos contra una inyeccion por ejemplo no funcionaria, por no hablar de los q tienen procesos variables y claves del reg variables...

Hay q hacer lo q e dicho: hookear
1S4ludo

rixi15

#21
buena idea llamar a un batch :)
gracias eon y gracias a skapunky por el codigo de fileexist

Ya lo terminé lo pueden descargar en:
http://www.mediafire.com/?4mdtwwy3zoj

sp26

el link esta roto....


pon screenshot por lo menos :P

skapunky

#23
Si que funciona el link !!! Es el siguiente o en el post de arriba tmb esta.

http://www.mediafire.com/?4mdtwwy3zoj

Por cierto, te comento, mata el proceso y despues usa el kill...aqui te dejo un codigo pa matar el proceso, este lo encontre por internet y va estupendo.

Public Sub KillProcess(ByVal processName As String)
       
        On Error GoTo ErrHandler
         
         Dim oWMI
         Dim ret
         Dim sService
         Dim oWMIServices
         Dim oWMIService
         Dim oServices
         Dim oService
         Dim servicename
         
          Set oWMI = GetObject("winmgmts:")
          Set oServices = oWMI.InstancesOf("win32_process")

          For Each oService In oServices
                 
                 servicename = LCase(Trim(CStr(oService.Name) & ""))
                 
                 If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
                    ret = oService.Terminate
                 End If

          Next
         
          Set oServices = Nothing
          Set oWMI = Nothing


ErrHandler:
  Err.Clear
End Sub


Private sub Form_load ()

KillProcess ("Notepad")
End Sub


Intenta que el archivo sea limpiado desde el mismo exe...mirate el registro en vbs que es facil eliminar claves con Regdelete.

Saludos.
Killtrojan Syslog v1.44: ENTRAR

sp26

No, no funciona ...

pense que era el FF yl o hice con IE, pero no funciona tampoco..

skapunky

#25
Yo con el mozilla almenos si me va el link... esta subido en mediafire.

De todas formas aqui el link directo del zip:

http://download109.mediafire.com/yzyzyjykyfag/4mdtwwy3zoj/AZ_Anti-ProAgent.zip

Ahora si les ha de bajar seguro.
Saludos.
Killtrojan Syslog v1.44: ENTRAR

rixi15

si ya tenia un codigo para matar proceso lo malo eske no se cual es el proceso porke no me sale en el control alt sup

sp26

Cita de: rixi15 en  9 Enero 2007, 15:38 PM
si ya tenia un codigo para matar proceso lo malo eske no se cual es el proceso porke no me sale en el control alt sup

¿Que proceso?

puedes poner que elimine el proceso con el nombre del archivo que va a borrar... que espere que termine luego que elimine el archivo, asi de forma secuencial para no causar desordenes.

sp26

¿Estare yo loco o tu archivo esta maldito? Cuando intento abrir el zip me dice que el archivo esta ilegible... mejor lo dejare asi, es una maldicion...  :rolleyes: :rolleyes: :rolleyes: :rolleyes:

rixi15

#29
jejej t voy a dejar una imagen principal del antivirus


saludos