GET de senha

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

GET de senha

Mensagem por JoséQuintas »

Procurei mas não consegui encontrar:
Lembro de ter visto algo sobre um GET pra senhas.
Tem isso ou estou enganado?
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

GET de senha

Mensagem por alxsts »

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().
[]´s
Alexandre Santos (AlxSts)
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

GET de senha

Mensagem por JoséQuintas »

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:" )
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar do usuário
janio
Colaborador
Colaborador
Mensagens: 1846
Registrado em: 06 Jul 2004 07:43
Localização: UBAJARA - CE

GET de senha

Mensagem por janio »

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
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Responder