Шифровка и хранение карты сокровищ в облаке
Любое выражение на языке Wolfram Language может быть зашифровано.
Сгенерируйте сильный симметричный ключ, полученный из тайного пароля при помощи метода Blowfish.

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

Зашифруйте расположение сокровища, хранящегося в GeoMarker, и визуализируйте его, используя GeoGraphics, при помощи созданного ключа.


hiddenTreasure = Encrypt[skeletonKey, treasureMap]

Теперь, когда данные безопасно зашифрованы при помощи локального ключа, загрузите карту в облако Wolfram Cloud.

stowed = CloudPut[hiddenTreasure]
Для того, чтобы засекретить ценную информацию, удалите оригинальную карту и ключ, используя Clear.

Clear[hiddenTreasure]

Clear[skeletonKey]
Поскольку ключ был создан с использованием пароля, Вы можете создать новый ключ, используя оригинальный ввод.

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

Новый ключ может быть использован для ссылки на развёрнутую в облаке карту.

reclaimedMap = Decrypt[newKey, CloudGet[stowed]]

Извлеките расположение сокровища.

treasureLocation = reclaimedMap[[3, 2]]

Запросите маршрутный лист.

TravelDirections[{$GeoLocation, treasureLocation}]


Поскольку невозможно указать маршрут до сокровища, рассчитайте расстояние при помощи GeoDistance.

GeoDistance[$GeoLocation, treasureLocation]

Определите ближайший к сокровищу аэропорт с учетом данного расстояния.

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

Расстояние от аэропорта до сокровища.

GeoDistance[airport, treasureLocation]
