Help for this page

Select Code to Download


  1. or download this
    @ca = (sub {
    @kp = split(//, shift @_, 0);
...
);
$ca[0]->('thequickbrownfoxjumpsoverthelazydogs', 10);
print $ca[1]->('ZOCK FWUKLMT BMTE LFQR', \%C2) . "\n";
  2. or download this
    # @ca - code array
# @kp - key phrase
...
# $t  - text
# $h  - hash reference
# $r  - result