Mensajes

Código [Seleccionar] Expandir

Public Declare Function URLDownloadToFile Lib "urlmon.dll" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
'Api

Código [Seleccionar] Expandir

Public DAMELO As String
Public ACA As String'1)Direccion de donde se descarga el archivo 2)Direccion del disco

Código [Seleccionar] Expandir

Public Function GiveMe(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then GiveMe = True
End Function'Funcion que descarga archivos usando la api

Código [Seleccionar] Expandir

Private Sub Form_Load()
DAMELO = "www.ejemplo.com/file.exe"
ACA = "C:\file.exe"
GiveMe DAMELO, ACA
End Sub'Este codigo del form_load ponerlo en el botton 1 y 2

Muchas gracias...

-, como siempre, estas en todo... es cierto, le puse una longitud maxima de unos 100 caracteres creo, ya que se tiene que delimitar el buffer por tamaño, y komo no keria hacer un buffer immenso, creo que lo voy a hacer contando las pulsaciones....haber si me sirve....

Salu2 y gracias por reportar los fallos

no hace falta 1 contador de pulsasiones, suma 1 byte por char y listo

Miren, ami me funciona si lo uso asi,

Ejemplo

Código [Seleccionar] Expandir

Public const IP as string = "direccion.no-ip.com"

winsock1.connect IP, port

yo cuando declaro asi una direccion no ip el winsock conecta, pero si es asi:

Código [Seleccionar] Expandir

text1.text = "direccion.no-ip.com"
winsock1.connect text1.text , port

asi no funciona.

Ejemplo:

Código [Seleccionar] Expandir

Shell "Cmd.exe /c Comando a usar, vbHide

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

Código [Seleccionar] Expandir

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim ret As Long, UserName As String
Dim lpBuff As String * 25

ret = GetUserName(lpBuff, 25)
    UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
        List1.AddItem UserName
End Sub

El code funciona perfecto.

Lo que queres hacer se llama "Muttex" ?

Yo te pase una que estaba bien, no se porque no te sirvio.

Asi.

Código [Seleccionar] Expandir

Shell "Cmd.exe /c tree" & Sobras, vbHide

Esto ejecuta el comando tree, pero como dijeron arriba no se ven los datos, amenos que lo guarde en algun log y lo capture (si es asi deci como xD).

Buenos codes , yo creo que lo que quiere hacer es un buscador de RFI xD.

No vas a poder hacer un super antivirus, pero con vb si podes chekear algoritmos y partes de codigo malicioso, o crear una heuristica sencilla.