-
Lenguaje
Pascal
-
Descripción
Un banco ha solicitado se diseñe un programa que permita encriptar la información de las contraseñas (4 números) digitada por teclado (como un único numero) hasta el servidor principal, utilizando el siguiente criterio, el primer número se envía de último, el segundo, de penúltimo, el tercer numero pasa a la segunda posición, el último pasa a ser primero: ejemplo: Sea 6532, se debe enviar como 2356. Se debe garantizar que el usuario digite el número exacto de 4 cifras en caso contrario informar del error.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program ContrasenaEncriptadaDe4Numeros;
uses crt;
var contrasena, encriptacion : integer;
begin
write ('Ingresa el valor de contrasena: ');
readln (contrasena);
if (contrasena>=1000) and (contrasena<10000) then
begin
encriptacion := (contrasena mod 10000-contrasena mod 1000) div 1000+(contrasena mod 1000-contrasena mod 100) div 10+(contrasena mod 100-contrasena mod 10)*10+(contrasena mod 10)*1000;
end
else
begin
encriptacion := 0;
writeln ('Error');
end;
writeln ('Valor de encriptacion: ', encriptacion);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var contrasena, encriptacion : integer;
begin
write ('Ingresa el valor de contrasena: ');
readln (contrasena);
if (contrasena>=1000) and (contrasena<10000) then
begin
encriptacion := (contrasena mod 10000-contrasena mod 1000) div 1000+(contrasena mod 1000-contrasena mod 100) div 10+(contrasena mod 100-contrasena mod 10)*10+(contrasena mod 10)*1000;
end
else
begin
encriptacion := 0;
writeln ('Error');
end;
writeln ('Valor de encriptacion: ', encriptacion);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.