Googleinurl

SPAMMER PERL SMTP

Jan 3rd, 2014
1,171
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2.  
  3. use Net::SMTP::TLS;
  4.  
  5.  
  6. # CONFIGURAÇÕES BÁSICAS #
  7.  
  8. # Autenticação no servidor SMTP
  9. my $servidor="";
  10. my $porta="";
  11. my $user='';
  12. my $pass='';
  13.  
  14. #Dados do sender
  15. #my $destino='em...@servidor.com'; # caso não queira usar uma lista
  16. my $assunto="";
  17. my $email='';
  18.  
  19. print <<print;
  20. =============================================================================================
  21.  .oooooo..o ooo        ooooo ooooooooooooo ooooooooo.            +-----------------------+
  22. d8P'    `Y8 `88.       .888' 8'   888   `8 `888   `Y88.          |  By KoubackTr / 2014  |
  23. Y88bo.       888b     d'888       888       888   .d88'          |                       |
  24.  `"Y8888o.   8 Y88. .P  888       888       888ooo88P'           |  koubacktr\@gmail.com  |
  25.      `"Y88b  8  `888'   888       888       888                  +-----------------------+
  26. oo     .d8P  8    Y     888       888       888        
  27. 8""88888P'  o8o        o888o     o888o     o888o                                                                
  28.                                                        
  29. ooo        ooooo       .o                             ooo        ooooo       .o    o8o  oooo  
  30. `88.       .888'     .d88                             `88.       .888'     .d88    `"'  `888  
  31.  888b     d'888    .d'888    .oooo.o  .oooo.o          888b     d'888    .d'888   oooo   888  
  32.  8 Y88. .P  888  .d'  888   d88(  "8 d88(  "8          8 Y88. .P  888  .d'  888   `888   888  
  33.  8  `888'   888  88ooo888oo `"Y88b.  `"Y88b.  8888888  8  `888'   888  88ooo888oo  888   888  
  34.  8    Y     888       888   o.  )88b o.  )88b          8    Y     888       888    888   888  
  35. o8o        o888o     o888o  8""888P' 8""888P'         o8o        o888o     o888o  o888o o888o
  36. =============================================================================================
  37.  
  38. print
  39.  
  40.  
  41. # ARQUIVO COM OS ENDEREÇOS DE EMAIL #
  42.  
  43. print "[!] Você precisa informar o arquivo de lista com os endereços\n Arquivo: ";
  44. $arquivo = <stdin>;
  45. open(EMAIL,"< $arquivo") or die "FILE NOT FOUND!\n";
  46. chomp(my @destino = <EMAIL>);
  47.  
  48. #Conexão com o servidor
  49. my $smtp = new Net::SMTP::TLS("$servidor",
  50.     Port    => $porta,
  51.     User    => "$user",
  52.     Password=> "$pass",
  53.     Timeout => 5) || die "[!] Erro ao se conectar ou autenticar com o servidor: $servidor\n";
  54.  
  55.  
  56. # PEGANDO ENDEREÇOS NO ARQUIVO INFORMADO #
  57. foreach my $destino (sort @destino){
  58.  
  59. $smtp->mail("$email");
  60.  
  61. my @destinatario = ("$destino");
  62. $smtp->recipient(@destinatario);
  63.  
  64. # DADOS A SEREM ENVIADOS #
  65.  
  66. $smtp->data();
  67. $smtp->datasend("To: $destino\n");
  68. $smtp->datasend("From: Puliça da Passoca Federal\n");
  69. $smtp->datasend("Content-Type: text/html \n");
  70. $smtp->datasend("Subject: $assunto");
  71. $smtp->datasend("\n");
  72. $smtp->datasend("
  73.  
  74. <!-- CONTEUDO DA MENSAGEM -->
  75. <br>
  76. <center>
  77. <font size='8'>
  78. <b>TESTE DE EMAIL EM PERL</b>
  79. </font>
  80. </center>
  81.  
  82. ");
  83.  
  84. $smtp->datasend("\n");
  85. print "\t[+] Enviado para: \t\t\t\ $destino\n";
  86. $smtp->dataend();
  87. }
  88. $smtp->quit;
  89. print "[!] Fim\n";
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×