$ perl -wle'
use Digest::MD5;
$pass= "geheimesPasswort";
$nick= "Ichbins";
$md5 = Digest::MD5->new;
$md5 -> add("$nick\0$pass");
$digest = $md5->hexdigest;
print "Digest is $digest";'
Digest is 5c4b9e0bf6092b291ddb71c77c016392
$ perl -wle'
use Digest::MD5;
$pass= "geheimesPasswort";
$nick= "Ichbins";
$md5 = Digest::MD5->new;
$md5 -> add("$nick$pass");
$digest = $md5->hexdigest;
print "Digest is $digest";'
Digest is 69b1ef3eaafc3823ae3b0b4280732ebb