52: sub encrypt
53: {
54:     usage("encrypt data[8 bytes]") unless @_ == 2;
55:
56:     my ($self,$data) = @_;
57:     return Crypt::DES::crypt($data, $data, $self->{'ks'}, 1);
58: }