Esta função retorna uma instância da Classe FWSecretVault, preparada para validar se os valores informados estão de acordo com as Regras de Preenchimento de senha ( Política de Segurança ). 

A regra de preenchimento Inibir repetição de parte da senha, só é aplicada quando um usuário troca a senha no logon e informa a senha antiga e a nova. Como não é possível saber os conteúdos das senhas armazenadas essa regra não é aplicada.

Esta função só deve ser utilizada com o ambiente aberto.


Sintaxe:

MPPswVault(aMessage)


Parâmetro

Tipo

Descrição

Obrigatório

aMessage

array

Retorno das mensagens de erro de política

x

Retorno:

Instância da Classe FWSecretVault




Exemplo
// Chamar a função depois de abrir 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:Put(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