Chislo Textfile Crypter

private
    { Private declarations }
    function Chislo: integer;
    
//

function TForm1.Chislo: integer;
var i: integer;
begin
  for i:=0 to Length(Edit1.Text) do
  result:=result+Ord(Edit1.Text[i])+17;
end;

procedure TForm1.Button1Click(Sender: TObject);
var v: byte; u: integer; f,t: TStream;
begin
    f := TFileStream.Create('1.nfo',fmOpenRead);
    //Memo1.Lines.LoadFromStream(f);
    t := TFileStream.Create('2.txt',fmCreate);
    for u:=0 to f.Size-1 do
     begin
      f.Position:=u; t.Position:=u; f.Read(v,1);
      v:=v+((u*85)-u+Chislo+28*u+(2*u+5-u-1)); t.Write(v,1);
     end;
    t.Free; f.Free;
end;

Beispiel :

procedure TForm1.Button2Click(Sender: TObject);
var v: byte; u: integer; f,t: TStream;
begin
    f := TFileStream.Create('2.txt',fmOpenRead);
    t := TFileStream.Create('3.txt',fmCreate);
    for u := 0 to f.Size-1 do
     begin
      f.Position := u;
      t.Position := u;
      f.Read(v,1);
      v := v - ((u * 85) - u+ Chislo + 28 * u +(2 * u + 5 - u - 1));
      t.Write(v,1);
     end;
    t.Free;
    f.Free;
end;