Una imagen
El codigo
Código
#!usr/bin/perl #Gmail Inbox 0.1 #Version Tk #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 Tk; use Tk::HList; use Tk::ROText; use GMail::Checker; use HTML::Strip; if ( $^O eq 'MSWin32' ) { use Win32::Console; Win32::Console::Free(); } my $yeahfucktk = MainWindow->new(); $yeahfucktk->title( "Gmail Inbox 0.1 || Coded by Doddy H || [+] Status : <None>"); $yeahfucktk->geometry("870x220+20+20"); $yeahfucktk->resizable( 0, 0 ); my $agen = $yeahfucktk->Scrolled( HList, -columns => 4, -header => 1, -width => 80, -scrollbars => "se" $agen->headerCreate( 0, -text => "ID" ); $agen->headerCreate( 1, -text => "From" ); $agen->headerCreate( 2, -text => "Subject" ); $agen->headerCreate( 3, -text => "Date" ); $agen->bind( "<Double-1>", [ \&yeah ] ); $yeahfucktk->Label( -text => "Gmail Login", -font => "Impact" ) $yeahfucktk->Label( -text => "Username : ", -font => "Impact1" ) $yeahfucktk->Label( -text => "Password : ", -font => "Impact1" ) my $password = $yeahfucktk->Entry( -width => 30, -show => "*" ) $yeahfucktk->Button( -text => "Messages list", -width => 20, -command => \&startnow MainLoop; sub startnow { $agen->delete( "all", 0 ); my $total = total( $username->get, $password->get ); $yeahfucktk->title( "Gmail Inbox 0.1 || Coded by Doddy H || [+] Status : $total messages found" ); $yeahfucktk->update; $yeahfucktk->title( "Gmail Inbox 0.1 || Coded by Doddy H || [+] Status : Getting message $_" ); my ( $from, $asunto, $date ) = getdata( $username->get, $password->get, $_ ); $agen->add($_); $agen->itemCreate( $_, 0, -text => $_ ); $agen->itemCreate( $_, 1, -text => $from ); $agen->itemCreate( $_, 2, -text => $asunto ); $agen->itemCreate( $_, 3, -text => $date ); } $yeahfucktk->title( "Gmail Inbox 0.1 || Coded by Doddy H || [+] Status : <None>"); } 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] ); my $mas = $msg[0]->{headers}; if ( $mas =~ /From: (.*)/ig ) { $from = $1; } if ( $mas =~ /Subject: (.*)/ig ) { $asunto = $1; } if ( $mas =~ /Date: (.*)/ig ) { $date = $1; } } sub yeah { my @ar = $agen->selectionGet(); openmessage( $username->get, $password->get, $ar[0] ); } sub openmessage { my $cons = MainWindow->new(); $cons->geometry("500x350+20+20"); $cons->resizable( 0, 0 ); $cons->title("Reading message"); my $conso = $cons->Scrolled( "ROText", -width => 70, -height => 40, -scrollbars => "e" )->pack(); my $mod_msg = new GMail::Checker( USERNAME => $_[0], PASSWORD => $_[1] ); my @msg = $mod_msg->get_msg( MSG => $_[2] ); $conso->insert( "end", "[+] ID : $_[2]\n" ); my $mas = $msg[0]->{headers}; if ( $mas =~ /From: (.*)/ig ) { my $from = $1; $conso->insert( "end", "[+] From : $from\n" ); } if ( $mas =~ /To: (.*)/ig ) { my $to = $1; $conso->insert( "end", "[+] To : $to\n" ); } if ( $mas =~ /Subject: (.*)/ig ) { my $asunto = $1; $conso->insert( "end", "[+] Subject : $asunto\n" ); } if ( $mas =~ /Date: (.*)/ig ) { my $date = $1; $conso->insert( "end", "[+] Date : $date\n\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); $conso->insert( "end", $body ); } } #The End ?