Help for this page

Select Code to Download


  1. or download this
    %EXPORT_TAGS = (
  Both    => [qw(&lcc_encrypt &lcc_decrypt)],
  Encrypt => [qw(&lcc_encrypt)],
  Decrypt => [qw(&lcc_decrypt)]
);
  2. or download this
    my $upper = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
my $lower = 'abcdefghijklmnopqrstuvwxyz';

# I didn't do join('' (a..z)) because (in 5.00503)
# it caused errors for some reason.