20 lines
528 B
Perl
20 lines
528 B
Perl
|
#!/usr/bin/perl
|
||
|
# Source projecteuler.net forum
|
||
|
use List::Util qw/ sum /;
|
||
|
open(FILE,"cipher1.txt") or die ("Unable to open file");
|
||
|
$cypher = join '', map { chr($_) } split /,/,<FILE>;
|
||
|
$l = length $cypher;
|
||
|
|
||
|
for my $key ('aaa' .. 'zzz') {
|
||
|
$text = $cypher ^ ( $key x int ($l/3)
|
||
|
. substr($key,0,$l%3)
|
||
|
);
|
||
|
if ( $text =~ / and /i or $text =~ / the /i ) {
|
||
|
print "$key: $text$/";
|
||
|
last;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
print "Ascii total: ", sum map { ord($_) } split //, $text;
|
||
|
print "\n";
|