Jump to content
Theb3st

Cumpar Soft de trimis maile Privat

Recommended Posts

  • Active Members

https://github.com/PHPMailer/PHPMailer

sau

#!/usr/bin/perl

use Net::SMTP::TLS;

# CONFIGURAÇÕES BÁSICAS #

# Autenticação no servidor SMTP

my $servidor="";

my $porta="";

my $user='';

my $pass="";

#Dados do sender

#my $destino='email@servidor.com'; # caso não queira usar uma lista

my $assunto="";

my $email='';

print <<print;

=============================================================================================

.oooooo..o ooo ooooo ooooooooooooo ooooooooo. +-----------------------+

d8P' `Y8 `88. .888' 8' 888 `8 `888 `Y88. | By KoubackTr / 2014 |

Y88bo. 888b d'888 888 888 .d88' | |

`"Y8888o. 8 Y88. .P 888 888 888ooo88P' | koubacktr\@gmail.com |

`"Y88b 8 `888' 888 888 888 +-----------------------+

oo .d8P 8 Y 888 888 888

8""88888P' o8o o888o o888o o888o

ooo ooooo .o ooo ooooo .o o8o oooo

`88. .888' .d88 `88. .888' .d88 `"' `888

888b d'888 .d'888 .oooo.o .oooo.o 888b d'888 .d'888 oooo 888

8 Y88. .P 888 .d' 888 d88( "8 d88( "8 8 Y88. .P 888 .d' 888 `888 888

8 `888' 888 88ooo888oo `"Y88b. `"Y88b. 8888888 8 `888' 888 88ooo888oo 888 888

8 Y 888 888 o. )88b o. )88b 8 Y 888 888 888 888

o8o o888o o888o 8""888P' 8""888P' o8o o888o o888o o888o o888o

=============================================================================================

print

# ARQUIVO COM OS ENDEREÇOS DE EMAIL #

print "\t[!] Você precisa informar o arquivo de lista com os endereços\n Arquivo: ";

$arquivo = <stdin>;

open(EMAIL,"< $arquivo") or die "FILE NOT FOUND!\n";

chomp(my @destinatario);

# DADOS A SEREM ENVIADOS #

$smtp->data();

$smtp->datasend("To: $destino\n");

$smtp->datasend("From: Apelido\n");

$smtp->datasend("Content-Type: text/html \n");

$smtp->datasend("Subject: $assunto");

$smtp->datasend("\n");

$smtp->datasend("

<!-- CONTEUDO DA MENSAGEM -->

<br>

<center>

<font size='8'>

<b>TESTE DE EMAIL EM PERL</b>

</font>

</center>

");

$smtp->datasend("\n");

print "\t\t\t\t[+] Enviado para: \t\t\t\ $destino\n";

$smtp->dataend();

}

$smtp->quit;

print "\t[!] Fim\n";

Link to comment
Share on other sites

https://github.com/PHPMailer/PHPMailer

sau

#!/usr/bin/perl

use Net::SMTP::TLS;

# CONFIGURAÇÕES BÁSICAS #

# Autenticação no servidor SMTP

my $servidor="";

my $porta="";

my $user='';

my $pass="";

#Dados do sender

#my $destino='email@servidor.com'; # caso não queira usar uma lista

my $assunto="";

my $email='';

print <<print;

=============================================================================================

.oooooo..o ooo ooooo ooooooooooooo ooooooooo. +-----------------------+

d8P' `Y8 `88. .888' 8' 888 `8 `888 `Y88. | By KoubackTr / 2014 |

Y88bo. 888b d'888 888 888 .d88' | |

`"Y8888o. 8 Y88. .P 888 888 888ooo88P' | koubacktr\@gmail.com |

`"Y88b 8 `888' 888 888 888 +-----------------------+

oo .d8P 8 Y 888 888 888

8""88888P' o8o o888o o888o o888o

ooo ooooo .o ooo ooooo .o o8o oooo

`88. .888' .d88 `88. .888' .d88 `"' `888

888b d'888 .d'888 .oooo.o .oooo.o 888b d'888 .d'888 oooo 888

8 Y88. .P 888 .d' 888 d88( "8 d88( "8 8 Y88. .P 888 .d' 888 `888 888

8 `888' 888 88ooo888oo `"Y88b. `"Y88b. 8888888 8 `888' 888 88ooo888oo 888 888

8 Y 888 888 o. )88b o. )88b 8 Y 888 888 888 888

o8o o888o o888o 8""888P' 8""888P' o8o o888o o888o o888o o888o

=============================================================================================

print

# ARQUIVO COM OS ENDEREÇOS DE EMAIL #

print "\t[!] Você precisa informar o arquivo de lista com os endereços\n Arquivo: ";

$arquivo = <stdin>;

open(EMAIL,"< $arquivo") or die "FILE NOT FOUND!\n";

chomp(my @destinatario);

# DADOS A SEREM ENVIADOS #

$smtp->data();

$smtp->datasend("To: $destino\n");

$smtp->datasend("From: Apelido\n");

$smtp->datasend("Content-Type: text/html \n");

$smtp->datasend("Subject: $assunto");

$smtp->datasend("\n");

$smtp->datasend("

<!-- CONTEUDO DA MENSAGEM -->

<br>

<center>

<font size='8'>

<b>TESTE DE EMAIL EM PERL</b>

</font>

</center>

");

$smtp->datasend("\n");

print "\t\t\t\t[+] Enviado para: \t\t\t\ $destino\n";

$smtp->dataend();

}

$smtp->quit;

print "\t[!] Fim\n";

Bareword found where operator expected at s line 47, near "<span class="highlight">EMAIL"

(Missing operator before EMAIL?)

Having no space between pattern and following word is deprecated at s line 48.

Bareword found where operator expected at s line 48, near "]o"

(Missing operator before o?)

syntax error at s line 47, near "<span class="highlight">EMAIL"

Unmatched right square bracket at s line 48, at end of line

(Might be a runaway multi-line // string starting on line 47)

Can't find string terminator "span" anywhere before EOF at s line 48.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...