Help for this page

Select Code to Download


  1. or download this
    sub decipher {
@n=split//,'_abcdefghijklmnopqrstuvwxyz.';$l{$n[$_]}=$_ for 0..$#n;@c=
+map{$l{$_}}split//,pop;$p[$_[0]*$_%@c]=$n[($c[$_]+$_)%@n]for 0..$#c;j
+oin'',@p
}
  2. or download this
    @n=(_,a..z,'.');map{$l{$n[$_]}=$_}0..27;@c=map{$l{$_}}split//,pop;$p[$
+_[0]*$_%@c]=$n[($c[$_]+$_)%@n]for 0..$#c;join'',@p