ECOAR ASTERISCO NO CADASTRO DE SENHA COMO!

[vaninho]

Amigos do Fórum, preciso muito da ajuda de vocês, preciso ecoar asterisco quando o usuario for digitar a senha para cadastro, o asterisco seria somente uma mascara para que ninguém identifique a senha quando for digidata, e para gravar no bco de dados a senha pode ser o que foi digitado sem os asteriscos.

alguém pode me ajudar nesta rotina.

eu uso esta rotina abaixo para cadastro de senha.
o que posso acrescentar nela para que possa ecoar o asterisco como mascara, tenho que fazer alguma function se tenho como!.

Do while.t.
wSenha=Space(6)
Read
Use usuario shared index nmusu
Seek vusuario
If found()
Identificação já Utilizada
Loop
Endif

@ 18,42 get wSenha pict “@!”
read
@ say confirma os dados !
if confirma= “s”
APPE BLANK
REPLACE SENHA WITH WSENHA
ENDIF
ENDDO

PRECISO URGENTE DE UMA DICA.
PORQUE É A PRIMEIRA VEZ QUE VOU UTILIZAR ASTERISCO EM SENHA para cadastro, NÃO TENHO ESPERIÊNCIA.

Agradeço desde já a quem me ajudar é muito urgente para mim.

[scom]

use a Funcao

SENH := GETSECRET(SPACE(6),13,35,.T.)

[vagucs]

Vaninho, no meu site tem uma contribuição de um amigo, uma rotina especial onde os asterisco são ecuados durante o getsys, é incrível a função. pegue lá.

Sem mais
Wagner Nunes
www.vagucs.com.br