Verificar senhas usando PSWSEEK

A função abaixo é muito útil quando se deseja que durante a execução do Protheus num determinado momento, se deseje verificar a senha de um administrador ou gerente, para liberar uma rotina. Esta verifica se uma senha (informada num campo, por exemplo) está cadastrada no arquivo de senhas do Protheus. Esta usa as funções PSWORDER, PSWSEEK e PSWRET :

static function SENHA (cParSenha)
aDaduser := {}
cOperador := space(15)
__cNivel := space(1)
if empty(cParSenha)
msgalert("Senha nao informada!")
return .f.
endif
psworder(3)
if pswseek(cParSenha, .t.)
aDaduser := pswret(nil)
cOperador := left (aDaduser[1,2],15)
__cNivel := substr(aDaduser[3,6],3,3)
lRetorno := .t.
else
msgalert("Senha invalida ou nao informada!")
lRetorno := .f.
endif
return lRetorno