Script started on Tue Jul  8 11:53:10 2003
math-cs~/web/PERL>
math-cs~/web/PERL> perl caesarCipher.pl

Caeser enciphering of UNI Panthers using every possible KEY value

  0 = UNI Panthers
  1 = VOJ Qbouifst
  2 = WPK Rcpvjgtu
  3 = XQL Sdqwkhuv
  4 = YRM Terxlivw
  5 = ZSN Ufsymjwx
  6 = ATO Vgtznkxy
  7 = BUP Whuaolyz
  8 = CVQ Xivbpmza
  9 = DWR Yjwcqnab
 10 = EXS Zkxdrobc
 11 = FYT Alyespcd
 12 = GZU Bmzftqde
 13 = HAV Cnaguref
 14 = IBW Dobhvsfg
 15 = JCX Epciwtgh
 16 = KDY Fqdjxuhi
 17 = LEZ Grekyvij
 18 = MFA Hsflzwjk
 19 = NGB Itgmaxkl
 20 = OHC Juhnbylm
 21 = PID Kvioczmn
 22 = QJE Lwjpdano
 23 = RKF Mxkqebop
 24 = SLG Nylrfcpq
 25 = TMH Ozmsgdqr

math-cs~/web/PERL> cat caesar.Cipher.pl

print "\nCaeser enciphering of UNI Panthers using every possible KEY value\n\n";

$r = "UNI Panthers";

$i = 0;

while ($i < 26)
{
   print ($i < 10? "  ": " ");
   print "$i = $r\n";
   $r =~ tr/A-Za-z/B-ZAb-za/;
   $i++;
}

Script done on Tue Jul  8 11:54:01 2003