Elemental Nod32 Keyfinder!!
(http://i.imgur.com/0CAPj.jpg)
Buscate unas clavecitas para el Nod32 / ESET
Descarga Source (http://depositfiles.com/files/ulyj3hp2n) | Descarga Compilado! (http://depositfiles.com/files/8izl3t7oe)
Funciona choreando el source de una web por INET y...
EXPRESIONES REGULARES!!! :huh: :huh:
SIII APRENDIII :D
Mira, mira!!
Option Explicit
'====================================
' º Nombre : mParseKeys.cls
' º Version : 1.0
' º Autor : Milton Candelero
' º Alias : ElementalCode
' º Pais : Argentina
' º Fecha : 13/OCT/2011
' º Dedicado a: El amor de mi vida
'====================================
Function ParseKeys(ByVal sHTML As String, ByRef sUser() As String, ByRef sPass() As String)
'Constantes para los patterns de busqueda
Const USERPATTERN As String = "Username:EAV-\d*"
Const PASSPATTERN As String = "Password:\w*"
'Declarar variables para RegExp
Dim oREuser As RegExp
Dim oREpass As RegExp
'Variables para las colecciones de resultados
Dim oMCuser As MatchCollection
Dim oMCpass As MatchCollection
'Variables para las coincidencias
Dim oMuser As Match
Dim oMpass As Match
'Variables para los indices de las strings de salida _
y previamente la cantidad de repeticiones (ahorro variables)
Dim cU As Byte
Dim cP As Byte
'Crear los objetos del RegExp User y analizar
Set oREuser = New RegExp
With oREuser
.Global = True
.Pattern = USERPATTERN
Set oMCuser = .Execute(sHTML)
End With
'Crear los objetos del ExpReg Pass y analizar
Set oREpass = New RegExp
With oREpass
.Global = True
.Pattern = PASSPATTERN
Set oMCpass = .Execute(sHTML)
End With
'Dimensionar el array
cU = oMCuser.Count - 1
ReDim sUser(cU) As String
cU = 0 ' Vuelvo a cero para seguir usando esta variable.
'Guardar Resultados user
For Each oMuser In oMCuser
sUser(cU) = oMuser
cU = cU + 1
Next
'Dimensionar el array
cP = oMCpass.Count - 1
ReDim sPass(cP) As String
cP = 0 ' Vuelvo a cero para seguir usando esta variable.
'Guardar Resultados pass
For Each oMpass In oMCpass
sPass(cP) = oMpass
cP = cP + 1
Next
'Destruir RegExp para ahorrar memoria y porque queda lindo :D
Set oREuser = Nothing
Set oREpass = Nothing
End Function
Bieeeeen! :D :D
lindo, lastima que ya no uso nod :xD En su momento yo habia hecho uno que obtenia la cache de google de... supongo que la misma pagina que usas vos (porque nod bloqueaba esa pagina) y... tambien era usando 3 expresiones regulares :xD
Buen aporte ;D ;D ;D ;D ;D ;D ;D
Varias veces vi esos muñequitos, creo que en un stealer tuyo tambien ^^
Que es? xD
Cita de: nukje en 14 Octubre 2011, 00:26 AM
Buen aporte ;D ;D ;D ;D ;D ;D ;D
Varias veces vi esos muñequitos, creo que en un stealer tuyo tambien ^^
Que es? xD
Kirby, de Nintendo.
Redondo y rosado, igual a mi :D
¿¿¿¿¡¡¡¡ Eres rosado Garu !!!!????
(http://4.bp.blogspot.com/__qnd4ajndwU/R6t-RB76v6I/AAAAAAAAAQ0/ZANWpVqeRJo/s400/majinbuu9.jpg)