Verschlüsselung funktioniert nur teilweise

[Thorben86]

Hi, Ich hab hier aus dem Forum nen code für ne XOR-Verschlüsselung rausgenommen, der code ist auch korrekt, da er bei der string-variable auch verschlüsselt, aber die Über:

Delphi-Quellcode:

IntToStr(punkte)

in String umgewandelte Integer Variable kommen nur So Zeichen, die Wie Rechtecke aussehen.

Vollständiger Code:

Delphi-Quellcode:

{Verschlüsselungs-Code}
procedure Tf_raten.verschluesseln(eingabe,schluessel:string);
var 
ndx : Integer;
begin
verschluesselt := '';
if (Length(eingabe) > Length(schluessel)) then
  begin 
   ShowMessage ('Der Schlüssel muss länger als der Text sein'); 
  end 
else 
  begin

   for ndx := 1 to Length (eingabe) do
    begin 
     verschluesselt := verschluesselt + Char (((ORD (eingabe[ndx])) XOR (ORD (schluessel[ndx]))));
    end;
    
  end;

end;

{Statistik}
procedure Tf_raten.statistik();
var ini:TiniFile;
name:string;

begin
name:=InputBox('Statistik', 'Bitte Namen eingeben', '');
if(name='') then
name:='Unbenannt';

   ini := TIniFile.Create(ExtractFilePath(Application.exename)+'Raten.dat');

   verschluesseln(InttoStr(rank),'1569273124'); //Klappt nit
   ini.WriteString(InttoStr(nummer),'Rank',verschluesselt);

   verschluesseln(InttoStr(punkte),'1569273124');//Klappt nit
   ini.WriteString(InttoStr(nummer),'Punkte',verschluesselt);

   verschluesseln(name,'1569273124');//Klappt
   ini.WriteString(InttoStr(nummer),'Name',verschluesselt);
   
   ini.UpdateFile;
   ini.free;
end;

Was muss ich machen, damit der die Zahlen auch umwandelt? :wiejetzt:
hab auch schon ne String-Variable genommen, darauf denn den Integer-wert in String umgewandelt, und diese dann eingesetzt, hate aber die selbe auswirkung :coder:

Hoffe das es die richtige Kategorie ist, sonst bitte verschieben.

[Thorben86]

Hab glaube ich die Lösung selbst gefunden, bei Zahlen muss ich glaube ich buchstaben als schlüssel einsetzen