Option Explicit
Const Coordinates = "DLNDCHLOMHDKAAELNBOIHOHAGHNCHBEKGAHAKOGBDMGGHNGC"
Const Key = "GEOCACHING IS FUN - THE SPORT WHERE YOU ARE THE SEARCH ENGINE "
Dim ch, i, Index, WhereItIs
Index = 1
For i = 1 to Len( Coordinates ) Step 2
ch = (((Asc( Mid( Coordinates, i, 1 )) - 1) Xor _
(Asc( Mid( Key, Index, 1 )))) And 15) * 16
ch = ch Or (((Asc( Mid( Coordinates, i + 1, 1 )) - 1) Xor _
(Asc( Mid( Key, Index + 1, 1 )))) And 15)
WhereItIs = WhereItIs & Chr( ch )
Index = Index + 2
If Index > Len( Key ) Then Index = 1
Next ' i
WScript.Echo WhereItIs
To verify your final coordinates use my Puzzle Cache Verifier.
Click To Rate This Cache
If you are a Geocacher in the state of Washington, please join the Washington State Geocaching Association. This is a great way to get the most out of Geocaching in our region. Simply go to geocachingwa.org for details!
|