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

zusammenfalten · markieren

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?

Zitat von Delphiturbo:

Ich möchte am Ende immer einen verschlüsselten Text aus 13 Zeichen erhalte und egal
wie lang der Text, der man gibt.

Geht nicht! Wenn er zu kurz ist kann man mit füllbytes arbeiten, aber wenn der Text zu lang ist kann man ihn nicht ohne verluste auf 13 Zeichen verkürzen.

Zitat von Bernhard Geyer:

Geht nicht! Wenn er zu kurz ist kann man mit füllbytes arbeiten, aber wenn der Text zu lang ist kann man ihn nicht ohne verluste auf 13 Zeichen verkürzen.

Doch, Warum nicht!
man kann z.B. in der Funktion eine weitere Variable hinzufügen und dann dies mit verschlüsseln

markieren

Delphi-Quellcode:

...
var k: string;
begin
k :='1234567890';
...
s := s + IntToHex(Ord(edit1[i]) + $85,2);
s:=s+k;
...

Man kann damit die minimale Länge der Verschlüsselung bestimmen
Man muss auch die maximale Länge auch fixieren !?

Ähm, wie willst du einen String, der z.B. 160 oder mehr Zeichen hat, auf 13 Zeichen - ohne Verlust - verschlüsseln?

Du könntest den String in Blöcken á 13 Zeichen verschlüsseln. Dann hast du aber mehrere 13-Zeichen lange Blöcke.