cript.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 44 行

program criptare_decriptare;
procedure criptare(const sursa, dest:openstring);
var f1, f2:text;
    c1, c2: char;
begin
Assign(f1, sursa);
Assign(f2, dest);
Reset(f1);
Rewrite(f2);
while not Eof(f1) do
      begin
      Read (f1,c1);
      if (c1>=#32) and(c1<=#126)then
         c2:=chr(32+(ord(c1)-29)mod 95)
         else c2:=c1;
      write(f2,c2);
      end;
close(f1);
close(f2);
end;
procedure decriptare(const sursa, dest: openstring);
var f1, f2: text;
    c1, c2: char;
begin
Assign(f1, sursa);
Assign(f2, dest);
Reset(f1);
Rewrite(f2);
while not Eof(f1) do
      begin
      Read (f1,c1);
      if (c1>=#32) and(c1<=#126)then
         c2:=chr(32+(ord(c1)+60)mod 95)
         else c2:=c1;
      write(f2,c2);
      end;
close(f1);
close(f2);
end;
begin
criptare('t1.txt', 't2.txt');
decriptare('t2.txt', 't3.txt');
end.