[tutorial] hash no perl

bom galera agora sao exatamente 3:08am sem nada pra fazer vou escrever um pouco '-' , nesse tutorial vou ensinar como usar hash na linguagem perl, as hash e uma criptografia de mao unica q sao algoritimos q faz uma determinada conta aritimetica em cima dos dados gerando um codigo q sao lidos na maioria das vezes em hexadecimal ou base64, esse codigo sempre tem o mesmo tamanho um exemplo crc-16 q e um codigo de 16bits (4 numeros hexadecimais q vai de 0000 a FFFF), nao vou entrar em detalhes sobre a logica em cima das hash '-'

MD5

a hash md5 e um codigo de 128bits q e igual a 32 numeros em hexadecimais, bom para gerar hash md5 de um string basta usar a funçao md5_hex ou md5_base64, o md5_hex vai codificar e retorna ela em hexadecimal e o outro em base64, para usar essas duas funçoes tem q declarar o arquivo (biblioteca) dele q fica provavelmenta na pasta lib do interpretador dentro da pasta tem outro chamada Digest e por sua vez o arquivo chamado MD5.pm, para declarar agente usa a funçao "use", logo em seguida o local e o arquivo assim "Digest::MD5", depois qw() e dentro agente passa como argumento a funçao q agente vai usar ficaria assim "use Digest::md5 qw(md5_hex)"

Código:

#!/usr/bin/perl

use Digest::MD5 qw(md5_hex);


caso vc queria coloca as duas funçoes basta add ela la dentro e da um espaço entre elas assim

Código:

#!/usr/bin/perl

use Digest::MD5 qw(md5_hex md5_base64);


na source abaixo eu criei uma variavel e atribui a ela uma string, logo em seguida eu usei a funçao print e li o retorno da funçao md5_hex, na funçao md5_hex eu passei como argumento a variavel, em outras palavras ele pego a string armazeno na varaivel depois passo como argumento para a funçao q codifico e depois exibiu '-'

Código:

#!/usr/bin/perl

use Digest::MD5 qw(md5_hex);

$fts = "hacker fts315";
print md5_hex($fts);


nao vou mostrar o md5_base64 pq e mesma coisa, agora vamos ver o do sha

sha

as hash sha tem tamanhos diferente pq existe diversos sha (sha1, sha224, sha256, sha384 e sha512) o mais seguro entre eles e sha512 pq tem 128 numeros em hexadecimal, para usar o sha agente tem q declarar "Digest::SHA" e no qw passamos como argumento a funçao q pode ser (sha1_hex, sha224_hex, sha256_hex, sha384_hex e sha512_hex) eu to usando como exemplo _hex mais pode colocar _base64 tambem, veja o mesmo exemplo do md5 com o sha512

Código:

#!/usr/bin/perl

use Digest::SHA qw(sha512_hex);

$fts = "hacker fts315";
print sha512_hex($fts);

os outros sao a mesma coisa so mudar sha512_hex por sha256_hex ou outro sha, ja sao 3:49am e esse tutorial termina aq ^^

by hacker fts315