Small-Makro Mystery Cache
-
Difficulty:
-
-
Terrain:
-
Size: 
(micro)
Please note Use of geocaching.com services is subject to the terms and conditions
in our disclaimer.
Im Gegensatz zu seinem kleinen Bruder, dem Mikro-Makro (GC33AY6), kann dieses Rätsel auch ohne Computer oder Spezialwissen quasi in "Handarbeit" gelöst werden. Es dauert halt vielleicht etwas länger... :)
Mit einem weit verbreiteten PC-Programm und dem "gewusst wie" ist es jedoch nur eine Sache von Sekunden.
Viel Erfolg.
--------------------------------------------
Sub Small()
Dim i(42)
i(39) = "11111110001011"
i(3) = "10011110101011"
i(17) = "10111110101011"
i(5) = "11100111111111"
i(26) = "11111110101011"
i(19) = "11111111111111"
i(33) = "10000010000011"
i(7) = "11111111111111"
i(37) = "10100010100011"
i(8) = "11111110000011"
i(34) = "11111111111111"
i(9) = "11111110111011"
i(21) = "11111111111111"
i(27) = "10000010100011"
i(10) = "11111110000011"
i(22) = "11111111111111"
i(4) = "11001110111011"
i(11) = "11111111111111"
i(40) = "10000010101011"
i(31) = "10001010000011"
i(1) = "11111111111111"
i(23) = "10001110000011"
i(13) = "11101110111011"
i(28) = "11111111111111"
i(20) = "10111110111111"
i(30) = "11111111111111"
i(35) = "10001010001011"
i(15) = "11111111111111"
i(41) = "11111110100011"
i(12) = "10001110000011"
i(38) = "11111111111111"
i(25) = "10000010000011"
i(16) = "10011110001011"
i(42) = "11111111111111"
i(18) = "10000010000011"
i(2) = "10000010000011"
i(29) = "11111001111001"
i(14) = "10000010000011"
i(36) = "10101010101011"
i(6) = "10000011111111"
i(24) = "11101111111111"
i(32) = "10101010101011"
Columns("A:AQ").ColumnWidth = 1
Rows("1:13").RowHeight = 8
For a = 1 To 42
For b = 1 To 14
Cells(b, a).Interior.ColorIndex = Val(Mid(i(a), b, 1)) + 1
Next
Next
Cells(b + 1, 1) = "Viel Spaß beim Suchen der Small-Dose..."
Cells(b, 1).Select
End Sub
Additional Hints
(Decrypt)
Znyra anpu Mnuyra; qnf evpugvtr Cncvre uvysg qnorv