...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
// Chamar a função depois de montar o ambiente ou de dentro de um menu do sistema.
User Function TstPswVault()
Local cPass := 'minhasenha'
Local cID := 'MeuID'
Local lSucesso := .F.
Local aMessage := {}
Local oVault := MPPswVault(aMessage)
lSucesso := oVault:Put(cID, cPass) // lSucesso := .T.
lSucesso := oVault:Check(cID, cPass) // lSucesso := .T.
lSucesso := oVault:Check(cID, "123456") // lSucesso := .F. quando a política não permitir sequência numérica
if !lSucesso .And. !Empty(aMessage)
ConOut( aMessage[1], aMessage[2] )
endif
lSucesso := oVault:Delete(cID) // lSucesso := .T.
lSucesso := oVault:Check(cID) // lSucesso := .F., o registro já foi deletado
return
|
...