A Simple Email Grabber coded in Perl Unknown rwxr-xr-x 0 8/30/2013

Filename	A Simple Email Grabber coded in Perl
Permission	rw-r--r--
Author	Unknown
Date and Time	8/30/2013
Label
Action

Ethical Hacking Institute in Pune
./Arizona Team

This is a supportive Tech for Spear Phishing. You can collect random emails using this script, which can be later used for Spear Phishing. Spear Phishing Detail Practical is Covered in the CEH Module, Which include DNS Injection, DNS Redirection, Port Forwarding and VPN building.

Go through the code and understand the Logical Flow, Once done create your own Program with more advance stuff. If you face any problem while understanding the logical flow you can shoot your questions at instructor@arizonainfotech.com  


Here is the Code:

#!/usr/bin/perl -w
# Email grabber!
# Coded by: Team Arizona
# Website: http://www.arizonainfotech.com

require LWP::UserAgent;
my $connection = LWP::UserAgent->new;
$connection->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.4');
$connection->timeout(10);
my $google = "http://www.google.com/search?hl=en&q="; # The search engine , you can add more , or edit it to another like altavista/search[dot]com/etc ...
my @dorks = shift || ("mailto:*\@aol.com"); # Add the dorks here ....
my @pages = shift || ("&start=","&start=10","&start=20","&start=30","&start=40","&start=50","&start=60","&start=70","&start=80","&start=90","&start=100");

my $file;
request(0);

sub request {
    for(my $count = 0;$count<=$#dorks;$count++){
    my $url = $google . $dorks[$count] . $pages[1] . "$_[0]"; # where the pages is , edit [1] to [2] or [3] , like that up to [10]
    my $response = $connection->get($url);
    my $con = $response->content;

    while($con =~ m/<td class="(.*?)"><font size=-1>(.*?)mailto:(\w*\@\w*\.\w*)(.*?)<span class=a>/g){
    my $email = "$3";
    print "[+] Found email: " . "$email\n";
}
      shift(@dorks);
      request(0)
}
}

www.arizonainfotech.com
CEH CHFI ECSA ENSA CCNA CCNA SECURITY MCITP RHCE CLOUD ANDROID IPHONE NETWORKING HARDWARE TRAINING INSTITUTE IN PUNE, Certified Ethical Hacking, IT Security Training Information Security Traning Courses in Pune, ceh certification in pune, Ethical Hacking Course in Pune