Help for this page

Select Code to Download


  1. or download this
    input must be 8 bytes long at /usr/local/perl/lib/site_perl/5.8.4/i686
+-linux/Crypt/DES.pm line 57.
  2. or download this
    Crypt/Blowfish.pm:
        Crypt::Blowfish::crypt($data, $data, $self->{'ks'}, 0);
...
                input = (char *) SvPV(ST(0), input_len);
                if (input_len != 8)
                        croak("input must be 8 bytes long");