facebook email scraper

Discussion in 'Other' started by highrider778, Oct 10, 2009.

  1. highrider778

    highrider778 Make Money Online Very Active Members

    Joined:
    Jun 30, 2009
    Messages:
    189
    Likes Received:
    2
    Trophy Points:
    18
    #!/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)
     
  2. Kismet

    Kismet Make Money Online

    Joined:
    Sep 29, 2009
    Messages:
    29
    Likes Received:
    0
    Trophy Points:
    0
    Well fook me .... ;)
     
  3. shawtyten

    shawtyten Make Money Online

    Joined:
    Feb 9, 2009
    Messages:
    40
    Likes Received:
    0
    Trophy Points:
    0
    Location:
    USA
    Wow I was just looking for something like this. I'm going to try this out later. Huge thanks
     
  4. GoldenEye

    GoldenEye Make Money Online

    Joined:
    Nov 27, 2009
    Messages:
    54
    Likes Received:
    1
    Trophy Points:
    0
    what does "******" mean in this script ?
     
  5. FiveAlive

    FiveAlive Make Money Online Very Active Members

    Joined:
    Nov 23, 2009
    Messages:
    333
    Likes Received:
    0
    Trophy Points:
    0
    Location:
    England, UK
    I'm gonna take a wild stab in the dark and say it's the word censor blanking out the word ******.

    Edit: Thought that might happen, check this link for info on the part of the code used there and you'll see the word that is censored: http://search.cpan.org/~gaas/libwww-perl-5.834/lib/HTTP/******s.pm
     
  6. anywayIcan

    anywayIcan Make Money Online

    Joined:
    Sep 29, 2009
    Messages:
    4,294,966,974
    Likes Received:
    21
    Trophy Points:
    0
    i am asummin you are meaning c.o.o.k.i.e.s.
     
  7. noahmoney

    noahmoney Make Money Online

    Joined:
    Feb 18, 2010
    Messages:
    29
    Likes Received:
    1
    Trophy Points:
    0
    Wow you guys are out of my league, but with everyone's help i shall soon be a viable participant
     
  8. leedaman

    leedaman Make Money Online Very Active Members

    Joined:
    Sep 30, 2009
    Messages:
    93
    Likes Received:
    0
    Trophy Points:
    0
    ok anyone fancy giving a how to to use this?
     
  9. livid

    livid Make Money Online

    Joined:
    Mar 16, 2010
    Messages:
    10
    Likes Received:
    0
    Trophy Points:
    0
    what is ***** supposed to be?
     
  10. anywayIcan

    anywayIcan Make Money Online

    Joined:
    Sep 29, 2009
    Messages:
    4,294,966,974
    Likes Received:
    21
    Trophy Points:
    0
  11. kidkidkid

    kidkidkid Make Money Online

    Joined:
    Feb 20, 2011
    Messages:
    5
    Likes Received:
    0
    Trophy Points:
    0
    you inspired me to make mad money now, nice man
     

Share This Page