A Simple Email Grabber coded in Perl amazon cc login synchrony, walmart cc capital one
Extreme Hacking | Sadik Shaikh
Advanced Ethical Hacking Institute in Pune
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 sadik.shaikh@extremehacking.org
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/(.*?)mailto:(\w*\@\w*\.\w*)(.*?)/g){
my $email = “$3”;
print “[+] Found email: ” . “$email
”;
}
shift(@dorks);
request(0)
}
}
amazon cc login synchrony walmart cc capital one