...

Somente o método ou função que originou o registro poderá alterar ou excluir um par de chave e valor, porém poderá ser conferida de qualquer fonte.

Métodos:

Put

Sintaxe:

FwSecretVault():Put( cID, cValue )

...

Registra um par de chave e valor. Ao informar um valor que já exista na base, este será substituído pelo novo.  Somente o método ou função que originou o registro consegue alterá-lo. 

Como a cahve é única para o sistema, recomendamos o uso de identificadores nas chaves ( ex: framework_meuId, gpe_senha_do_portal ) 

Retorno:

Se verdadeiro, indica que conseguiu guardar o registro

...

User Function teste1()

    Local cSenha:= 'minhasenha'
    Local cID      	:= 'MeuID'
    Local cDataRet	 := ""
    Local lSucesso := .T.
	Local oVault   := FwSecretVault():New()

    lSucesso := FwSecretVault()oVault:Put(cID, cSenha) // retorno .T.
 
return

User Function teste2()
	Local cSenha:= 'minhasenha'
    Local cID      	:= 'MeuID'
    Local cNovaSenha:= "novasenha"
    Local lSucesso := .T.
	Local oVault   := FwSecretVault():New()
    
    lSucesso := oVault:Put(cID, cNovaSenha) // retorno .F., pois já foi cadastrado
    lSucesso := oVault:Delete(cID)  // retorno .F., pois só pode ser deletado por outro fonte.
    lSucesso := oVault:Check(cID, cNovaSenha) // retorno .F., pois a senha cadastrada é outra
    lSucesso := oVault:Check(cID, cSenha) // retorno .T., pois a senha cadastrada foi essa
 
return

...

Check

Sintaxe:

FwSecretVault():Check( cID, cValue)

Descrição:

Método responsável por retornar o conteúdo armazenado.  Somente o método ou função que originou o registro consegue recuperá-lo. Confere se o par chave e valor informado é o mesmo que já foi cadastrado anteriormente.  Não há restrição de origem da chamada para conferir uma chave.

Retorno:

Conteúdo armazenado. Retorna uma string vazia ("") caso não encontre o ID.

...

Método responsável por deletar um dado par chave e valor que foi armazenado. Somente o método ou função que originou o registro consegue deletá-lo.

...

User Function TstSafeVaultTstSecretVault()

    Local cData cPass  	 := 'Textomeu valor secreto com acentuação'
    Local cID      	:= 'MeuID'
    Local cDataRet	lSucesso  := .F. 
	Local oVault := ""FwSecretVault():New()
    
    lSucesso := FwSecretVault()oVault:Put(cID, cData)
cPass) // lSucesso := .T.
    lSucesso cDataRet:= FwSecretVault()oVault:Check(cID, cPass)
 // lSucesso  ConOut( 'Valor do retorno do Check = ' + cDataRet)
    FwSecretVault():= .T.
	lSucesso := oVault:Check(cID, "senhaerrada") // lSucesso := .F.
    lSucesso := oVault:Delete(cID) // lSucesso := .T.
    lSucesso cDataRet:= FwSecretVault()oVault:Check(cID)
 // lSucesso  ConOut( 'Valor do retorno do Check apos executar o Delete = ' + cDataRet):= .F., o registro já foi deletado
 
return