PC Toledo

Procurei mas não consegui encontrar:
Lembro de ter visto algo sobre um GET pra senhas.
Tem isso ou estou enganado?

Olá!

Sim, diante da necessidade, na época criaram algumas coisas com o pré processador (#command), gerando o @ row,col GET xVar PASSWORD... Tem até um exemplo do Toledo aqui no fórum. Tem um exemplo no Oasis (arquivo de nome pass.zip e mais dois outros).

Na CA-Tools, tem a GetSecret().

Valeu. Vou usar GetSecret() da hbct que faz parte do Harbour padrão.

Código: Selecionar todos

LOCAL cSenha := Space(10)
cSenha := GetSecret( cSenha, 10, 20, , "Digite senha:" )

Ha anos eu uso assim:

Código: Selecionar todos

vSenha := Space(06)

@ 10,05 GET vSENHA PICT "@!" 
ATAIL(GETLIST):READER := {|BL1|GETSEN(BL1)}  // Pega csenha e mostra *
READ

PC Toledo

GET de senha

GET de senha

GET de senha

GET de senha

GET de senha