#!/usr/bin/perl

#*******************************************#
#   Simple Email Extractor 1.0 by Vrs-hCk   #
#*******************************************#

use HTTP::Request;
use LWP::UserAgent;

#my $target_web   = $ARGV[0];
my $file_name    = 'email.log';

print "\n *************************************\n";
print " *    Simple Email Extractor 1.0     *\n";
print " *             By Vrs-hCk            *\n";
print " *     c0li.m0de.0n - www.c0li.cc    *\n";
print " *************************************\n\n";

print " [+] Enter WEB (without http://) : ";
chomp( my $target_web = <STDIN> );

#if (@ARGV != 1) { &help; exit(); }

#sub help(){
#	print "\n [eMaiL] Use : perl $0 <target>\n";
#}

my $target = "http://".$target_web;
print "\n\n [eMaiL] Checking on $target ...\n\n";
my $request   = HTTP::Request->new(GET=>$target);
my $useragent = LWP::UserAgent->new();
$useragent->timeout(10);
my $response  = $useragent->request($request);
if ($response->is_success) {
	my $res   = $response->content;
	while ($res =~ m/([^":\s<>()\/;]*@[^":\s<>()\/;\.]*.[^":\s<>()\/;]*)/g) {
		my $email = $1;
		open(DAT,">>$file_name") || die(" [eMaiL] Cannot Open File.\n");
		print DAT "$email\n";
		close(DAT);
		print " [eMaiL] $email added.\n";
	}
	print " [eMaiL] Done.\n\n";
}
else { print " [eMaiL] Error, ".$response->status_line."\n\n"; }