Algorytm szyfrowania

Chciałem przedstawić wam trochę inny algorytm szyfrowania. Nie będzie polegał na zmianie liter w alfabecie na inne, ani nie jest to XORowanie.
Algorytm ten odczytuje plik do zaszyfrowania po jednym bajcie. Następnie na podstawie jakiegoś szyfru dodaje do każdego kolejnego bajta wartość z jednej litery szyfru.
Nie wiem czy to jasno opisałem więc może przykładzik:

procedure TForm1.Szyfruj(PlikIn, PlikOut: String; kod: String);
var
  F1, F2 : TMemoryStream;
  FSize, i : LongInt;
  X : byte;
  dl, m, j : word;
begin
  dl := Length(kod);
  F1 := TMemoryStream.Create;
  F1.LoadFromFile(Plik);
  F1.Position:=0;
  FSize:= F1.Size;
  F2 := TMemoryStream.Create;
  F2.SetSize(FSize);

  For i to FSize-1 do
  begin
    F1.Read(X,1);
    m := i mod dl;
    For j:=0 to dl-1 do
      If (m=j) then X:=X+Ord(Kod[j]);
    F2.Write(X,1);
  end;
  F2.SaveToFile(PlikOut);
  F1.Free; F2.Free;
end;

Mam nadzieję, że teraz już wszystko jasne.
W pętki For j:=0... wykonuje się szyfrowanie pojedynczego bajtu z piku.
Funkcja Ord wyciąga wartość litery w kodzie ASCII.
Nie należy się martwić przekroczeniem wartości 255 w zmiennej X, ponieważ gdy osiągnie wartość wyższą od 255 zaczyna liczyć od 0. Tak więc gdy X= 200+120=65.
Gdy mamy kod np. 'god' to do
pierwszego bajtu pliku będzie dodana litera 'g',
do drugiego - 'o',
trzeciego - 'd',
czwartego znowu 'g' ,
piątego znowu 'o' itd.
Całej reszty chyba nie trzeba tłumaczyć?
Aha jest jeszcze jedna sprawa: gdy plik jest za długi (tzn. kilka MB) to czasami są błędy z zapisem.
Ja w swoich programie Kryptorator (można go ściągnąć z działu Programy) dodałem jeszcze zmienną TFileStream. Tak więc dane są kopiowane po bajcie z F1 do F2, a następnie w całości do TFileStream.
Dlaczego tak? Odpowiedź: Prędkość.
Gdybym po bajcie kopiował wszystko odrazu do TFileStream (czyli praktycznie odrazu na twardziela, a nie do RAMu) to prędkość przy kilku megabajtowych plikach mocno spada.
Dobra więc jak to zapisać?
Tu macie całą procedurę:

procedure TForm1.Szyfruj(PlikIn, PlikOut: String; kod: String);
var
  F1, F2 : TMemoryStream;
  F3 : TFileStream;
  FSize, i : LongInt;
  X : byte;
  dl, m, j : word;
begin
  dl := Length(kod);
  F1 := TMemoryStream.Create;
  F1.LoadFromFile(Plik);
  F1.Position:=0;
  FSize:= F1.Size;
  F2 := TMemoryStream.Create;
  F2.SetSize(FSize);

  For i to FSize-1 do
  begin
    F1.Read(X,1);
    m := i mod dl;
    For j:=0 to dl-1 do
      If (m=j) then X:=X+Ord(Kod[j]);
    F2.Write(X,1);
  end;
  F1.Position:=0;
  F2.Position:=0;
  F3 := TFileStream.Create(PlikOut,fmCreate);
  F3.CopyFrom(F2,FSize);
  
  F1.Free; F2.Free; F3.Free;
end;

W swoim Kryporatorze mam podobnie tylko przy szyfrowaniu dałem kilka komplikacji, podobnych do tej:

X:=X+Ord(Kod[j-dl]+i*j

No ale jak odszyfrować taki plik?
Dajemy identyczną procedurę tylko zamiast:

X:=X+Ord(Kod[j]);

dajemy: ```delphi X:=X-Ord(Kod[j]); ``` nasza skomplikowana wersja będzie wyglądać tak: ```delphi X:=X-Ord(Kod[j-dl]-i*j ```

No i chyba to już wszystko.