>>45
ありがとうございます
my $key = pack("H16", "0123456789ABCDEF");
my $cipher = new Crypt::DES $key;
my $ciphertext = $cipher->encrypt("plaintex"); # NB - 8 bytes
print unpack("H16", $ciphertext), "\n";

exampleにあったこれでしょうか?
これで0123456789ABCDEFの所にメールアドレスをいれて暗号
化するのですか?