comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[SOURCE] Brute Force Dictionary Creator by 79137913

  • 7 Respuestas
  • 7301 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 635
  • Actividad:
    5%
  • Reputación 11
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« en: Agosto 21, 2015, 02:20:50 pm »
HOLA!!!

Bueno... es un creador de diccionarios ni mas ni menos, funciona muy rapido.

Siguiendo... les dejo una captura, el source y el binario.

Es mas para ejemplo que para usarlo, pero si no tenemos nada funciona :P.



Código: Visual Basic
  1. Const Sym As String = "/\!·$%&/()='""¡¿?<>., :;-_*+" 'Simbolos
  2. Const Num As String = "0123456789"                   'Numeros
  3. Const Min As String = "abcdefghijklmnopqrstuvwxyz"   'Letras Minusculas
  4. Const May As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"   'Letras Mayusculas
  5. Const SpL As String = "áéíóúàèìòùâêîôûäëïöüçñ"       'Letras Especiales Minusculas
  6. Const SpU As String = "ÁÉÍÓÚÀÈÌÒÙÊÎÔÛÄËÏÖÜÇÑ"       'Letras Especiales Mayusculas
  7. Dim Cad As String                                    'Cadena entera de caracteres
  8. Dim X As Long                                        'Para los Bucles
  9.  
  10. Private Sub Inicio()
  11. Dim Letras() As String
  12. Dim Posiciones() As Long
  13. Dim Palabras() As String
  14. Dim a As Long
  15. Dim CT As Long
  16. Dim CantPos As Long
  17. Dim CantLet As Long
  18.     Letras = CharSplit7913(Cad)
  19.     CantLet = UBound(Letras)
  20.     Open "C:\Dic7913.txt" For Output As #1
  21.     Close #1
  22.     ReDim Palabras(1000)
  23.     For a = 0 To Val(MinMaxL(1).Text) - Val(MinMaxL(0).Text)
  24.         CantPos = MinMaxL(0) + a - 1
  25.         ReDim Posiciones(CantPos)
  26.         Do
  27.         For X = 0 To CantPos
  28.             Palabras(CT) = Palabras(CT) & Letras(Posiciones(X))
  29.         Next
  30.         CT = CT + 1
  31.         Posiciones(0) = Posiciones(0) + 1
  32.         For X = 0 To CantPos - 1
  33.             If Posiciones(X) > CantLet Then Posiciones(X) = 0: Posiciones(X + 1) = Posiciones(X + 1) + 1
  34.         Next
  35.         If CT = 1001 Then
  36.             Open "C:\Dic7913.txt" For Append As #1
  37.                 For X = 0 To 1000
  38.                     Print #1, Palabras(X)
  39.                 Next
  40.             Close #1
  41.             ReDim Palabras(1000)
  42.             CT = 0
  43.         End If
  44.         If Posiciones(CantPos) = CantLet + 1 Then GoTo Terminado
  45.         Loop
  46. Terminado:
  47.     Next
  48.     If CT <> 0 Then
  49.         Open "C:\Dic7913.txt" For Append As #1
  50.             For X = 0 To CT
  51.                 Print #1, Palabras(X)
  52.             Next
  53.         Close #1
  54.         CT = 0
  55.     End If
  56.     MsgBox "Terminado", vbInformation, "Atencion"
  57. End Sub
  58.  
  59. Private Sub Caracteres_Click(Index As Integer)
  60.     'Limita el checkbox de los caracteres extra si el cuadro de texto esta vacio
  61.    If Index = 6 And Len(ExtraCHR.Text) = 0 Then Caracteres(6).Value = 0: MsgBox "El cuadro de texto de caracteres extra debe tener al menos un caracter", vbCritical, "Error"
  62. End Sub
  63.  
  64. Private Sub Go_Click()
  65. Dim FlagCheck As Boolean
  66.     'Comprobacion de los minimos y maximos de longitud
  67.    If Val(MinMaxL(0).Text) = 0 Then MsgBox "El minimo de longitud no puede ser cero", vbCritical, "Error": Exit Sub
  68.     If Val(MinMaxL(1).Text) = 0 Then MsgBox "El maximo de longitud no puede ser cero", vbCritical, "Error": Exit Sub
  69.     If Val(MinMaxL(0).Text) - Val(MinMaxL(1).Text) > 0 Then MsgBox "El maximo de longitud no puede ser menor que el minimo", vbCritical, "Error": Exit Sub
  70.     'Comprobacion de los checkboxes, minimo uno debe estar tildado
  71.    For X = 0 To 6
  72.         If Caracteres(X).Value = 1 Then FlagCheck = True
  73.     Next
  74.     If FlagCheck = False Then MsgBox "Seleccione primero con que caracteres quiere hacer el diccionario", vbCritical, "Error": Exit Sub
  75.     Cad = vbNullString 'Vacio el string Cad por si estaba lleno
  76.    'Lleno cad con la seleccion del usuario
  77.    If Caracteres(0).Value = 1 Then Cad = Num
  78.     If Caracteres(1).Value = 1 Then Cad = Cad & Sym
  79.     If Caracteres(2).Value = 1 Then Cad = Cad & Min
  80.     If Caracteres(3).Value = 1 Then Cad = Cad & Max
  81.     If Caracteres(4).Value = 1 Then Cad = Cad & SpL
  82.     If Caracteres(5).Value = 1 Then Cad = Cad & SpU
  83.     If Caracteres(6).Value = 1 Then Cad = Cad & ExtraCHR.Text
  84.     MsgBox "El Proceso esta por Comenzar, esto podria tardar mucho tiempo para frenarlo presione Ctrl+Shift+Esc y termine el proceso, el diccionario quedara incompleto (este se guarda en c:\Dic7913.txt)", vbInformation, "Atencion - Por Comenzar"
  85.     Call Inicio ' llamo al inicio de proceso
  86. End Sub
  87.  
  88. Private Sub MinMaxL_KeyPress(Index As Integer, KeyAscii As Integer)
  89.     If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 'Verifica que solo se ingresen numeros en el desde hasta.
  90. End Sub
  91.  
  92. Private Function CharSplit7913(expression As String) As String()
  93.     Dim lExp     As Long
  94.     Dim ExpB()   As Byte
  95.     Dim AuxArr() As String
  96.     ExpB = expression
  97.     lExp = UBound(ExpB)
  98.     ReDim AuxArr(lExp)
  99.     For X = 0 To lExp Step 2
  100.         AuxArr(X / 2) = ChrW(ExpB(X))
  101.     Next
  102.     ReDim Preserve AuxArr(Int(lExp / 2))
  103.     CharSplit7913 = AuxArr
  104. End Function
  105.  

Descargar Source y Binario:
No tienes permisos para ver links. Registrate o Entra con tu cuenta

GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scout Team*                                                   No tienes permisos para ver links. Registrate o Entra con tu cuenta

Desconectado COMAND

  • *
  • Underc0der
  • Mensajes: 1
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« Respuesta #1 en: Septiembre 01, 2015, 09:32:30 am »
Gracias, para mí va a ser muy útil.

Desconectado Flamer

  • *
  • Underc0der
  • Mensajes: 25
  • Actividad:
    3.33%
  • Reputación 2
    • Ver Perfil
    • http://elblogdeflamer.blogspot.mx/
« Respuesta #2 en: Septiembre 08, 2016, 10:55:55 pm »
Cuanto tardaría en hacer un diccionario de longitud 8

saludos flamer y no se traba la ventana del programa
Mi Canal De Youtube


No tienes permisos para ver links. Registrate o Entra con tu cuenta


Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 635
  • Actividad:
    5%
  • Reputación 11
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« Respuesta #3 en: Septiembre 09, 2016, 08:23:44 am »
HOLA!!!

@No tienes permisos para ver links. Registrate o Entra con tu cuenta :
Eso dependerá de 3 factores:
 - Cantidad de caracteres utilizados (si usamos mas tarda mas)
 - Velocidad de escritura del disco (un HDD sera mucho mas lento que un SSD)
 - Velocidad de tu procesador (este debería ser el que menos influye, pero si las condiciones anteriores son iguales en 2 sistemas el que tenga mejor procesador terminará primero)

Por ende no se puede calcular.

P.D: en cuanto a lo que decis de "no se traba la ventana" supongo que queres decir lo contrario es decir "se traba la ventana" es por que tu procesador esta trabajando al máximo, dejalo y cuando termine todo funcionará.

P.D2: aunque no lo parezca este programa en Visual Basic ha demostrado ser mas veloz que algoritmos similares en C, por ende recomiendo su uso.


GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scout Team*                                                   No tienes permisos para ver links. Registrate o Entra con tu cuenta

Desconectado Flamer

  • *
  • Underc0der
  • Mensajes: 25
  • Actividad:
    3.33%
  • Reputación 2
    • Ver Perfil
    • http://elblogdeflamer.blogspot.mx/
« Respuesta #4 en: Septiembre 09, 2016, 12:12:37 pm »
Creo que puedes usar un hilo para que la ventana no se trabe y siga funcionando bien, te digo esto por que hace poco estuve realizando un programa y tuve que realizar un hilo para que la ventana siguiera funcionando


saludos Flamer y solo le pasas todo el proceso al hilo
Mi Canal De Youtube


No tienes permisos para ver links. Registrate o Entra con tu cuenta


Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 635
  • Actividad:
    5%
  • Reputación 11
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« Respuesta #5 en: Septiembre 09, 2016, 03:30:55 pm »
HOLA!!!

@No tienes permisos para ver links. Registrate o Entra con tu cuenta:
Podria haber hecho que la ventana no se trabe de dos modos:
1- Usando hilos (lo cual es muy inestable[en vb6] y consideradamente mas lento).
2- Liberando el procesador de vez en cuando (reduciendo el rendimiento y velocidad de la aplicacion).

Haz comparativas, se freeza todo pero es mas veloz que la mayoria.

GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scout Team*                                                   No tienes permisos para ver links. Registrate o Entra con tu cuenta

Desconectado GGZ

  • *
  • Underc0der
  • Mensajes: 51
  • Actividad:
    0%
  • Reputación 0
  • COME AT ME BRAAAAH.
    • Ver Perfil
« Respuesta #6 en: Enero 08, 2017, 11:34:29 am »
Y, ¿no se podría poner tipo una barra de progreso en algun otro lado?
« Última modificación: Enero 08, 2017, 11:36:04 am por GGZ »

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 635
  • Actividad:
    5%
  • Reputación 11
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« Respuesta #7 en: Enero 08, 2017, 12:47:29 pm »
HOLA!!!

Si, totalmente, aunque bajaria la performance.

GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scout Team*                                                   No tienes permisos para ver links. Registrate o Entra con tu cuenta

 

¿Te gustó el post? COMPARTILO!



[JUEGO & Source] VIDA : Mantene viva tu Civilizacion de bichitos.

Iniciado por 79137913

Respuestas: 6
Vistas: 2649
Último mensaje Febrero 15, 2016, 08:29:17 am
por 79137913
[Source] Aplicacion google hacking

Iniciado por wizardsec

Respuestas: 4
Vistas: 2677
Último mensaje Diciembre 23, 2017, 03:19:03 pm
por Locux