🚀 go-pugleaf

PROGRAM szyfr;
CONST
 n = 2048;
VAR
 buf,key  :ARRAY [1..n] OF byte;
 f        :FILE;
 s1,s2    :string;
 i        :word;
 io       :word;
 res      :word;
BEGIN
 write('Podaj nazwe pliku : '); readln(s1);

 { Plik z kluczem ma nazwe taka jak szyfrowany,
   ale na ostatnim znaku - tylda }
 s2:=s1; s2[length(s2)]:='~';
 assign(f,s2);
 {$I-} reset(f,1); io:=ioresult; {$I-}
 IF io = 0 THEN
  blockread(f,key,n)
 ELSE
 BEGIN
  rewrite(f,1);
  randomize;
  FOR i:=1 TO n DO key[i]:=random(256);
  blockwrite(f,key,n);
 END;
 close(f);

 assign(f,s1); reset(f,1); res:=n;
 WHILE NOT (eof(f) OR (res < n)) DO
 BEGIN
  blockread(f,buf,n,res);
  FOR i:=1 TO res DO buf[i]:=buf[i] XOR key[i];
  k1:=filepos(f);
  seek(f,k1-res);
  blockwrite(f,buf,res);
 END;
 close(f);
END.

Tylko, że to naprawdę jest dobre u cioci na imieninach - taki szyfr złamie
każdy, kdo zna choć podstawy kryptografii ...

Pozdrawiam.
Piotr.