[CODE]Generator,Criptor,Descriptor,MD5!

[_Dr4k0_]

Olá pessoal aqui eu denovo com um code simples que fiz..

ele cria,cripta e descripta em Base-64 e cripta em MD5..Quem sabe dps eu não faço com funções em SHA-1 e MD4 dps de ler aqueles algoritmos que o STORM posto..

sou iniciante ainda..mais acho que fico legalzinho..

e gostaria de mandar um super Greetz pro [Eclipse] o gerador de senhas dele usei o mesmo algoritmo dele,não foi ripado eu procurei entender tudo..e deu mto trabalho entender ;x base-64 eu vi o dele tb.. e o md5 eu fiz..mais eh bom para mim estudar não foi nada de copia e cola só pra me aparece..

o [Eclipse] é gente boa vai entender

agora o que é bom o code:

Code Select Expand

#!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 and Atk33\n";
print "Contact:irc.gigachat.net #Atk33\n";
print "Greetz:[Eclipse](usei seus codes de estudo..),Ale-Spy,\n";
print "Haxnetwork,rog,Defcon,gbr,dark_side e toda a galera..\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";}
}

[Skayler]

Parabéns!
Achei o programa bem estruturado, fácil de entender, e por vezes, é bem útil.

[]'s


Skayler

[rodweb]

Ae Dr4k0, ja tah fera no baguio, parabêns ficou legal o script, só dei uma lida, naum testei pq não gosto de mexer com perl no windows...mais é isso ae, continua assim vei!

Flws...