User Function teste1()

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

    lSucesso := 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