antivirus vb

[djtoxic]

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.com
bye!
pd: gracias x las opiniones!

[JuszR]

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.

[skapunky]

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.

[skapunky]

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

[Castord]

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.

[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

[skapunky]

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.

[WARRIORX]

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!!!

[[VolkS]]

Código [Seleccionar] Expandir

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