Question : Solution d'un geocache de puzzle

J'essaye de résoudre un geocache de puzzle. Est-ce que n'importe qui a une idée où commencer ? le

Here est le lien au rel= " nofollow " de " _blank " de target= de " http://www.geocaching.com/seek/cache_details.aspx?guid=c9cedb13-a1f7-4a56-8ff9-35e748bc23c2&log=y&decrypt= " de href= de page.

le seek/cache_details.aspx de http://www.geocaching.com/ ? des choses rapides du

First du guid=c9cedb13-a1f7-4a56-8ff9-35e748bc23c2&log=y&decrypt=

The Brown Fox

N 44° 20.403 W 074° 21.042 d'abord, la cachette n'est pas situées aux coordonnées données ; elles te fournissent simplement un endroit agréable pour garer et penser et établir le cryptogramme ci-dessous. La cachette est entre 0.25 mille et 6.50 milles à partir des coordonnées originales. J'ai compté 18 genres d'arbres entre ma voiture et l'endroit de cachette, ai vu 3 genres d'oiseaux, 4 types de voies d'animaux, et AM 97% sure que j'ai vu un chat sauvage. Bonne chance trouvant cette cachette, il est dans un certain woods.

1-4-1, 2-1-2, 3-2-6, 4-2-3, 1-8-4, 2-2-1, 3-12-4, 4-8-4, 1-1-2, 2-3-2, 3-2-3, 4-3-3, 1-8-7, 2-4-5, 3-6-2, 4-4-1, 1-2-2, 2-2-5, 3-7-1, 4-4-3, 1-2-5, 4-1-1, 2-1-3, 3-4-5, 1-2-1, 4-9-1, 3-2-2, 4-2-3, 3-4-1, 1-9-1, 2-4-3, 3-4-3, 3-19-1, 3-19-1, 2-5-3, 2-8-4, 2-5-2, 3-15-1, 3-26-2, 3-19-1, 4-11-1, 2-5-1, 3-26-2, 3-19-1, 2-5-3, 3-3-1, 2-5-2, 3-19-1, 2-5-4, IS-IS de récipient de cachette de 3-26-2

The munition-peut rempli d'articles commerciaux, un carnet, et un

You de conseils de pencil.

Additional (chiffrer) devraient pouvoir figurer dehors ceci avec une liste imprimée de la liste et d'un crayon class= de

Réponse : Solution d'un geocache de puzzle

Voici une approche, résultats sur sheet2.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 :

X secondaire () Faible oDic comme objet, sNames () comme corde, vInput (), I en tant que longtemps, n en tant que longtemps vInput = Sheet1.Range (« A1 », Sheet1.Range (« C » et Rows.Count). Extrémité (xlUp)). Valeur sNames de ReDim (1 à UBound (vInput, 1), 1 à 3) oDic réglé = CreateObject (« Scripting.Dictionary ») Avec oDic Pour I = 1 à UBound (vInput, 1) Sinon. Existe (vInput (I, 1)) puis n = n + 1 sNames (n, 1) = vInput (I, 1) sNames (n, 2) = vInput (I, 2) et « (" et vInput (I, 3) et ") » sNames (n, 3) = vInput (I, 3) . Ajouter le vInput (I, 1), n ElseIf. Existe (vInput (I, 1)) puis sNames (. Article (vInput (I, 1)), 2) = sNames (. Article (vInput (I, 1)), 2) et « , » et vInput (I, 2) et « (" et vInput (I, 3) et ") » sNames (. Article (vInput (I, 1)), 3) = sNames (. Article (vInput (I, 1)), 3) + vInput (I, 3) Finir si Après i Extrémité avec Sheet2.Range (« A1 »). Remettre à la côte (n, 3) = sNames Finir le sous-marin