You might want to look at this pure Perl implementation of the DES encryption algorithm: Crypt::DES_PP.
In reply to Re: DES in Perl by Laurent_R in thread DES in Perl by TomY