DRF - Fuentes

Este código implementa dos funciones, una que genera un hash md5sum basado en los datos que se le pasan como parámetro, y otra función que comprueba si para unos datos la clave dada es válida. Recibe dos parámetros el primero son los datos, y el segundo parámetro la supuesta clave que valida los datos.

#!/usr/bin/perl
use Digest::MD5;
$data = "1234567890";
$clave = '9c5e80a8308f827802a84d695e846aa7';
 
print generaclave($data) . "\n";
 
print compruebaclave($data,$clave) . "\n";
 
sub generaclave{
        # Recibe un unico parametro que son los datos a partir de los
        # que se genera la clave md5sum
        my $GCid = shift;
        my $GCmd5 = Digest::MD5->new;
        $GCmd5->new;
        $GCmd5->add($GCid);
        # obtenengo el digest de los datos en la siguiente variable
        my $GCclave = $GCmd5->hexdigest();
        return $GCclave;
}
sub compruebaclave{
        # Se le pasan los datos y la clave que supuestamante sale de esos
        # datos. Si coinciden, se devuelve 1 si no 0;
        my $CCid = shift;
        my $CCclave = shift;
        my $CCclave2 = generaclave($CCid);
        return (($CCclave2 eq $CCclave)?1:0);
}