Mensajes

aja ni cuenta me habia dado del .cls

Pense en usar un Type pero me parecio medio rebuscado al pedo.
ademas no se si lo lei o estaba borracho que escribir resultados mediante byref es mas rapido que escribirlos como resultado de la funcion.



Y esta bueno esa expresion regular, pero me gusta mas asi
(ya no detecta assword )

Código [Seleccionar] Expandir

(?:(?:[pP]{1})assword:?\s?|nod32key:?\s?)(\w{10})

No tengo ni jodida idea de como hacer que sea case sensitive o no

:O a ver que pruebo y lo añado, gracias.
todavia patino un poco en esto de las regexp



No funciono, necesito que me reconozca
password: asgiaha
password:asgiaha

y eso falla

CHAN CHAN CHAAAAAAN!!

Gracias por la ayuda!!

http://foro.elhacker.net/programacion_visual_basic/parsekeys_reg_exp_limpiar_claves_del_nod32-t362465.0.html

Metele el html raw de casi cuaaaalquier sitio de licencias y esto las limpia

Código (vb) [Seleccionar] Expandir

Option Explicit
'=================================================
' º Nombre    : mParseKeys.bas
' º Version   : 2.0
' º Autor     : Milton Candelero
' º Alias     : ElementalCode
' º Pais      : Argentina
' º Fecha     : 13/OCT/2011
' º Dedicado a: El amor de mi vida
' º Licencia  : GNU PUBLIC LICENCE v.3 (Or higher)
'=================================================
'    This file is part of Open Nod32 Keyfinder.
'
'    Open Nod32 Keyfinder is free software: you can redistribute it and/or modify
'    it under the terms of the GNU General Public License as published by
'    the Free Software Foundation, either version 3 of the License, or any later version.
'
'    Open Nod32 Keyfinder is distributed in the hope that it will be useful,
'    but WITHOUT ANY WARRANTY; without even the implied warranty of
'    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'    GNU General Public License for more details.
'
'    You should have received a copy of the GNU General Public License
'    along with Open Nod32 Keyfinder.  If not, see <http://www.gnu.org/licenses/>.

Function ParseKeys(ByVal sHTML As String, ByRef sUser() As String, ByRef sPass() As String)
    'Constantes para los patterns de busqueda
    Const USERPATTERN As String = "(?:EAV|TRIAL|ESS)-\d{8}"
    Const PASSPATTERN As String = "(?:[pP]?assword:? |[pP]?assword:?|nod32key:)(\w{10})"
    '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.SubMatches(0)
        cP = cP + 1
    Next
   
    'Destruir RegExp para ahorrar memoria y porque queda lindo :D
    Set oREuser = Nothing
    Set oREpass = Nothing
End Function


ese (0) en submatches es el indice por si encontro mas de una coincidencia y no el numero del grupo, cierto?


Creo que lo tengo

El  (0) era el subgrupo

En que lenguaje lo estas haciendo? Deberia ser así

Código [Seleccionar] Expandir

(?:Password:|nod32key:)(\w{10})

Y devolver el grupo, no el match entero

Funcionar funciona.
Lo estoy haciendo en vb6
No estoy seguro de como interpretar los grupos en vb6, ya voy a ver

Uso RegexBuddy para escribirlas y testearlas, me es medio dificil de memoria :S

IRC?

https://es.wikipedia.org/wiki/Internet_Relay_Chat

HOLAAAA

Necesito un poquitin de ayuda con una Reg Exp.

La cosa es asi.
Esta es mi Reg Exp

Código [Seleccionar] Expandir

(?:Password:|nod32key:)\w{10}

y el codigo en si anda perfecto

Peeeero el problema es algo asi.

Esto seria un pedacito de test string.

Código [Seleccionar] Expandir

<p>Username:TRIAL-66572787<br />
nod32key:73e5ah8cp3</p>
<div class="details"><div class="inside"><a href="http://www.nod327.net/2012/05/21/nod32-keys-3.html#comments" title="Comment on [May 22,2012]Fresh nod32 keys">2 Comments</a> so far | <a href="http://www.nod327.net/2012/05/21/nod32-keys-3.html">Read On &raquo;</a></div></div>
<div class="fixed"></div>
</div>
<div class="under">
<span class="categories">Categories: </span><span><a href="http://www.nod327.net/category/nod32-key" title="View all posts in NOD32 key" rel="category tag">NOD32 key</a></span> <span class="tags">Tags: </span><span></span> </div>
</div>
<div class="post" id="post-343">

A lo cual devuelve

Código [Seleccionar] Expandir

nod32key:73e5ah8cp3

Cuaaaaando lo que yo quiero que devuelva es:

Código [Seleccionar] Expandir

73e5ah8cp3




Entonces, hay algun delimitador que diga, busca esto pero no lo incluyas en el resultado?

Gracias por todo

che y el deoxis?
Vean la pag de leandroascierto que tiene muchas cositas lindas tambien

en tema diseño no te sabria decir.
En codigo son completamente diferentes :S

Visual Basic es un lenguaje orientado a EVENTOS.
Mientras que C y por consecuente C++ es orientado a OBJETOS.

Las sintaxis son diferentes y tambien la forma en que "funcionan"