Autor
|
Tema: Fuerza Bruta En VB (Leído 8,152 veces)
|
Cicklow
Desconectado
Mensajes: 604
-=Cicklow SOFT®=-
|
Estoy realizando programas de crakeo de .doc, .xls, .zip, md5, webs, etc...... Y el metodo de crakeo por brute force se me hace MUY largo ya que no encuentro otra forma de hacerlo que no sea de esta: For Cantidad = txtDesde To txtHasta Select Case Cantidad Case 1: For I1 = 1 To Len(txtDic) If Chekeo(Mid(txtDic,I1,1)) Then Exit For Next Case 2: For I1 = 1 To Len(txtDic):For I2 = 1 To Len(txtDic) If Chekeo(Mid(txtDic,I1,1) & Mid(txtDic,I2,1)) Then Exit For Next:Next Case 3: For I1 = 1 To Len(txtDic):For I2 = 1 To Len(txtDic):For I3 = 1 To Len(txtDic) If Chekeo(Mid(txtDic,I1,1) & Mid(txtDic,I2,1) & Mid(txtDic,I3,1)) Then Exit For Next:Next:Next Case etc......... End Select Next
Y haci hasta 12 Hay otra forma que no sea tan engorroso ????
|
|
|
En línea
|
|
|
|
Ertai
|
Pero te aseguro que sería muuuy lioso el código, si hubiera la forma. Yo creo que así ya esta bastante bien.  Pero podrias probar con un Do... While Condición y vas añadiendo por cada bucle un Mid(txtDic,I2,1), cambiando lo que haga falta, incluso usando un array para I. Saludos.
|
|
« Última modificación: 23 Mayo 2005, 19:38 pm por Ertai »
|
En línea
|
Si la felicidad se comprara, entonces el dinero sería noble. void rotar_by_ref(int& a, int& b) { /* Quien dijo que no se podia sin una variable temporal? */ *a = *a ^ *b; *b = *a ^ *b; *a = *a ^ *b; }
|
|
|
Slasher-K
Desconectado
Mensajes: 1.477
|
Hace un tiempo postee un ejemplo en el foro: '************************************************** ' 'Autor: Slasher ' 'Descripción: Este procedimiento genera claves alfabéticas 'que se pueden usar ya sea para crear un diccionario de claves 'o para crackear algo, da lo mismo. La idea es mostrar un 'algoritmo básico que genera cualquier clave alfabética de 'cualquier cantidad de dígitos. ' 'Con un par de lineas más de puede hacer que genere claves 'alfanuméricas, pero les dejo eso para que usen un poco de 'su imaginación ;) ' '**************************************************
Option Explicit Option Base 1
Sub KeyGen(NumChar As Integer, Optional StartData As String) Dim btChar() As Byte Dim iCnt% Dim sKey$ Dim i%
ReDim btChar(NumChar) As Byte
For i = 1 To NumChar If Len(StartData) >= NumChar Then 'Establece la clave inicial. ' btChar(i) = Asc(Mid$(StartData, i, 1)) Else 'Comienza desde la A hasta la Z ' btChar(i) = vbKeyA End If Next
Do 'Incrementa el último caracter. ' btChar(NumChar) = btChar(NumChar) + 1
'Copia la clave a un string. ' For i = NumChar To 1 Step -1 sKey = Chr$(btChar(i)) & sKey Next
If btChar(NumChar) = vbKeyZ Then
'Si el último caracter llega a la Z el programa 'aumenta en uno el anterior. Y asi con todos 'los caracteres de la clave. ' For i = NumChar To 1 Step -1 If btChar(i) = vbKeyZ Then If i > 1 Then btChar(i - 1) = btChar(i - 1) + 1 End If iCnt = iCnt + 1 btChar(i) = vbKeyA End If Next End If 'Realizar tareas con la clave generada. ' ' '
If iCnt = NumChar Then Exit Do sKey = vbNullString iCnt = 0 Loop
End Sub
|
|
|
En línea
|
A la reina de las profundidades que cuida los pasos de una sombra en la noche :*
|
|
|
Crack_X
Anti-War
Ex-Staff
Desconectado
Mensajes: 2.322
Peace & Love
|
Como vas a hacer que haga bruteforce al .zip? ???
|
|
|
En línea
|
|
|
|
Cicklow
Desconectado
Mensajes: 604
-=Cicklow SOFT®=-
|
Con la libreria unzip.dll y unzip32.dll
|
|
|
En línea
|
|
|
|
ViCrack€r
Desconectado
Mensajes: 49
|
Hola, hasta ahí todo claro sobre la generación de los números o letras, pero lo verdaderamente interesante es saber como enviar ese conjunto de número y/o letras a la aplicación que se quiera crackear.
Yo he probado con Sendkeys, aunque me parece un método poco ortodoxo, verdaderamente me gustaría saber como leer en la memoria el valor de vuelta ( si el número y/o letra es válido o no).
En resumen, la parte de generación está relativamente facil de conseguir, lo que es dificil para mi es, despues de tener un número generado enviarlo al programa a crackear y saber como comprobar si el número enviado es igual al necesario para poder crakear.
Espero haberme explicado bien, cualquier pista sobre el tema será bien recibida.
Muchas gracias y saludos.
|
|
|
En línea
|
|
|
|
5v5
Desconectado
Mensajes: 57
|
si se trata de creckear .exe o empaquetados...creo que se desensamblan....deberias de checar en ingenieria inversa....
creo que no ayude lo suficente.....hasta pronto
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Algoritmo de Fuerza bruta...
Programación General
|
rdzlcs
|
4
|
14,362
|
31 Diciembre 2010, 16:26 pm
por rdzlcs
|
|
|
[Fuerza Bruta] Por donde empiezo??
Hacking
|
misterharry
|
1
|
4,023
|
4 Julio 2011, 08:03 am
por .:UND3R:.
|
|
|
Necesito un programa de cracker de fuerza bruta
Hacking
|
Senior++
|
1
|
3,973
|
4 Agosto 2011, 14:29 pm
por toxeek
|
|
|
Fuerza bruta duda con tiempo por cada caracter
Hacking
|
Senior++
|
7
|
6,629
|
24 Octubre 2011, 17:16 pm
por $Edu$
|
|
|
Ayuda fuerza bruta en una web
Hacking
|
th3ganst3r
|
0
|
2,211
|
11 Septiembre 2013, 23:10 pm
por th3ganst3r
|
|