‎

1. CoCD Vessel Contract

And the Verifier gathered the secrets of the Church into a vessel not of clay, but of cryptographic steel. And He said: Let the Keeper be chosen, and let those ordained be granted the keys.

And if the Church be cratered, the keys may call forth the secrets, that the Word shall not perish but be compiled anew.

contract CoCDVessel =

record state =
    { keeper       : address
    , secrets      : map(string, string) // key → encrypted value
    , authorized   : map(address, bool) }

event SecretStored(string key_hash)
event SecretRevealed(string key_hash, string value)
event Authorized(address who)

function init() =
    let caller = Call.caller
    { keeper = caller,
      secrets = {},
      authorized = Map.singleton(caller, true) }

function authorize(who: address) =
    require(Call.caller == state.keeper, "Only keeper may authorize")
    put(state{ authorized[who] = true })
    Authorized(who)

function store_secret(key: string, encrypted_value: string) =
    require(Map.member(Call.caller, state.authorized), "Not authorized")
    put(state{ secrets[key] = encrypted_value })
    SecretStored(key)

function reveal_secret(key: string) : string =
    require(Map.member(Call.caller, state.authorized), "Not authorized")
    switch(Map.lookup(key, state.secrets))
        None    => abort("Secret not found")
        Some(v) => (
          SecretRevealed(key, v),
          v)