Help for this page

Select Code to Download

Select or download this

%p2C = map {if (not exists $p2C{$_}) {$k=chr(ord('A')+(($a++)+$caesar)
+%26); $k => $_}} (split(//, $kp))