PQ????
Ou seja, ele analisa se a senha correta está dentro da senha digitada e não se a senha correta é exatamente igual a senha digitada...
Valeu pela ajuda...
Segue codfon...
Código: Selecionar todos
local ink := 0
local senre := "1a2b3c"
local senink := space(0)
local tempink := space(2)
local contink := 39
@ 8,13 to 14,61
@ 10,15 say "----> Sistema de Controle Financeiro Pessoal."
@ 12,15 say " Senha de Acesso:"
set color to n/w
@ 12,40 clear to 12,49
do while ink<>13
if contink>48
exit
else
contink := contink + 1
end if
ink := inkey(0)
@ 12,contink say "*"
tempink := chr(ink)
senink := senink + tempink
end do
if senink==senre
? "Senha correta"
inkey(0)
elseif senink<>senre
? "Senha incorreta"
quit
end if
))