De cache ligt niet op bovenstaande coördinaten. Neem een eigen potlood mee om de cache te kunnen loggen, de cache is iets groter dan een fotorolletje. .
De Incredibles geocache team heeft met een aantal knikkers een Umnidroid, totaal verwoest.
Gelukkig hebben ze nog een stuk "code" kunnen redden.
In deze code zit een geheime locatie verborgen.
Zorg dat deze code gestart wordt op je WINDOWS computer en zorg dat de decodeer sleutel ingevoerd wordt.
Dim sbox(255)
Dim key(255)
stra = InputBox("Sleutel:")
strb = "cdhnlfu.gase}ke"
strc = "J41+13>:880A924(74"+chr(34)+"459"
strd = "Wme~qn|. .caywl|qv,voey|."
str1 = EnDeCrypt(strb,stra)
str2 = EnDeCrypt(strc,stra)
str3 = EnDeCrypt(strd,stra)
WScript.Echo str1 & VbCrLf & str2 & VbCrLf & str3
Function EnDeCrypt(plaintxt, psw)
dim temp, a, i, j, k, cipherby, cipher
i = 0:j = 0
RC4Initialize psw
For a = 1 To Len(plaintxt)
i = (i + 1) Mod 16
j = (j + sbox(i)) Mod 16
temp = sbox(i)
sbox(i) = sbox(j)
sbox(j) = temp
k = sbox((sbox(i) + sbox(j)) Mod 16)
cipherby = Asc(Mid(plaintxt, a, 1)) Xor k
cipher = cipher & Chr(cipherby)
Next
EnDeCrypt = cipher
End Function
Sub RC4Initialize(strPwd)
dim tempSwap, a, b
intLength = len(strPwd)
For a = 0 To 16
key(a) = asc(mid(strpwd, (a mod intLength)+1, 1))
sbox(a) = a
next
b = 0
For a = 0 To 16
b = (b + sbox(a) + key(a)) Mod 16
tempSwap = sbox(a)
sbox(a) = sbox(b)
sbox(b) = tempSwap
Next
End Sub
|
|
Banner: Bij een 'found it', mag je de banner gebruiken. kopier en plak de volgende html code in je geo-profiel :
<a href="http://coord.info/GC5JYBP"> <img src="https://d1u1p2xjjiahg3.cloudfront.net/c5a11dbf-751b-4fbe-9336-25c2c2f058f2.gif" alt="Omnidroid, 2015"/></a>
|