Pascal/Turbo Pascal - proyecto de encritapcion

   
Vista:

proyecto de encritapcion

Publicado por EJERCICIO DE PASCAL (1 intervención) el 19/06/2010 06:59:16
ejercicio

se desea que registre una serie de empleados para el uso del sistema se necesita: nombre, apellido, edad, nombre del usuario y clave puede tener de 10 a 20 caracteres y puede utilizar los 255 caracteres del codigo ASCII, pero por razones de seguridad se requiere encriptarla antes de almacenerla. tambien se nesecita un modulo para cambiar la clave si esta se olvida y uno para ver los datos del empleado (la clave debe verse encriptada). ademas para entrar al programa usted debe autentificar, es decir ingresar su nombre de usuario y su clave sin encriptar. haga distincion entre mayuscula y miniscula.

pregunta
alguien me puede ayudar a darme una idea para realizar ese ejercicio... urgente

esta es mas o menos la idea que tengo... pero solo imprimo la encritaccion... nose como hacer para q se vea encrictada

Nota esto es de otro ejercicio.... quiero saber si me ayuda esta forma ???

program encrir;
uses crt;
var
NomEmple:string;
Usuario:string;
claveE:string;
claveO:string;
Carat:string;
y:integer;
ConCar:integer;
x:integer;

procedure leer(var NomEmple,usuario,ClaveO:string);
begin

write('Nombre y Apellido:');
readln(NomEmple);

write('Usuario:');
readln(Usuario);

write('Clave:');
readln(ClaveO);
end;
procedure cambio(var ConCar:integer;var Carat:string; ClaveO:string;var ClaveE:string);

begin
claveE:=' ';
ConCar:=length(ClaveO);
if(ConCar>=3) and (ConCar<=10)
then
begin
for y:=1 to ConCar do

begin
if claveO[y]='a'
then
begin
Carat:='@';
ClaveE:=concat(ClaveE,Carat);
end

else if claveO[y]='e'
then
begin
Carat:='%';
ClaveE:=concat(ClaveE,Carat);
end

else if claveO[y]='i'
then
begin
Carat:='1';
ClaveE:=concat(ClaveE,Carat);
end

else if claveO[y]='o'
then
begin
Carat:='$';
ClaveE:=concat(ClaveE,Carat);
end

else if claveO[y]='u'
then
begin
Carat:='&';
ClaveE:=concat(ClaveE,Carat);
end

else
ClaveE:=ClaveE+ClaveO[y];
end;
end;

end;

procedure imprimir(ClaveE,NomEmple,Usuario,ClaveO:string);

begin
writeln('El nombre del empleado es: ',NomEmple);
Writeln('El nombre del usuario es:',Usuario);
writeln('La Clave Original es:',ClaveO);
writeln('La Clave Emcriptada es:',ClaveE);
end;

begin
for x:=1 to 200 do
begin
clrscr;
leer (NomEmple,Usuario,ClaveO);
cambio(ConCar,Carat,ClaveO,claveE);
imprimir(ClaveE,NomEmple,Usuario,ClaveO);
readkey
end;

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