[SRC] Elemental Nod32 Keyfinder [Mi primera RegExp]

[Elemental Code]

Elemental Nod32 Keyfinder!!



Buscate unas clavecitas para el Nod32 / ESET

Descarga Source | Descarga Compilado!

Funciona choreando el source de una web por INET y...
EXPRESIONES REGULARES!!! 

SIII APRENDIII

Mira, mira!!

Código (vb) [Seleccionar] Expandir

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


[raul338]

Bieeeeen!

lindo, lastima que ya no uso nod 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

[CAR3S?]

Buen aporte 
Varias veces vi esos muñequitos, creo que en un stealer tuyo tambien ^^
Que es? xD

[Elemental Code]

Buen aporte 
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

[CAR3S?]

¿¿¿¿¡¡¡¡ Eres rosado Garu !!!!????