Pascal/Turbo Pascal - problemas con incriptacion de una contraseña

 
Vista:

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.

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 48
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

problemas con incriptacion de una contraseña

Publicado por dario (18 intervenciones) el 12/07/2019 05:30:33
Hola, te faltaba inicialzar la variable <con>. Te dejo tu mismo codigo arreglado.
Saludos.

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
28
29
30
31
32
program encriptacion;
uses crt;
const C='abc123';
var ch:char;
	con:string;
	cont:integer;
begin
	cont:=0;
 
	repeat
		Writeln('INGRESE CONTRASEÑA');
		ch:=readkey;
		con:='';
 
		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);
 
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

problemas con incriptacion de una contraseña

Publicado por Edsel (4 intervenciones) el 12/07/2019 08:00:54
Muchisimas gracias Dario. Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar