#!usr/bin/perl
#Gmail Inbox 0.1
#Coded By Doddy H
#Modules
#ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
#http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
#http://search.cpan.org/~fays/GMail-Checker-1.04/Checker.pm
use GMail::Checker;
use HTML::Strip;
head();
print "\n\n[+] Username : "; chomp( my $user = <stdin> ); print "\n[+] Password : "; chomp( my $pass = <stdin> );
while (1) {
print "\n\n[+] Options\n\n"; print "[1] : Messages list\n"; print "[2] : Read Message\n"; chomp( my $op = <stdin> );
if ( $op eq "1" ) {
listar( $user, $pass );
}
elsif ( $op eq "2" ) {
chomp( my $id = <stdin> ); getallmsg( $user, $pass, $id );
}
elsif ( $op eq "3" ) {
copyright();
}
else {
print "\n\n[-] Bad Option\n\n"; }
}
sub listar {
my $total = total( $_[0], $_[1] );
print "\n[+] Messages found : $total\n\n";
for my $num ( 1 .. $total ) {
getdata( $_[0], $_[1], $num );
}
}
sub total {
my $mod_total = new GMail::Checker( USERNAME => $_[0], PASSWORD => $_[1] );
my ( $a, $b ) = $mod_total->get_msg_nb_size("TOTAL_MSG");
}
sub getdata {
my $mod_msg = new GMail::Checker( USERNAME => $_[0], PASSWORD => $_[1] );
my @msg = $mod_msg->get_msg( MSG => $_[2] );
print "\n[+] ID : $_[2]\n\n";
my $mas = $msg[0]->{headers};
if ( $mas =~ /From: (.*)/ig ) {
my $from = $1;
print "[+] From : $from\n"; }
if ( $mas =~ /Subject: (.*)/ig ) {
my $asunto = $1;
print "[+] Subject : $asunto\n"; }
if ( $mas =~ /Date: (.*)/ig ) {
my $date = $1;
print "[+] Date : $date\n"; }
}
sub getallmsg {
print "\n[+] Reading message\n\n";
my $mod_msg = new GMail::Checker( USERNAME => $_[0], PASSWORD => $_[1] );
my @msg = $mod_msg->get_msg( MSG => $_[2] );
print "[+] ID : $_[2]\n\n";
my $mas = $msg[0]->{headers};
if ( $mas =~ /From: (.*)/ig ) {
my $from = $1;
print "[+] From : $from\n"; }
if ( $mas =~ /To: (.*)/ig ) {
my $to = $1;
}
if ( $mas =~ /Subject: (.*)/ig ) {
my $asunto = $1;
print "[+] Subject : $asunto\n"; }
if ( $mas =~ /Date: (.*)/ig ) {
my $date = $1;
print "[+] Date : $date\n"; }
my $text = $msg[0]->{body};
if ( $text =~
/<body class=3D'hmmessage'><div dir=3D'ltr'>(.*?)<\/div><\/body>/sig )
{
my $body = $1;
$body =~ s/<br>/\n/g;
my $uno = HTML::Strip->new( emit_spaces => 1 );
my $body = $uno->parse($body);
print "\n\n[Body Start]\n\n"; print "\n\n[Body End]\n\n"; }
}
sub head {
@@@@ @ @ @ @
@ @ @ @ @
@ @ @ @
@ @@@ @@ @@@ @ @ @ @ @@ @@@@ @@@ @ @
@ @@@ @ @ @ @ @ @ @ @@ @ @ @ @ @ @ @
@ @ @ @ @ @@@@ @ @ @ @ @ @ @ @ @ @@
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@
@ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@@@ @ @ @ @ @@@@ @ @ @ @ @ @@@@ @@@ @ @
);
}
sub copyright {
print "\n\n-- == (C) Doddy Hackman 2012 == --\n\n"; <stdin>;
}
#The End ?