Autor
|
Tema: antivirus vb (Leído 4,025 veces)
|
djtoxic
Desconectado
Mensajes: 56
SilverDoor, la puerta al destino.
|
tienen razon en un par de cosas... pero podriamos hacer modulos como nod32. un poco en vb, otro en delphi, otro en c++, etc. quien se quiera anotar mande un mail a djtoxic35@hotmail.combye! pd: gracias x las opiniones!
|
|
|
En línea
|
|
|
|
JuszR
Desconectado
Mensajes: 2.866
Programming & RI
|
No, no estoy de acuerdo. ¿Para qué tienes que aprender C++ si no vas a trabajar a bajo nivel y todo lo puedes hacer muy fácil en Vb? Apréndelo cuando lo necesites, no hace falta saber un lenguaje que no uses.
|
|
|
En línea
|
- No programming language is perfect. There is not even a single best language; there are only languages well suited or perhaps poorly suited for particular purposes. [Herbert Mayer]
|
|
|
skapunky
Electronik Engineer &
Colaborador
Desconectado
Mensajes: 3.667
www.killtrojan.net
|
Pues yo creo que es perfectamente viable un antivirus en visual basic..He de reconocer que llevaria mucho trabajo... pero tengo ideas bastantes claras en mente y haciendo pruebas es viable hacer uno.
Refiriendonos a la base de datos del supuesto "antivirus" se puede crear en un archivo .dat cifrado o incluso en unas hojas de excel o cualkier metodo de base de datos.
Lo e provado y funciona a la perfeccion... La cuestion es: detectar, matar proceso, borrar archivos que se droopen y eliminar las claves del registro...
Seguro que no es un super antivirus pero es perfectamente efectivo. Si alguien esta interesado que se pona en contacto conmigo por IM.
Yo he hecho uno que detecta 60 troyanos (solo le falta mata-procesos + borrar archivos) y hace el escaneo en un segundo aprox...
Ya lo colgare cuando lo tenga acabado.
Saludos.
Saludos.
|
|
|
En línea
|
Killtrojan Syslog v1.44: ENTRAR
|
|
|
skapunky
Electronik Engineer &
Colaborador
Desconectado
Mensajes: 3.667
www.killtrojan.net
|
Aqui les dejo una captura del anti-troyano que estoy haciendo en visual basic. Proximamente abrire una web con los datos del proyecto, descarga por si alguien le interessa el tema. Saludos. Web Creada.. interesados contactar por IM
|
|
« Última modificación: 20 Septiembre 2006, 02:16 am por skapunky »
|
En línea
|
Killtrojan Syslog v1.44: ENTRAR
|
|
|
Castord
Desconectado
Mensajes: 60
|
lo que podriamos hacer es crear un antiscript especializado en vbs... todos programamos vbs y juntos podriamos eliminar la amenaza vbs aunque poco o nada nos conviene. pero esto tiene mercado.
|
|
|
En línea
|
Desde Asunción - Paraguay /*Es una ***** pero igual amo mi país!*/
|
|
|
programatrix
|
Lo que se puede hacer en vb es un miniantivirus para ciertos virus(mas que virus, troyanos y gusanos) que tengan mucha propagacion. Quiero decir, cuando el sistema ya está infectado por ese virus, lo comprobamos viendo alguna entrada suya en el registro, cerrar el proceso malicioso, borrar la entrada maliciosa, borrar el ejecutable malicioso y ya está desinfectado. Saludos
|
|
|
En línea
|
|
|
|
skapunky
Electronik Engineer &
Colaborador
Desconectado
Mensajes: 3.667
www.killtrojan.net
|
Esacto...
De todas formas hay antivirus professionales que checan este tipo de cosas... sobre todos muchos de los gratuitos.
No todos los antivirus exploran internamente todos los archivos... De todas formas mencionar que el objetivo de un antivirus es detectar un virus (en mi caso troyanos ) a partir de pistas seguras que dejen estos.
Saludos.
|
|
|
En línea
|
Killtrojan Syslog v1.44: ENTRAR
|
|
|
WARRIORX
Desconectado
Mensajes: 66
Todos para uno y uno para todos.
|
si lo hacen aganlo Free Source Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!! Free Source!!! o planton!!!
|
|
|
En línea
|
»Mira:
|
|
|
[VolkS]
Desconectado
Mensajes: 288
[Argentina]
|
Dim Buffer As String * 65500 If Len(Archivo.Path) = 3 Then Open Archivo.Path & Archivo For Binary As #1 Do While Not EOF(1) Get #1, , Buffer If ContenerString(Buffer, EnsamblarString(Clave)) = True Or ContenerString(Buffer, Clave) = True Then Close #1 Call MsgBox("El archivo es potencialmente peligroso.", vbInformation, "Cuidado") Exit Sub End If Loop Close #1 Call MsgBox("El archivo no parece peligroso.", vbInformation, "Análisis finalizado") Else Open Archivo.Path & "\" & Archivo For Binary As #1 Do While Not EOF(1) Get #1, , Buffer If ContenerString(Buffer, EnsamblarString(Clave)) = True Or ContenerString(Buffer, Clave) = True Then Close #1 Call MsgBox("El archivo es potencialmente peligroso.", vbInformation, "Cuidado") Exit Sub End If Loop Close #1 Call MsgBox("El archivo no parece peligroso.", vbInformation, "Análisis finalizado") End If
Citar Public Function ContenerString(X As String, Y As String) As Boolean Dim n As Long n = 1 Do While n <= (Len(X) - Len(Y) + 1) If LCase(Y) = LCase(Mid(X, n, Len(Y))) Then ContenerString = True Exit Function Else n = n + 1 End If Loop ContenerString = False End Function
Citar Public Function EnsamblarString(X As String) As String Dim n As Long, m As String n = 1 m = "" Do While n <= Len(X) m = m + Mid(X, n, 1) + Chr(0) n = n + 1 Loop EnsamblarString = Left(m, Len(m) - 1) End Function No me acuerdo quien habia echo ese codigo, un user de este foro, y la verdad que funciona bien, me detecto un gusano que el NOD32 no detecto
|
|
|
En línea
|
|
|
|
|
|