05 abril 2010

FBlock, averigua quién te ha bloqueado en Facebook.

Facebook, la red social de las redes sociales, el meetic.com de los cobardes. El salvaje oeste virtual de los contactos . Allí donde los amigos de nuestros amigos son casi nuestros amigos. Lugar de encuentro, paz y amor.  Bueno, tampoco es para tanto, solo que no se me ocurría otra forma de empezar la entrada.

Como bien es sabido, Facebook permite a los usuarios bloquear contactos al igual que ocurre en sistemas de mensajería instantánea como MSN o Gtalk. Una vez somos bloqueados por indeseables nuestro perfil y cualquier referencia a nuestra persona dejará de mostrarse en el panel de aquel que cometa tan hostil acto.


Como prueba de concepto he desarrollado FBlock un script en perl que permite averiguar quiénes son las personas que nos han bloqueado. Para explicar cómo funciona es necesario entender el sistema de bloqueo de Facebook, así que vamos con un ejemplo.

Si David me bloquea y David y mi amigo Pablo son a su vez amigos, cuando consulte la lista de amigos de Pablo, David no aparecerá. En cambio, si cualquier otro usuario de Facebook consulta la lista de amigos de Pablo y no tiene activada la configuración de privacidad para su lista de amigos (aproximadamente 1/3 la tiene desactivada) si se listará. Por lo que comparando lo que ve mi usuario y lo que ve cualquier otro usuario de Facebook obtendré quienes son las personas que me bloquean siempre y cuando tengamos un amigo en común.


Para ejecutarlo es necesario dos cuentas, de la que se desea averiguar los bloqueados y otra que he denominado espía (¿a qué mola el nombre?) que puede ser una nueva cuenta creada y que no requiere ningún tipo de configuración especial o una cuenta de un coleguilla.

La sintaxis se compone del correo a consultar y su contraseña y del correo de la cuenta espía y su contraseña. La siguiente captura muestra el resultado de una ejecución:



Limitaciones:
  1. La ejecución es lenta debido al elevado número de peticiones que son necesarias. Dependerá del número de nuestros amigos y la línea de la que se disponga. Pero puede tardar entre 8 y 20 minutos.
  2. Las personas que se detectan siempre tendrán que ser amigos de nuestros amigos o no las encontrará.
  3. Los amigos que tengan privacidad activada para su lista de amigos, no se podrán consultar.
  4. No se ofrecen garantías, así que puede tener falsos positivos y a Facebook puede que no le guste la idea y te suspenda la cuenta.
El código del script en perl y un ejecutable de windows en nuestro espacio de Googlecode:

27 comments :

Anónimo dijo...

Perl Underground... ON

my ($mi_user,$mi_pass,$o_user,$o_pass)=($ARGV[0], $ARGV[1], $ARGV[2], $ARGV[3]); # VERY GAY: my ($mi_user,$mi_pass,$o_user,$o_pass,$debug)=@ARGV;
.
.
.
print "$html" if $debug >2; # ¿Comillas en una variable?
.
.
.
$html=""; # undef?
.
.
.
sub getfriends {
my $id=$_[0];
my $postform=$_[1];
my $u=$_[2];
# ufff @_
.
.
.
if (! $id) { print "Algo esta mal con el ID: $id $u:$p\n"; exit 1; } # ¿Qué valor tiene $id en el mensaje?... or die

--
me debes un ppt

Alejandro Ramos dijo...

@Anónimo: jajaja, genial!! muchas gracias!! jajajaj

Migu=-P dijo...

lo he probado..y...no funciona!!va por 210%...

un saludo.

Alejandro Ramos dijo...

@Migu=.P

No es %, si no el número de amiguitos, tienes que esperar a que llegue al mismo número de amigos que tengas!

Un saludo

Migu=-P dijo...

Perdón...al ver que en las capturas siempre se cortaba en el "100" pensé que era tanto por ciento...le echado un vistazo al código por encima al código...y es el número de contactos.
Una dudilla pues mis conocimientos no son tan profundos, no será esto una prueba para ver cuantos tontos caemos y metemos nuestros datos en un aplicación que promete desvelar los secretos más deseados???

Muchas gracias.

Alejandro Ramos dijo...

@Migu=.P: no, tienes el código ahí para que veas que no! puedes estar tranquilo, por lo menos de la versión que hay ahí colgada, otra cosa es que salgan cosas nuevas pronto distintas...

lost-perdidos dijo...

¿No es más fácil buscar el nombre de la persona que crees que te bloquea?

Anónimo dijo...

Enhorabuena! es genial, aunque al ser el primero que lo hace bien, con resultados de verdad, la gente que no entienda el código (la mayoria) desconfiará de que sea otra aplicación robacuentas (ooo algo peor) como las anteriores :/

Miguel dijo...

cómo ejercicio está bien, pero...

"pa qué"?

(desde el punto de vista de un "blog de seguridad", se entiende)

Alejandro Ramos dijo...

@Miguel: acaso un blog de seguridad no es una serie de ejercicios? ¿Solo porque fb decía que no se podía :?

Miguel dijo...

hombre, por callarles la boca, lo que sea! :)

pero alguna utilidad práctica para, por ejemplo, una auditoría? (y lo pregunto sin ironía)

Utilidades PC dijo...

Excelente!! Gracias por el aporte ;=) lo he probado y a mi me ha funcionado realmente bien. Buen programa. Ahora solo falta crear una bonita interfaz gráfica ;=)

Saludos!!

kovi dijo...

Se queda en que tengo 3 amigos con privacidad total activada y no avanza, no me muestra si hay alguno que me bloque

Alejandro Ramos dijo...

@kovi: han cambiado algo el sistema y ha quedado viejo :( efectivamente no funciona.

Un saludo

Anónimo dijo...

me ayudó con http://pasolibre.com acceso

Anonymous dijo...

me ayudó con http://pasolibre.com acceso

Alejandro Ramos dijo...

@Anónimo: jajaja, genial!! muchas gracias!! jajajaj

Anonymous dijo...

Perl Underground... ON

my ($mi_user,$mi_pass,$o_user,$o_pass)=($ARGV[0], $ARGV[1], $ARGV[2], $ARGV[3]); # VERY GAY: my ($mi_user,$mi_pass,$o_user,$o_pass,$debug)=@ARGV;
.
.
.
print "$html" if $debug >2; # ¿Comillas en una variable?
.
.
.
$html=""; # undef?
.
.
.
sub getfriends {
my $id=$_[0];
my $postform=$_[1];
my $u=$_[2];
# ufff @_
.
.
.
if (! $id) { print "Algo esta mal con el ID: $id $u:$p\n"; exit 1; } # ¿Qué valor tiene $id en el mensaje?... or die

--
me debes un ppt

Katherinne Tobar dijo...

iuna  pregunta si me lo han blocjeado0 puedo0 star  yo0 en el face 
aume me lo aingan blackeado0??

Catdog dijo...

¡CUIDADO! con este programa, pide ingresar correo y contraseña de la cuenta, no lo descargen es FAKE

Judith dijo...

Hola!

La verdad es que hay días que te despiertas y percibes que falta algún contacto o que, el número de amigos que tenías la semana pasada, no coincide con el número presentado ahora en la red social, pero... ¿Por qué? ¿Quién ha podido eliminarte de Facebook? Jajaja, en fin, que el otro día descubrí este artículo y resulta que se puede mirar: http://tecnologia.uncomo.com/articulo/como-descubrir-quien-me-ha-eliminado-de-facebook-4601.html

Funciona a la perfección, yo siempre pensé que era mentira y no.

Saludos!

Judith dijo...

Hola!

La verdad es que hay días que te despiertas y percibes que falta algún contacto o que, el número de amigos que tenías la semana pasada, no coincide con el número presentado ahora en la red social, pero... ¿Por qué? ¿Quién ha podido eliminarte de Facebook? Jajaja, en fin, que el otro día descubrí este artículo y resulta que se puede mirar: http://tecnologia.uncomo.com/articulo/como-descubrir-quien-me-ha-eliminado-de-facebook-4601.html

Funciona a la perfección, yo siempre pensé que era mentira y no.

Saludos!

camila dijo...

Narela teodio si entras ha esto lee lo que sos te odio onta tupa,pajera,cochina,macha te odio lo aquera por que me lo bloqueaste jajjajja tonta tupa,pajera

camila dijo...

PPPUUUUTAAAAA PAJERA TE ODIO

angela sanchez dijo...

yo me metia en un perfil de una chabala bastante¡¡¡¡ habia roto con mi novio y el le ponia comentarios, con los celos lo visite bastante, pero despues de un mes me volvi a meter y no la veia ni a ella ni otra chica. abri otra cuenta y tampoco la veia y mi pregunta es ya por intriga, como que no la veo desde ningun ordenador de mi casa, ni desde otras cuentas. se puede bloquear una red¡¡¡

lozano lidia angelica dijo...

dave william

Jack O Lantern dijo...

:/ No me ejecuta ... tengo w8.1