• Publicidad

Enviar correo a Gmail

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Enviar correo a Gmail

Notapor BigBear » 2012-02-22 12:37 @567

Tengo los siguientes módulos.

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
use Mail::POP3Client;
use IO::Socket::SSL;
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


He logrado la conexión con la autentificación pero mi duda es cómo enviar un correo a otra cuenta en Gmail. Encontré este post: http://perlenespanol.com/foro/envio-adjunto-gzip-con-smtp-gmail-t6711.html. El problema es que él usa el siguiente módulo:

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
Net::SMTP::TLS
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Y yo necesito hacerlo con los módulos antes mencionados.

¿ Alguien me puede ayudar ?
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Publicidad

Re: Enviar mail a Gmail

Notapor explorer » 2012-02-22 16:30 @729

Si no quieres usar el protocolo TLS, debes usar el protocolo SSL, así que el módulo a usar es el Net::SMTP::SSL que, internamente, usará IO::Socket::SSL.

Ejemplo.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Enviar correo a Gmail

Notapor BigBear » 2012-02-22 18:56 @830

Gracias, explorer. Instalé el módulo necesario pero cuando ejecuto el siguiente el código:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!usr/bin/perl
  2. #http://search.cpan.org/CPAN/authors/id/A/AW/AWESTHOLM/Net-SMTP-TLS-0.12.tar.gz
  3.  
  4. use Net::SMTP::TLS;
  5.  
  6.  
  7. if (not $smtp = Net::SMTP::SSL->new('smtp.gmail.com',
  8.                             Port => 465,
  9.                             Debug => 1)) {
  10.    die "Could not connect to server\n";
  11. }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Me tira el siguiente error

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
Can't locate object method "new" via package "Net::SMTP::SSL" (perhaps you forgo
t to load "Net::SMTP::SSL"?) at D:\Mis documentos NO BORRAR\Desktop\Leviatan\Hac
king\Warfactory V\MailBomber\test.pl line 7.
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


¿ Por qué será ?
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: Enviar correo a Gmail

Notapor creating021 » 2012-02-22 19:24 @850

Estás cargando el módulo Net::SMTP::TLS en vez de Net::SMTP::SSL :D
Expect the worst, is it the least you can do?
Avatar de Usuario
creating021
Perlero frecuente
Perlero frecuente
 
Mensajes: 595
Registrado: 2006-02-23 16:17 @720
Ubicación: Frente al monitor

Re: Enviar correo a Gmail

Notapor BigBear » 2012-02-22 20:50 @910

¡Ufa!, qué error más básico xD.

Bueno, tengo otro problema con el tema del login. El código es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!usr/bin/perl
  2.  
  3. #http://search.cpan.org/~cwest/Net-SMTP-SSL-1.01/lib/Net/SMTP/SSL.pm
  4. #http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
  5. #ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
  6.  
  7. use Net::SMTP::SSL;
  8.  
  9. my $user = "user";
  10. my $pass = "pass";
  11.  
  12. if ($smtp = Net::SMTP::SSL->new(
  13.         "smtp.gmail.com",
  14.         Port  => 465,
  15.         Debug => 0
  16.     )
  17.     ) {
  18.  
  19.     $smtp->auth( $user, $pass ) || die "Authentication failed!\n";
  20.  
  21.     #if ($smtp->auth($user,$pass)) {
  22.  
  23.     #print "yeah\n";
  24.     #} else {
  25.     #rint "fuck\n";
  26.     #}
  27.  
  28. }
  29. else {
  30.     print "error conectando\n";
  31. }
  32.  
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


He probado con el login real y nada, siempre falla el login tirando "Authentication failed!".
Última edición por explorer el 2012-02-22 21:39 @944, editado 2 veces en total
Razón: Formateado de código con Perltidy
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: Enviar correo a Gmail

Notapor explorer » 2012-02-22 22:02 @960

Necesitas instalar un módulo más: Authen::SASL, que se encarga del proceso de autentificación con SASL.

En otro hilo, hemos comentado el módulo Email::Send::SMTP::Gmail, actualizado apenas veinte días, que permite enviar correos de forma cómoda, incluyendo los que llevan archivos adjuntos.

Y atento al uso de las comillas dobles. No es lo mismo poner
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. my $user = "[email protected]";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
que
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. my $user = '[email protected]';
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
En el primer caso, Perl hará la interpolación del array @gmail, que seguro que no es lo que quieres que haga.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Enviar correo a Gmail

Notapor BigBear » 2012-02-23 11:32 @522

Gracias a los dos. Ahora publico mi programa en Proyectos. Los dos están en los créditos. :D
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: Enviar correo a Gmail

Notapor explorer » 2012-02-23 12:31 @563

Gracias, pero por favor:

Si se trata de una herramienta cuyo objetivo es entorpecer de alguna manera el uso o función de un servicio o producto de Internet, de algún usuario u organización, por medio del abuso o explotando alguna vulnerabilidad del sistema, te ruego que
  1. No publiques mi nombre en ese código, ya que me traería muchos problemas, sobre todo para encontrar trabajo
  2. No lo publiques en estos foros, ya que aquí tenemos por norma respetar las distintas legislaciones nacionales sobre este tipo de programas.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Enviar correo a Gmail

Notapor BigBear » 2012-02-23 12:40 @569

Ok, no sabía que te iba a molestar tanto.
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: Enviar correo a Gmail

Notapor explorer » 2012-02-23 12:50 @576

Yo agradezco muchísimo que se me incluya mi nombre en los programas a los que he ayudado a crear, y eso incluso me ayuda bastante para encontrar trabajos más importantes.

El problema está en que no deseo que se me relacione con actividades que serían ilícitas en algunos países (con penas de cárcel, incluso). Eso me resta ofertas de puestos de trabajo. A la mayor parte de las empresas no les interesa contratar gente "peligrosa", o demasiado "curiosa".

Imagínate si recibo una oferta de trabajo para Gmail, y ellos se enteran de lo que hice... Es posible que me ofertaran trabajar en el departamento de seguridad, para mantener a ralla este tipo de cosas, pero yo prefiero dedicarme a otra tareas.

;)

P.D. Para que veas si es serio el tema:
Saeed Malekpour, un programador web condenado a la pena de muerte
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 22 invitados

cron