Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl
    use warnings;
    ...
    M98',<EH%[_U>_#TF-U;OHK<?^0Q'/$EKW,MRB;.Z(A@*7Q4?MCQ=;^!QF/B0
    CR/)<\*6UC+0R3[P*L>Y+YF\C6WGV7E["2:=,PKE^;*[?M`@`
    (TCPFK5[11M8`
    
  2. or download this
    #!/usr/local/bin/perl
    use warnings;
    ...
      print pack 'u', $cr->crypt($_);
    }
    print pack 'u', $cr->finish;