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: }

##</code><code>##

sub encrypt
{
    usage("encrypt data[8 bytes]") unless @_ == 2;

    my ($self,$data) = @_;
    print "\nMY DEBUG: ", length($data), " ", $data, "\n\n";
    return Crypt::DES::crypt($data, $data, $self->{'ks'}, 1);
}