problemas con incriptacion de una contraseña
Publicado por Edsel (4 intervenciones) el 11/07/2019 23:34:07
Hola. tengo que hacer un trabajo practico para la universidad y uno de los puntos propone ingrsar una contraseña donde se muentren asteriscos en vez de la letras y que la persona que los introduzca tenga como maximo 3 intentos. El problema que tengo es que cuando intoduzco primero mal la contraseña y luego bien dentro de los 3 intentos me dice que es inconrrecta la clave aunque sea correcta.
Aqui les adjunto el programa en pascal que he hecho.
Aqui les adjunto el programa en pascal que he hecho.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program encriptacion;
uses crt;
const C='abc123';
var ch:char; con:string; cont:integer;begin
cont:=0;
repeat
Writeln('INGRESE CONTRASEÑA');
ch:=readkey;
WHILE ch<>#13 DO
begin
con:=con+ch;
write('*');
ch:=readkey
end;
if (con=C) then
writeln('la contraseña es correcta')
else
begin
writeln('la contaseña es incorrcta');
cont:=cont+1;
end;
until (con=C) or (cont=3);
readkey;
end.Valora esta pregunta
0
