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);
}