If C is what you are after than you can read `man des` on your unix.
#include <openssl/des.h>
and these are the supported functions:
des_random_key, des_set_key, des_key_sched, des_set_key_checked,
des_set_key_unchecked, des_set_odd_parity, des_is_weak_key, des_ecb_encrypt,
des_ecb2_encrypt, des_ecb3_encrypt, des_ncbc_encrypt, des_cfb_encrypt,
des_ofb_encrypt, des_pcbc_encrypt, des_cfb64_encrypt, des_ofb64_encrypt,
des_xcbc_encrypt, des_ede2_cbc_encrypt, des_ede2_cfb64_encrypt,
des_ede2_ofb64_encrypt, des_ede3_cbc_encrypt, des_ede3_cbcm_encrypt,
des_ede3_cfb64_encrypt, des_ede3_ofb64_encrypt, des_read_password,
des_read_2passwords, des_read_pw_string, des_cbc_cksum, des_quad_cksum,
des_string_to_key, des_string_to_2keys, des_fcrypt, des_crypt, des_enc_read,
des_enc_write - DES encryption
more about des in C (under unix, at least):
`man des_modes`:
Several crypto algorithms fo OpenSSL can be used in a number of modes. Those are used for using block ciphers in a way similar to stream ciphers, among other things.
Main Topics
Browse All Topics
by: shlomoyPosted on 2001-05-09 at 00:19:36ID: 6062172
Sure.
Check out CPAN:
Crypt::TripleDES - Triple DES encyption.
http://search.cpan.org/sea
SYNOPSIS
my $des = new Crypt::TripleDES;
my $cyphertext = $des->encrypt3 ( $plaintext, $passphrase );
my $plaintext = $des->decrypt3 ( $cyphertext, $passphrase );
or
Crypt::DES - an XS-based DES implimentation for Perl.
http://search.cpan.org/sea
EXAMPLE
my $key = pack("H16", "0123456789ABCDEF");
my $cipher = new Crypt::DES $key;
my $ciphertext = $cipher->encrypt("plaintex
print unpack("H16", $ciphertext), "\n";