konstante länge der Verschlüsselung

[Delphiturbo]

Hi

mit der Funktion wird der Text verschlüsselt und anschließend in hex umgewandelt
Ich möchte am Ende immer einen verschlüsselten Text aus 13 Zeichen erhalte und egal
wie lang der Text, der man gibt.

Normalerweise je länger der Text ist, desto länger wird auch der verschlüsselte Text

Delphi-Quellcode:

function Meineverschuesselung(edit1:string):string;
var s : string;
i : integer;
begin
If Length(edit1) > 0 then begin  
For I := 1 to Length(edit1) do   
s := s + IntToHex(Ord(edit1[i]) + $85,2);
                                        
result := s
end else result := 'Es wurde keinen Text eingegeben';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=Meineverschuesselung(Edit1);
end;

Gibt es eine Idee?