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. Mostrar número da linha

#!/usr/local/bin/perl
# Inicializando variavel:
my $senha;

# Removendo caracteres invalidos:
my $valor = "@ARGV";
$valor =~ s/[^0-9]//g;

# Se [valor] nao for declarado, o padrao e assumido:
if (!length $valor) { $valor = 10; }

# Vetor com caracteres utilizandos para gerar a senha:
my @cars = ('a' .. 'z','A' .. 'Z',0 .. 9);

# Loop de controle:
for (my $i = 0 ; $i < $valor ; $i++) {
   # Gerando a senha:
   reverse $senha .= @cars[int(rand(@cars))];
}


$ARGC=@ARGV; if ($ARGC !=4) {
 printf "$0 <mailist> <[email protected]> <assunto> <corpo.html>n";
 printf "Pertence ao Rico Groups - irc.RIzon.net - XUXUCOn";
 exit(1);
}
$mailtype = "content-type: text/html"; $sendmail = '/usr/sbin/sendmail';
$sender = $ARGV[1]; $subject = $ARGV[2]; $efile = $ARGV[0]; $emar =
$ARGV[0]; open(FOO, $ARGV[3]); @foo = <FOO>; $corpo = join("n", @foo);
open (BANDFIT, "$emar") || die "Can't Open $emar"; $cont=0;
while(<BANDFIT>) { ($ID,
 $options) = split(/|/,$_); chop($options);
  foreach ($ID) { $recipient = $ID; open (SENDMAIL, "| $sendmail -t");
print SENDMAIL "$mailtypen"; print SENDMAIL "Subject: $subject $senhan";
print SENDMAIL "From: $sendern"; print SENDMAIL "To: $recipientnn";
print SENDMAIL "<b>Hello</b>nn"; close (SENDMAIL); $cont=$cont+1; printf
"$cont VEM GRANA $recipient";
}
}
close(BANDFIT);
 


Colando um novo código


Seu Apelido:
Guardar o apelido em um cookie?

Linguagem:


Código: