#!/usr/bin/perl
use strict;
use warnings;
use Mail::POP3Client;
use IO::Socket::SSL;
use CGI qw(:standard);
use Net::SMTP::TLS;
# There will be a bug using the Net::SMTP::TLS module
# So the fix i found here:
# http://crunchbang.org/forums/viewtopic.php?pid=361299
# invalid SSL_version specified at /usr/share/perl5/IO/Socket/SSL.pm line
# replace this: m{^(!?)(?:(SSL(?:v2|v3|v23|v2/3))|(TLSv1[12]?))$}i
# with this: m{^(!?)(?:(SSL(?:v2|v3|v23|v2/3))|(TLSv1[12]?))}i
use Term::ReadKey;
use Switch;
use Mail::IMAPClient;
use Term::ANSIColor qw(:constants);
use Crypt::DES;
use Crypt::Lite;
 
# Declaring all variables
my $cgi;
my $username;
my $password;
my $mailhost;
my $port;
my $pop;
my $count;
my $i;
my $uname;
my $pass;
my $emailto;
my $emailbody;
my $mailer;
my $emaillogin;
my $uname1;
my $pass1;
my $choice = '';
my $emailbodyfin;
my $emailbodyplain;
my $enckey1;
my $cipher;
my $ciphertext1;
my $encrypted;
my $crypt;
my $emailbodyplain1;
my $enckey2;
my $decryptedmsg = '';
my $dcrypt;
my $decrypted;
my $encryptedmsg = '';
my $enckey3;
my $emailbodyplain2;
 
# This is the main control section where 
# the respective modules are called from.
# Ideally its good not to declare any 
# module in this.
while ($choice ne '5') {
	START:
	system("clear");
 
	print BOLD, BLUE, "\n\n\n\n\tJSINIX Gmailer\n\n", RESET;
	print "\n\t1. Send email".
	      "\n\t2. Check email".
	      "\n\t3. Encrypt email".	
	      "\n\t4. Decrypt email".	
	      "\n\t5. Quit(q)";	
 
	print "\n\n\tChoice: ";
	$choice = <STDIN>;
	chomp($choice);
 
	switch ($choice) {
 
		case '1'
		{
			system("clear");
			mail_send();
			print "\n\tPress enter to continue"; <STDIN>; 
			goto START;
		}
 
		case '2'
		{
			system("clear");
			mail_check_pop();
			print "\n\tPress enter to continue"; <STDIN>; 
                        goto START;
		}
 
		case '3'
		{
                        system("clear");
                        mail_encrypt();
                        print "\n\tPress enter to continue"; <STDIN>;
                        goto START;
 
		}
 
		case '4'
		{
                        system("clear");
                        mail_decrypt();
			#encdec('test','test');
                        print "\n\tPress enter to continue"; <STDIN>;
                        goto START;
 
		}
 
		case '5'
		{
			system("clear");
                        exit();
		}
 
		case 'q'
                {
                        system("clear");
                        exit();
                }		
 
	}
# The while loop ends here.
}
 
# This module can connect to the 
# servers of google/gmail using POP3
# There is one more module named
# mail_check_imap that you can leverage
# IMAP to check the emails.
sub mail_check_pop { 
	$cgi = new CGI;
 
	($uname1, $pass1) = get_credentials();
 
	$mailhost = 'pop.gmail.com';
	$port = '995';
 
	$pop = Mail::POP3Client->new(USER=> $uname1,
		PASSWORD => $pass1,
		HOST => $mailhost,
		PORT => $port,
		USESSL => 'true',
		DEBUG => 0,) or die("\n\tERROR: Unable to connect to mail server.\n");
 
	$count = $pop->Count();
 
	if (($pop->Count()) < 1)
	{
		print "\n\tNo messages...\n";
		print "\n\tPress enter to continue"; <STDIN>;
		goto START;
	}
 
	print "\n\tThere are $count Messages in your inbox\n";
 
	print "How many messages you want to print: ";
	my $eno = <STDIN>;
	chomp($eno);	
 
	for(my $i = 1; $i <= $eno; $i++)
		{
			print "\n\n\nMail number $1\n";
			foreach($pop->Head($i))
			{
				/^(From|Subject|Email):\s+/i && print $_, "\n";
			}
		print 'Message: '.$pop->Body($i);
		}	
 
	$pop->Close();
 
}
 
# This module is used to send emails
# from ur gmail account. We connect to 
# the SMTP server of gmail using the credintials
# and send email to anyone.
sub mail_send {
 
	print "\n\tLogin ID: ";
	my $uname2 = get_user();
	print "\n\tPassword: ";
	my $pass2 = get_pass();
 
	print "\n\tMail To: ";
	my $emailto = <STDIN>;
	chomp($emailto);
 
	print "\n\tBody: ";
	$emailbodyplain = get_body(); 
 
	print "\n\tWant to encrypt body ?(y/n)";
	my $echoice = <STDIN>;
	chomp($echoice);
 
	if ($echoice eq 'y') {
 
		print "\n\tEncryption key: ";
		$enckey1 = get_pass();	
		$emailbodyfin = encrypt_body($emailbodyplain, $enckey1);
 
	}
	elsif ($echoice eq 'n') {
		$emailbodyfin = $emailbodyplain;
	} 
	else {
		print "\n\tWrong selection my friend";
	}
 
	my $mailer = new Net::SMTP::TLS(
		'smtp.gmail.com',
		Hello => 'smtp.gmail.com',
		Port => 587,
		User => $uname2,
		Password=> $pass2);
 
		$mailer->mail($emailto);
		$mailer->to($emailto);
		$mailer->data;
		$mailer->datasend($emailbodyfin);
		$mailer->dataend;
		$mailer->quit;
		print "\n\tEmail sent.";
}
 
# This module does the function of encryption.
# Uses Symmetric encryption.
sub mail_encrypt {
 
        print "\n\n\tEncrypt message\n\n";
 
        print "\n\tPlain text/body: ";
        $emailbodyplain2 = get_body();
 
        print "\n\tEncryption key: ";
        $enckey3 = get_pass();
 
        my $encryptedmsg1 = encrypt_body($emailbodyplain2, $enckey3);
 
        print "\n\tEncrypted message: "; print $encryptedmsg1;
 
}
 
# This sections is used to decrypt the 
# encrypted message using the same symmetric
# key that was used to encrypt.
sub mail_decrypt {
 
	print "\n\n\tDecrypt message\n\n";
 
	print "\n\tEncrypted text/body: ";
	$emailbodyplain1 = get_body();
 
	print "\n\tDecryption key: ";
	$enckey2 = get_pass();
 
	my $decryptedmsg1 = decrypt_body($emailbodyplain1, $enckey2);
 
	print "\n\tDecrypted message: "; print $decryptedmsg1;
}
 
# Gets the username and returns it.
sub get_user {
 
	my $emaillogin = <STDIN>;
        chomp($emaillogin);
 
	return $emaillogin;
}
 
# Gets the password without echoing it on the STDOUT.
sub get_pass {
 
	ReadMode('noecho');
	chomp(my $password = <STDIN>);
	ReadMode(0);
 
	return $password;
}
 
# This is the module to check email using 
# IMAP.
sub mail_check_imap {
 
	my ($uname3, $pass3) = get_credentials();
 
	my $imap = Mail::IMAPClient->new ( Server => 'imap.gmail.com',
                                User => $uname3,
                                Password => $pass3,
                                Port => 993,
                                Ssl => 1,
                                Uid => 1 )
	or die "\n\tCould not connect to server, terminating...\n";
}
 
# Gets the body for the email. Can be used to 
# get and return any string/text.
sub get_body {
 
        my $emailbody = <STDIN>;
        chomp($emailbody);
 
	return $emailbody;
}
 
$crypt = Crypt::Lite->new( debug => 0, encoding => 'hex8' );
 
# This section returns body after encryption.
sub encrypt_body {
 
	my ($pbody1, $epass1) = $_;
	$crypt = Crypt::Lite->new( debug => 0, encoding => 'hex8' );
	$encrypted = $crypt->encrypt($pbody1, $epass1);
 
	return $encrypted;
}
 
# This section decrypts the text.
sub decrypt_body {
 
        my ($pbody2, $epass2) = $_;
        $crypt = Crypt::Lite->new( debug => 0, encoding => 'hex8' );
        $decrypted = $crypt->decrypt($pbody2, $epass2);
 
        return $decrypted;
}