Leser: 23
1 2 3 4 5 6 7 8 9 10 11
use Digest::SHA 'sha512'; my $salt=rand(100); my $testtext="abcdefg123"; my $crypt=sha512($testtext,$salt); ########################################################### # das ganze testen: print "OK\n" if(sha512($testtext,$salt) eq $crypt);
my $digest = sha512_hex($Passwort,$salt);