Voltar para Paste Lymas | pasteLog v. 2.0-alpha

Visualizando código



Postado por Anônimo em 13/02/2018 19:45:19.
http://paste.lymas.com.br/3049

Clique AQUI para fazer download do código. Esconder número da linha

  1. #!/usr/local/bin/perl
  2. # Inicializando variavel:
  3. my $senha;
  4.  
  5. # Removendo caracteres invalidos:
  6. my $valor = "@ARGV";
  7. $valor =~ s/[^0-9]//g;
  8.  
  9. # Se [valor] nao for declarado, o padrao e assumido:
  10. if (!length $valor) { $valor = 10; }
  11.  
  12. # Vetor com caracteres utilizandos para gerar a senha:
  13. my @cars = ('a' .. 'z','A' .. 'Z',0 .. 9);
  14.  
  15. # Loop de controle:
  16. for (my $i = 0 ; $i < $valor ; $i++) {
  17.    # Gerando a senha:
  18.    reverse $senha .= @cars[int(rand(@cars))];
  19. }
  20.  
  21.  
  22. $ARGC=@ARGV; if ($ARGC !=4) {
  23.  printf "$0 <mailist> <[email protected]> <assunto> <corpo.html>n";
  24.  printf "Pertence ao Rico Groups - irc.RIzon.net - XUXUCOn";
  25.  exit(1);
  26. }
  27. $mailtype = "content-type: text/html"; $sendmail = '/usr/sbin/sendmail';
  28. $sender = $ARGV[1]; $subject = $ARGV[2]; $efile = $ARGV[0]; $emar =
  29. $ARGV[0]; open(FOO, $ARGV[3]); @foo = <FOO>; $corpo = join("n", @foo);
  30. open (BANDFIT, "$emar") || die "Can't Open $emar"; $cont=0;
  31. while(<BANDFIT>) { ($ID,
  32.  $options) = split(/|/,$_); chop($options);
  33.   foreach ($ID) { $recipient = $ID; open (SENDMAIL, "| $sendmail -t");
  34. print SENDMAIL "$mailtypen"; print SENDMAIL "Subject: $subject $senhan";
  35. print SENDMAIL "From: $sendern"; print SENDMAIL "To: $recipientnn";
  36. print SENDMAIL "<b>Hello</b>nn"; close (SENDMAIL); $cont=$cont+1; printf
  37. "$cont VEM GRANA $recipient";
  38. }
  39. }
  40. close(BANDFIT);
  41.  


Colando um novo código


Seu Apelido:
Guardar o apelido em um cookie?

Linguagem:


Código: