Digest::MD5 e valori da dargli

[Claudio Vituzzi]

Vorrei creare una stringa lunga 32 byte e che sia univoca...

use Digest::MD5;
    
$md5 = Digest::MD5->new;
$md5->add(time);
$md5->add(process_id);
$md5->add(numero_random);
$digest = $md5->hexdigest;
    
print "Digest is $digest\n";

time c'è l'ho.

qual'è variabile che determina il process_id del programma in esecuzione?

come creo un numero di 10 cifre a random?

Credete che ci debba buttare anche la REMOTE_PORT?

grazie...

[Claudio Vituzzi]

ecco la risposta...

#!/usr/bin/perl

use Digest::MD5;

$tempo = time;
$acaso = int(rand 100000) + 1;
$process_id = $$;

$md5 = Digest::MD5->new;
$md5->add($tempo);
$md5->add($acaso);
$md5->add($process_id);
$digest = $md5->hexdigest;

print "Content-type: text/plain", "\n\n";
print "Digest is $digest\n";

quanto credete che sia univoca nel tempo questa soluzione?

[shishii]

Ciao,

qui si entra nel complicatissimo campo della "entropia" per evitare la pseudo casualità. Secondo alcuni autori l'unico modo per avvicinarsi ad una vera entropia è l'uso di hardware specifico, ma per gli usi comuni il tuo metodo va bene.