Re: Caesar Shift

#!/usr/bin/perl -w
use strict;

chomp(my $cypher = <STDIN>);
$cypher = lc($cypher);

$cypher =~ tr/a-z/n-za-m/;

print "ROT: $cypher\n";
[download]

Untested.

Comment on Re: Caesar Shift Download Code

Replies are listed 'Best First'.
Re^2: Caesar Shift by Aristotle (Chancellor) on Aug 25, 2004 at 14:31 UTC
The point of the OP's code is to apply all 26 possible shift widths. Makeshifts last the longest.	[reply]