Help for this page

Select Code to Download


  1. or download this
    knoppix@Microknoppix:~$ perl -MList::Util=shuffle -Mstrict -wE '
    my @lc  = shuffle q{a} .. q{z};
    ...
    say $passwd;'
    E5yR=$%£
    knoppix@Microknoppix:~$
    
  2. or download this
    ...
    $passwd .= splice @{ $all[ $_ ] }, rand @{ $all[ $_ ] }, 1
       for @order;
    ...