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
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 !?