{Empezamos con esto pero solo si esta codificado como el archivo texto.txt}
program decifrado;
uses
crt;
const
archiv = '.txt';
letras : array[1..2,1..26] of char = ((
'A','B','C','D','E','F','G','H','I','J','K','L','M','N',
'O','P','Q','R','S','T','U','V','W','X','Y','Z'),
('a','b','c','d','e','f','g','h','i','j','k','l','m','n', 'o','p','q','r','s','t','u','v','w','x','y','z'));
var
tex : text;
j, da : char;
cont, i : integer;
eltext : array['A'..'Z'] of integer;
function mas_repetida(nom : string) : char;
begin
assign(tex,nom);
{$I-} reset(tex); {$I+} if ioresult <> 0 then
begin
writeln(' Archivo ',archiv,' No Encontrado Pulse Una Tecla'); readkey;
end
else
begin
fillchar(eltext,sizeof(eltext),0);
while not eof(tex) do
begin
read(tex,j);
eltext[upcase(j)] := eltext[upcase(j)] + 1;
end;
close(tex);
cont := 0;
j := ' ';
for da := 'A' to 'Z' do
if cont < eltext[da] then
begin
cont := eltext[da];
j := da;
end;
mas_repetida := j;
end;
end;
function saltos(t : char) : integer;
begin
saltos := (ord(t) - ord('E')); end;
procedure texto_real;
var
salt : integer;
nombre : string;
begin
writeln(' Entre Nombre Archivo Sin Extension'); writeln;
write(' nombre : '); readln(nombre);
nombre := nombre + archiv;
salt := saltos(mas_repetida(nombre));
assign(tex,nombre);
{$I-} reset(tex); {$I+} if ioresult <> 0 then
begin
writeln(' Archivo ',nombre,' No Encontrado Pulse Una Tecla'); readkey;
end
else
begin
clrscr;
writeln(' La Traducion Del Archivo ',nombre,' Es'); writeln;
j := ' ';
while not eof(tex) do
begin
read(tex,j);
if j in['A'..'Z'] then
write(letras[1,(ord(j) - 64) - salt]);
if j in['a'..'z'] then
write(letras[2,(ord(j) - 96) - salt]);
if j in['.',' ',',',':',';'] then
write(j);
end;
close(tex);
end;
end;
begin
clrscr;
texto_real;
readkey;
end.
Crear cuenta
