Help for this page

Select Code to Download

Select or download this

52: sub encrypt
53: {
...
56:     my ($self,$data) = @_;
57:     return Crypt::DES::crypt($data, $data, $self->{'ks'}, 1);
58: }

Select or download this

sub encrypt
{
...
    print "\nMY DEBUG: ", length($data), " ", $data, "\n\n";
    return Crypt::DES::crypt($data, $data, $self->{'ks'}, 1);
}