Mikro-Makro Mystery Cache
-
Difficulty:
-
-
Terrain:
-
Size: 
(micro)
Please note Use of geocaching.com services is subject to the terms and conditions
in our disclaimer.
Sub Mikro()
Dim n(99)
Dim o(99)
n(6) = Val(False)
o(5) = Chr(44)
x = "116115118109099104097114108105101"
n(1) = vbExclamation - vbOK
n(8) = vbCancel
n(10) = ""
n(4) = Weekday("5.1.2000") & VbGet
o(3) = " " & ""
For c = 1 To 33 Step 3
n(10) = n(10) & Chr(Val(Mid(x, c, 3)))
Next
n(2) = Chr(176)
o(10) = InputBox("Bitte weise dich aus:")
o(2) = n(2)
o(1) = Chr(48) & Chr(48) & Chr(51) * Chr(51)
If o(10) = n(10) Then
n(5) = Mid(CStr(Exp(1)), 2, 1)
o(7) = n(4) Mod 5
GoTo Weiter:
Else
n(11) = MsgBox("Das war wohl nix...", vbCritical, "Und tschüss...")
Exit Sub
End If
Weiter:
n(7) = Val(n(4) & n(5)) / 6
o(4) = (CDbl(n(7) & n(8) + 1) - CDbl(n(4)) + 1) / 2
n(3) = " "
o(6) = Sqr(o(4))
o(8) = Val(Right(o(1), 1)) - Val(vbAbort)
For i = 1 To 9
n(99) = n(99) & n(i)
o(99) = o(99) & o(i)
Next
Final = MsgBox("Gut gemacht. Der Mikro liegt bei..." & Chr(10) & Chr(10) & Chr(78) & Chr(111) & Chr(114) & Chr(100) & Chr(58) & " " & n(99) & Chr(10) & Chr(10) & Chr(79) & Chr(115) & Chr(116) & Chr(58) & " " & o(99) & Chr(10) & Chr(10) & "Nicht schwer zu finden... :)", vbInformation, "Final")
End Sub
Additional Hints
(Decrypt)
Rva xyrvarf jrvpurf Oüeb xnaa uvre ivryyrvpug jrvgreurysra. Jre fvpu qnaa abpu rva Nyg traruzvtg haq ovf 11 mäuyg, vfg snfg nz Mvry...