[AND_REY]

Можно закодировать "страшным" алгоритмом)

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 S: String[32];
 F: TFileStream;
 i: Integer;
begin
 S:= Edit1.Text;
 F:= TFileStream.Create('1.trololo', fmCreate);
 For i:= 0 To 31 Do S[i]:= Chr(Not(Ord(S[i]) Xor $4F));
 F.Write(S, 32);
 F.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
 S: String[32];
 F: TFileStream;
 i: Integer;
begin
 F:= TFileStream.Create('1.trololo', fmOpenRead);
 F.Position:= 0;
 F.Read(S, 32);
 For i:= 0 To 31 Do S[i]:= Chr(Not(Ord(S[i]) Xor $4F));
 Edit1.Text:= S;
 F.Free;
end;