#!/usr/bin/perl -w
# Email grabber!
# Coded by: Saime

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","&s tart=40","&start=50","&start=60","&start=70","&sta rt=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)
}
}

#!/usr/bin/perl
# phpBB version check. Made just for training.
# Coder: Saime
# Usage: perl phpbb.pl http://site.com/forum/
use LWP::UserAgent;
$site = $ARGV[0];
$brows = LWP::UserAgent->new;
$res = $brows->get($site.'/docs/CHANGELOG.html');
if($res->is_success)
{
@ver=$res->content=~/<li><a href="(.*?)\">Changes since (.*?)<\/a><\/li>/i;
$ver[1]=~/(\d+)\.(\d+)\.(\d+)/;
$version=$1.'.'.$2.'.'.scalar $3+1;
print 'Version: '.$version if $version; }