HOME FAQ's NEWEST CACHES SEARCH FOR CACHES BUXLEY's MAPS
FORUMS HIDE A CACHE EDIT CACHE ADD A LOG ENTRY SCOUT's LEADER BOARD
Geocaching with Navicache

SIGN UP   /   MEMBER LOGIN

Schlampe

(Finds: 0  Score: 0)    (Hidden: 0  Score: 0)

CACHE LOGS - May contain hints(spoilers)!   decode

Note 22 Apr 2010    Monoalphabetische Substitution  ( Difficulty: 4    Terrain: 1.5 )

#!/usr/bin/perl
use strict;

my $data = <<'END';
A.SD%5A?!%!XJ!W%2SZ.!%%!Z5!X5!35&?5A!&W?2S5?#!XDZHSD=!5A!2S?++
W?!W5.XAA?W%@&?5A?!=!%2SW!?=.X#R.&J!W%5!2OA!%2D2S!%!WDW=!?5!5Y
!XXA.A?!%!X5!35&?5A!WSD!.+?#O!?5%DXDZ9%!!X5R?++!W5SD%5SD%5A.A?
2SA!W#Z!?2S!X5!2SX?O=!A?!X5A?!&DW?D%5.DW5?&%!2SR!SX5!XZDSWS.XA
!W5A!XO@H+#!O@%5!5SD5?%5%2S@X!W%2SW!2O!XA@A!W?2SS@++!A.SD55!%5
!?XY!X?#%HD%%=!?A?!%!WA!5!O5?JDW=!?5D=!WZ!5R5Y@ZZ!XY?W&DZR.&+W
!?Z.+55!?Z.!=!W#!S!XA!W2D2S!=!SD!Z5!W=!+?XA!5%?2S?XA!WXD!S!A!%
W.SW.X?2D2S!%=!?%?!=!XRY!?J?!W%!2S%RY!?!?X%+.!X+.XA+.!X+!?X%J?
!W+.!X+!?X%%?!=!XDZZ!WA?X#%&.%%5A.A?!%!RDSZ!XW.!2OYD!W5%Z!%!X.
&%?!?X=WD.2S=DW!O@@WA?XD5!X.&R.+@W&!XA!W2D2S!Z?!#5DX!?X!&A@HH!
Z=D.&?X!?X!WS@ZRO?%5!&?5A!2O!Z?2SS@++!A.SD55!%5!?XY!X?#%HD%%DX
A!W%D2S!#.5!%+?XA!X
END

my %r = ( '!' => 'e',
'?' => 'i',
'x' => 'n',
'5' => 't',
'%' => 's',
'w' => 'r',
's' => 'h',
'a' => 'd',
'd' => 'a',
'.' => 'u',
'2' => 'c',
'+' => 'f',
'z' => 'l',
'=' => 'b',
'&' => 'm',
'@' => 'o',
'#' => 'g',
'o' => 'k',
'y' => 'w',
'h' => 'p',
'j' => 'v',
'3' => 'x',
'9' => 'y',
'r' => 'z'

);

my $text = '';

foreach my $char (split(//, lc($data)))
{
$char = $r{$char} if (exists($r{$char}));
$text .= $char;
}

print $text;

[Modified 2010-04-22 12:37:13]


 

Order your Navi-Tees and more




© Copyright 2009 Navicache. All Rights Reserved. Disclaimer     Contact Us