elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  [P] Generador de Password VB.NET
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [P] Generador de Password VB.NET  (Leído 2,579 veces)
Dunkansdk

Desconectado Desconectado

Mensajes: 25


Ver Perfil
[P] Generador de Password VB.NET
« en: 14 Octubre 2012, 08:13 am »

Tengo un error en el algoritmo y no logro discernir cual es!!! espero la ayuda de todos jajaja

Código
  1. Module PRUEBA
  2.  
  3.    Private DChar() As Char = {
  4.        "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t",
  5.        "u", "v", "w", "x", "y", "z",
  6.        "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T",
  7.        "U", "V", "W", "X", "Y", "Z",
  8.        "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
  9.    }
  10.  
  11.    Dim chrIntent As Integer
  12.    Dim chrPos As Integer
  13.  
  14.    Public Sub initPasswordModule()
  15.  
  16.        chrIntent = 1
  17.        chrPos = 0
  18.  
  19.    End Sub
  20.  
  21.    Public Sub newGetPassword()
  22.        Dim BruteSTR(UBound(DChar)) As Char
  23.        Dim PasswordCracked As Boolean
  24.  
  25.        PasswordCracked = True
  26.        BruteSTR(0) = DChar(0)
  27.  
  28.        Do While PasswordCracked
  29.            GenerateString(BruteSTR, chrPos, chrIntent)
  30.            Debug.Print(BruteSTR & " - ")
  31.            PasswordCracked = False
  32.            Application.DoEvents()
  33.        Loop
  34.  
  35.    End Sub
  36.  
  37.    Private Sub GenerateString(ByRef StrChar() As Char, ByRef cPos As Integer, ByRef cIntent As Integer)
  38.        Dim lastCaracterIndex As Integer
  39.        lastCaracterIndex = cIntent Mod Len(DChar)
  40.  
  41.        If lastCaracterIndex = 0 Then ' Llegamos al ultimo caracter del array => agregamos un nuevo caracter
  42.            cPos = cPos
  43.            StrChar(cPos) = DChar(0)
  44.        Else
  45.            StrChar(cPos) = DChar(lastCaracterIndex) ' Cambiamos el ultimo caracter por el siguiente
  46.        End If
  47.  
  48.        cIntent = cIntent + 1
  49.  
  50.    End Sub
  51.  
  52. End Module

Aquí el error: (Ventana de Inmediato, debug)

Citar
- b - c - d - e - f - g - h - i - j - k - l - m - n - o - p - q - r - s - t - u - v - w - x - y - z - A - B - C - D - E - F - G - H - I - J - K - L - M - N - O - P - Q - R - S - T - U - V - W - X - Y - Z - 0 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - aa - ab - ac - ad - ae - af - ag - ah - ai - aj - ak - al - am - an - ao - ap - aq - ar - as - at - au - av - aw - ax - ay - az - aA - aB - aC - aD - aE - aF - aG - aH - aI - aJ - aK - aL - aM - aN - aO - aP - aQ - aR - aS - aT - aU - aV - aW - aX - aY - aZ - a0 - a1 - a2 - a3 - a4 - a5 - a6 - a7 - a8 - a9 - a - a - a - a - a - a - a - a - a - a - a

Véase los últimos caracteres en rojo. Muchas gracias a todos, espero que me puedan ayudar.

Utilizo VB2010


En línea

Keyen Night


Desconectado Desconectado

Mensajes: 496


Nothing


Ver Perfil
Re: [P] Generador de Password VB.NET
« Respuesta #1 en: 14 Octubre 2012, 20:30 pm »

¿Quieres hacer un modulo para Crackear un Password?, si es así hay muchas formas más fáciles de hacerlo ;)

Haciendo uso de los valores ASCII y la longitud del Password puedes intentar todas las posibilidades, además una contraseña de números y letras minúsculas y mayúsculas de un Length = 8, por ejemplo, puede ser crackeada en menos de un día.

Si por el contrario intentas hacer una contraseña segura, puedes validarla por expresiones regulares, que contenga letras minúsculas, mayúsculas, números y símbolos en la proporción que desees.


« Última modificación: 14 Octubre 2012, 20:35 pm por Keyen Night » En línea

La Fé Mueve Montañas...
                                    ...De Dinero

La programación es más que un trabajo es más que un hobby es una pasión...
Dunkansdk

Desconectado Desconectado

Mensajes: 25


Ver Perfil
Re: [P] Generador de Password VB.NET
« Respuesta #2 en: 15 Octubre 2012, 01:50 am »

Eso lo se! Quiero buscar la forma de solucionar mi problema actual!
En línea

MCKSys Argentina
Moderador Global
***
Desconectado Desconectado

Mensajes: 5.465


Diviértete crackeando, que para eso estamos!


Ver Perfil
Re: [P] Generador de Password VB.NET
« Respuesta #3 en: 15 Octubre 2012, 11:06 am »

Eso lo se! Quiero buscar la forma de solucionar mi problema actual!

Me parece que tu problema es la forma en que intentas solucionar el tema.

Creo que te conviene repensar el algoritmo (la parte de generación del string de password).

Podrías usar algo de lo comentado por Keyen Night...

Saludos!
En línea

MCKSys Argentina

"Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Solucionado]come saco un password de msn cuando esta en remember password??
Mensajería
YANDEL 4 6,615 Último mensaje 24 Junio 2011, 11:42 am
por .:UND3R:.
Generador de musica
.NET (C#, VB.NET, ASP)
Julia13 3 3,548 Último mensaje 26 Junio 2022, 02:16 am
por Serapis
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines