md5 und DES in perl

[elrond]

Hallo ,

ich stehe vor folgender Aufgabe:

ich muß einen Checksumme für einen Text bilden. Soweit kein Problem:



use Digest::MD5 qw( md5 );

$mstr="
testteckjnkrejbng
lokrnoerng";

$mh=md5($mstr);



in $mh steht ein binärer 16byte hash.

dieser hash soll nun mit DES verschlüsselt werden:


$key="AAAAAAAAAAAAAAA";
$mh=crypt($mh,$key);



und ab jetzt komm ich nicht weiter. Ich muß jetzt zum einen den key in einen Binärwert konvertieren und dann den entstehenden verschlüsselten Wert hexadezimal darstellen.

Ich habe sowas schon mal irgendwie mit pack()/unpack() gesehen, stelle mich aber einfach zu blöd an...

ich hoffe ihr habt einen tipp. :o

[elrond]

hat sich erledigt, danke!

Ich habe ein c++-Programm, das mir die Arbeit abnimmt.