Code que "brinca" com senhas
Publicado por Eduardo 29/01/2007
[ Hits: 8.150 ]
Este simples script em Perl gera, criptografa e descriptografa senhas em Base-64 e criptografa em MD5.
#!usr/bin/perl #Precisa do módulo Digest-MD5 que pode ser encontrado em: #http://search.cpan.org/src/GAAS/Digest-MD5-2.36/MD5.pm #->ppm install http://search.cpan.org/src/GAAS/Digest-MD5-2.36/MD5.pm use Digest::MD5 qw(md5_hex); use MIME::Base64; system ("cls"); system ("color c"); print ">=========================================================\n"; print "Md5 Encryptor\nCoded by _Dr4k0_ a.k.a. BrazLab\n"; print "Version 1.0\n"; print ">=========================================================\n"; print "O que voce deseja fazer: \n\n"; print "[G]erar senha\n"; print "[C]riptografar Base-64\n"; print "[D]escriptografar Base-64\n"; print "Criptografar [M]D5\n"; $opcao=<STDIN>; chomp $opcao; if($opcao eq "G" || $opcao eq "g"){&G;} if($opcao eq "C" || $opcao eq "c"){&C;} if($opcao eq "D" || $opcao eq "d"){&D;} if($opcao eq "M" || $opcao eq "m"){&M;} sub G{ @caracteres=("a","b","c","d","e","f","g","h","i", "j","k","l","m","n","o","p","q","r","s","t","u", "v","x","y","w","z","A","B","C","D","E","F","G", "H","I","J","K","L","M","N","O","P","Q","R","S", "T","U","V","X","Y","W","Z","1","2","3","4","5", "6","7","8","9","0","#","!","_","!","¨","&","*", "(",")","=","+"); print "Quantidade de senhas para ser criada: "; $x=<STDIN>; chomp $x; for ($y=1;$y<=$x;$y++){ print "Quantos caracteres voce quer para a senha $y: "; $a = <STDIN>; chomp $a; $senha2=""; for ($b=1 ;$b <= $a;$b++){ $senha1=rand(@caracteres); $senha4=$caracteres[$senha1]; $senha2="$senha4$senha2"; } push(@senha3,$senha2); print 'Sua nova senha e :',$senha2,"\n"; } } sub C{ print "\nDigite a menssagem para ser criptografada em Base-64: "; $msg=<STDIN>; chomp $msg; print "Criptografando, aguarde...\n"; sleep 2; $msg=encode_base64("$msg"); print "O resultado é: $msg"; } sub D{ print "\nDigite a menssagem para ser descriptografada : "; $msg=<STDIN>; chomp $msg; print "Descriptografando, aguarde...\n"; $msg=decode_base64("$msg"); sleep 2; print "O resultado é: $msg"; } sub M{ print "Quantidade de senhas para ser criptografada:\n"; $x=<STDIN>; chomp $x; for ($y=0;$y<$x;$y++){ print "Escreva o password para ser criptografado: "; $pass = <STDIN>; chomp $pass; print "Criptografado: <'$pass'>: " . md5_hex("$pass") . "\n\n";} }
Criando sua própria criptografia em hash
Script de Analise do Syslog SNORT
Testando multiplos servers a ataque DoS
Nenhum coment�rio foi encontrado.
O que é o THP na configuração de RAM do Linux e quando desabilitá-lo
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Como unir duas coleções de ROMs preservando as versões traduzidas (sem duplicatas)
Como instalar o Telegram Desktop no Ubuntu 24.04
Overclocking Permanente para Drastic no Miyoo Mini Plus
Problemas de chaves (/usr/share/keyrings) no Debian
Converter os repositórios Debian para o novo formato com as chaves
eu preciso saber uma coisa sobre os games no linux (3)
eu preciso saber uma coisa sobre os games no linux (1)
Problema com audio apos upgrade (1)