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