in reply to DES in Perl
You might want to look at this pure Perl implementation of the DES encryption algorithm: Crypt::DES_PP.