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?