comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl] Gmail Inbox 0.1

  • 0 Respuestas
  • 1242 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Abril 28, 2012, 11:46:57 am »
Acabo de terminar un simple programa en Perl para poder leer mis mensajes de mi cuenta de correo Gmail , no es nada del otro mundo solo ponen el usuario y la contraseña de la cuenta y el programa carga un menu en el cual pueden listar todos los mensajes o leer un mensaje completo.

El codigo

Código: Perl
  1. #!usr/bin/perl
  2. #Gmail Inbox 0.1
  3. #Coded By Doddy H
  4. #Modules
  5. #ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
  6. #http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
  7. #http://search.cpan.org/~fays/GMail-Checker-1.04/Checker.pm
  8.  
  9. use GMail::Checker;
  10. use HTML::Strip;
  11.  
  12. head();
  13.  
  14. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Username : ";
  15. No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $user = <stdin> );
  16. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Password : ";
  17. No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $pass = <stdin> );
  18.  
  19. while (1) {
  20.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Options\n\n";
  21.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "[1] : Messages list\n";
  22.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "[2] : Read Message\n";
  23.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "[3] : Exit\n\n";
  24.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Option : ";
  25.     No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $op = <stdin> );
  26.  
  27.     if ( $op eq "1" ) {
  28.         listar( $user, $pass );
  29.     }
  30.     elsif ( $op eq "2" ) {
  31.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] ID : ";
  32.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $id = <stdin> );
  33.         getallmsg( $user, $pass, $id );
  34.     }
  35.     elsif ( $op eq "3" ) {
  36.         copyright();
  37.     }
  38.     else {
  39.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[-] Bad Option\n\n";
  40.     }
  41. }
  42.  
  43. sub listar {
  44.  
  45.     my $total = total( $_[0], $_[1] );
  46.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Messages found : $total\n\n";
  47.  
  48.     for my $num ( 1 .. $total ) {
  49.         getdata( $_[0], $_[1], $num );
  50.     }
  51. }
  52.  
  53. sub total {
  54.     my $mod_total = new GMail::Checker( USERNAME => $_[0], PASSWORD => $_[1] );
  55.     my ( $a, $b ) = $mod_total->get_msg_nb_size("TOTAL_MSG");
  56.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $a;
  57. }
  58.  
  59. sub getdata {
  60.  
  61.     my $mod_msg = new GMail::Checker( USERNAME => $_[0], PASSWORD => $_[1] );
  62.  
  63.     my @msg = $mod_msg->get_msg( MSG => $_[2] );
  64.  
  65.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] ID : $_[2]\n\n";
  66.  
  67.     my $mas = $msg[0]->{headers};
  68.  
  69.     if ( $mas =~ /From: (.*)/ig ) {
  70.         my $from = $1;
  71.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] From : $from\n";
  72.     }
  73.  
  74.     if ( $mas =~ /Subject: (.*)/ig ) {
  75.         my $asunto = $1;
  76.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Subject : $asunto\n";
  77.     }
  78.  
  79.     if ( $mas =~ /Date: (.*)/ig ) {
  80.         my $date = $1;
  81.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Date : $date\n";
  82.     }
  83.  
  84. }
  85.  
  86. sub getallmsg {
  87.  
  88.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Reading message\n\n";
  89.  
  90.     my $mod_msg = new GMail::Checker( USERNAME => $_[0], PASSWORD => $_[1] );
  91.  
  92.     my @msg = $mod_msg->get_msg( MSG => $_[2] );
  93.  
  94.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] ID : $_[2]\n\n";
  95.  
  96.     my $mas = $msg[0]->{headers};
  97.  
  98.     if ( $mas =~ /From: (.*)/ig ) {
  99.         my $from = $1;
  100.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] From : $from\n";
  101.     }
  102.  
  103.     if ( $mas =~ /To: (.*)/ig ) {
  104.         my $to = $1;
  105.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] To : $to\n";
  106.     }
  107.  
  108.     if ( $mas =~ /Subject: (.*)/ig ) {
  109.         my $asunto = $1;
  110.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Subject : $asunto\n";
  111.     }
  112.  
  113.     if ( $mas =~ /Date: (.*)/ig ) {
  114.         my $date = $1;
  115.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Date : $date\n";
  116.     }
  117.  
  118.     my $text = $msg[0]->{body};
  119.     if ( $text =~
  120.         /<body class=3D'hmmessage'><div dir=3D'ltr'>(.*?)<\/div><\/body>/sig )
  121.     {
  122.         my $body = $1;
  123.         $body =~ s/<br>/\n/g;
  124.  
  125.         my $uno = HTML::Strip->new( emit_spaces => 1 );
  126.         my $body = $uno->parse($body);
  127.  
  128.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[Body Start]\n\n";
  129.         No tienes permisos para ver links. Registrate o Entra con tu cuenta $body;
  130.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[Body End]\n\n";
  131.     }
  132. }
  133.  
  134. sub head {
  135.     No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta(
  136.  
  137.   @@@@                 @ @    @        @              
  138.  @    @                  @    @        @              
  139.  @                       @    @        @              
  140.  @       @@@ @@   @@@  @ @    @  @ @@  @@@@   @@@  @  @
  141.  @  @@@  @  @  @     @ @ @    @  @@  @ @   @ @   @ @  @
  142.  @    @  @  @  @  @@@@ @ @    @  @   @ @   @ @   @  @@
  143.  @    @  @  @  @ @   @ @ @    @  @   @ @   @ @   @  @@
  144.  @   @@  @  @  @ @   @ @ @    @  @   @ @   @ @   @ @  @
  145.   @@@ @  @  @  @  @@@@ @ @    @  @   @ @@@@   @@@  @  @
  146.  
  147. );
  148. }
  149.  
  150. sub copyright {
  151.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n-- == (C) Doddy Hackman 2012 == --\n\n";
  152.     <stdin>;
  153.     No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  154. }
  155.  
  156. #The End ?
  157.  
  158.  

Ejemplo de uso

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta

  @@@@                 @ @    @        @
 @    @                  @    @        @
 @                       @    @        @
 @       @@@ @@   @@@  @ @    @  @ @@  @@@@   @@@  @  @
 @  @@@  @  @  @     @ @ @    @  @@  @ @   @ @   @ @  @
 @    @  @  @  @  @@@@ @ @    @  @   @ @   @ @   @  @@
 @    @  @  @  @ @   @ @ @    @  @   @ @   @ @   @  @@
 @   @@  @  @  @ @   @ @ @    @  @   @ @   @ @   @ @  @
  @@@ @  @  @  @  @@@@ @ @    @  @   @ @@@@   @@@  @  @



[+] Username : lagartojuancho

[+] Password : juancho123


[+] Options

[1] : Messages list
[2] : Read Message
[3] : Exit

[+] Option : 1

[+] Messages found : 8


[+] ID : 1

[+] From : Van Helsing <lepuke@hotmail.com>
[+] Subject : RE: Server just blew up
[+] Date : Mon, 23 Apr 2012 18:55:33 -0300

[+] ID : 2

[+] From : Van Helsing <lepuke@hotmail.com>
[+] Subject : RE: Server just blew up
[+] Date : Mon, 23 Apr 2012 18:56:59 -0300

[+] ID : 3

[+] From : Van Helsing <lepuke@hotmail.com>
[+] Subject : RE: Server just blew up
[+] Date : Mon, 23 Apr 2012 19:07:20 -0300

[+] ID : 4

[+] From : Van Helsing <lepuke@hotmail.com>
[+] Subject : hola tonton
[+] Date : Mon, 23 Apr 2012 19:26:17 -0300

[+] ID : 5

[+] From : Van Helsing <lepuke@hotmail.com>
[+] Subject : hola tonton
[+] Date : Mon, 23 Apr 2012 19:26:21 -0300

[+] ID : 6

[+] From : Van Helsing <lepuke@hotmail.com>
[+] Subject : ASUNTO
[+] Date : Mon, 23 Apr 2012 19:30:10 -0300

[+] ID : 7

[+] From : Van Helsing <lepuke@hotmail.com>
[+] Subject : ASUNTO FINAL
[+] Date : Tue, 24 Apr 2012 12:39:14 -0300

[+] ID : 8

[+] From : Van Helsing <lepuke@hotmail.com>
[+] Subject : hola
[+] Date : Wed, 25 Apr 2012 14:13:22 -0300


[+] Options

[1] : Messages list
[2] : Read Message
[3] : Exit

[+] Option :
« Última modificación: Marzo 14, 2015, 10:20:40 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3231
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1513
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1307
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1398
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1664
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d