Mensajes

[Descargar nuevo:]

Esto es nuevo, ya he tocado una cosa y funciona a las mil maravillas, eso si hay que tener unas cosa encuenta:

- Te detecta si estas infectado despues del 1º reinicio, es decir, si te infectas y abres el programa no te saldra, aunque no importa, ya que el que piense que esta infectado tardara dias en usar mi antivirus.

- Lo de detectar el cliente va genial, creo que no hace falta ni reiniciar ni nada...

Descargar nuevo:
http://www.mediafire.com/?6mnemwgzizi
Mirror 1:
http://www.megaupload.com/?d=JMOX5F39
Mirror 2:
http://rapidshare.com/files/10823832/AVBifrost1.1_www.dimitrix.es_.zip

Espero vuestros comentarios y feliz año nuevo a todos.

El mio lo detecta, y luego borra las claves del registro, pero me voy a basar en las funciones defaults

Con sus padres no me estraña 
Su padre diseñador y su madre instructora de redes.

Bueno, aka lo dejo, pero no esta terminado, por ahora lo detecta si tienes el bifrost y te dice si tienes el server o el cliente, y si tienes el server puedes eliminar unas cosas, bueno mirenlo:

http://download244.mediafire.com/nlkmjtn5noag/5ntzqjzttz5/AVBifrost.zip

PD: La interefaz grafica es lo que peor se me da.

PD1: Ya dejareis vuestros comentarios.

el unico Cisco que conozco es el d los modems, a cual te refieres?

Ok. Creo que hoy tendre algo subido.

Que normalmente la gente pasar de los que tienen 16 años... Por su poco conocimiento en informatica.

Aaa... Creia que hibas ha decir que le pusiera una botella con alcohol y que lo prendiera.

Lo estoy haciendo todo en VB, y lo del grupo de programadores, solo tengo 16 años....

Te retoco el codigo:

En un modulo

Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_CURRENT_CONFIG = &H80000005

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long


Public Function RegComprobarClave(Key As String, Subkey As String) As Boolean
    Dim regRes As Long
    RegOpenKey Key, Subkey, regRes
    If regRes = 0 Then
        RegComprobarClave = False
    Else
        RegComprobarClave = True
    End If
    RegCloseKey regRes
End Function

He eliminado la parte:

Key = LLave(Key)

Y en un botón:

MsgBox RegComprobarClave(HKEY_LOCAL_MACHINE, "Software\Microsoft")

Gracias va genial