facebook email scraper

highrider778

Make Money Online
Very Active Members
Joined
Jun 30, 2009
Messages
189
Reaction score
2
Points
17
Age
34
#!/usr/bin/perl
use strict;
use WWW::Mechanize;
use HTTP::Cookies;
use Image::Magick;
use Shell qw[ocrad];

my $username = @ARGV[0];
my $password = @ARGV[1];
my $iurl;#temp var
my $id; #temp var
my $x; #temp var
my $uids="uids"; #path of uid list file
my $idlist="idlist"; #path of output file
my $size=35; #size of email image to download

my $mech = WWW::Mechanize->new();
my $image = Image::Magick->new();

$mech->cookie_jar(HTTP::Cookies->new());

#login
$mech->post("https://login.facebook.com/login.php?m&next=http://m.facebook.com/inbox",{email=>$username,pass=>$password});

#star processing uids
open(UIDS,$uids);
open(IDLS,">>$idlist");
foreach $id (<UIDS>)
{
chomp($id);
$mech->get("http://m.facebook.com/profile.php?id=".$id."&v=info&refid=17");
if(defined ($iurl=$mech->find_image( url_regex => qr/string_image.php/ )))
{
($iurl=$iurl->url_abs())=~s/8.7/$size/;
chomp($iurl);
$x = $image->Read($iurl);
$x = $image->Write(gamma=>0.3,colorspace=>'rgb',filename=>$id.".ppm");
print IDLS "$id,".ocrad("$id.ppm")."\n";
@$image = ();

}
else
{
print IDLS "$id,undefined\n";
}
}

close(UIDS);close(IDLS);


it still requires ocrad, and a couple of CPAN modules (WWW::Mechanize, Image::Magick)
 

shawtyten

Make Money Online
Joined
Feb 9, 2009
Messages
40
Reaction score
0
Points
0
Location
USA
Wow I was just looking for something like this. I'm going to try this out later. Huge thanks
 

FiveAlive

Make Money Online
Very Active Members
Joined
Nov 23, 2009
Messages
333
Reaction score
0
Points
0
Location
England, UK

anywayIcan

Make Money Online
Joined
Sep 29, 2009
Messages
4,294,966,963
Reaction score
21
Points
0
i am asummin you are meaning c.o.o.k.i.e.s.
 

noahmoney

Make Money Online
Joined
Feb 18, 2010
Messages
29
Reaction score
1
Points
0
Wow you guys are out of my league, but with everyone's help i shall soon be a viable participant
 

leedaman

Make Money Online
Very Active Members
Joined
Sep 30, 2009
Messages
93
Reaction score
0
Points
0
ok anyone fancy giving a how to to use this?
 

livid

Make Money Online
Joined
Mar 16, 2010
Messages
10
Reaction score
0
Points
0
Age
40
what is ***** supposed to be?