1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

procedure TForm1.Button1Click(Sender: TObject);
const
  DateiLaenge = 100;
  DateiPos  = 57;
  NamensLaenge = 16;
//Gesamtlaenge = 2*NamensLaenge+4;
  DateiName ='C:test.xex';
var
  FS : TFileStream;
  i,RandStart : integer;
  strText,
  strErsatzText : string;
begin
  randomize;

  IF Not(FileExists(DateiName)) then
    begin
    FS := TFIleStream.Create(DateiName,fmCreate);
    strtext := StringOfChar('-',DateiLaenge);
    FS.Write(strText[1],length(strText));
    FS.Free;
    end;
  FS := TFIleStream.Create(DateiName,fmOpenReadWrite);
  FS.Position := DateiPos;
  RandStart := randseed;
  strtext := StringOfChar(' ',NamensLaenge);
  strErsatzText := Edit1.Text;
  Move(strErsatzText[1],strText[1],length(strErsatzText));
  strErsatzText := strText;
  For i := 1 to NamensLaenge do
    strErsatzText[i] := chr(ord(strErsatzText[i]) XOR random(256));
  FS.Write(Pointer(@RandStart)^,SizeOf(RandStart));
  FS.Write(strText[1],NamensLaenge);
  FS.Write(strErsatzText[1],NamensLaenge);
  Fs.Free;

  Memo1.lines.LoadFromFile(DateiName);
  //So kommt man wieder an des Namen
  FS := TFIleStream.Create('C:test.xex',fmOpenRead);
  FS.Position := DateiPos;
  FS.Read(Pointer(@RandStart)^,SizeOf(RandStart));
  FS.Read(strText[1],NamensLaenge);
  FS.Read(strErsatzText[1],NamensLaenge);

  RandSeed := RandStart;
  For i := 1 to NamensLaenge do
    strErsatzText[i] := chr(ord(strErsatzText[i]) XOR random(256));
  Memo1.lines.Add('Original '+strText);
  Memo1.lines.Add('Kontrolle '+strErsatzText);
  FS.Free;

end;