Cifre y almacene un mapa del tesoro en la nube
Cualquier expresión de Wolfram Language puede ser cifrada.
Genere una clave simétrica fuerte derivada a partir de una contraseña secreta usando el método de Blowfish.

skeletonKey = GenerateSymmetricKey["Avast ye!", Method -> "Blowfish"]

Cifre la ubicación del mensaje, almacénelo en un GeoMarker y visualícelo usando GeoGraphics, usando la clave generada.


hiddenTreasure = Encrypt[skeletonKey, treasureMap]

Ahora que los datos han sido cifrados de forma segura usando una clave local, cargue el mapa a Wolfram Cloud.

stowed = CloudPut[hiddenTreasure]
Con el fin de cubrir los rastros, deseche el mapa original y la clave usando Clear.

Clear[hiddenTreasure]

Clear[skeletonKey]
Dado que la clave fue derivada usando una contraseña, usted puede crear una nueva clave usando la entrada original.

newKey = GenerateSymmetricKey["Avast ye!", Method -> "Blowfish"]

La nueva clave ahora puede ser usada para referirse al mapa implementado en la nube.

reclaimedMap = Decrypt[newKey, CloudGet[stowed]]

Extraiga la ubicación del tesoro.

treasureLocation = reclaimedMap[[3, 2]]

Pregunte por direcciones de conducir.

TravelDirections[{$GeoLocation, treasureLocation}]


Dado que no hay una ruta de manejo al tesoro, calcule su distancia usando GeoDistance.

GeoDistance[$GeoLocation, treasureLocation]

Dada la distancia, ubique el aeropuerto más cercano al tesoro.

airport = First[GeoNearest["Airport", treasureLocation]]

La distancia desde dicho aeropuerto al tesoro.

GeoDistance[airport, treasureLocation]
