String -> Byte - wie geht das?

[Akut-Programming]

hmm, naja, dann komm ich wohl erstma nicht drumrum ne feste Zahl im Code für den Wert zuvergeben. :gruebel: Oder ich lass mir ne Vergleichszahl ausn System auslesen, was weiß ich CPUTakt+Seriennummer oder so und weiße dieße iKey zu. Dann könnte man die Datei nur auf dem PC lesen, wo man sie verschlüsselt gespeichert hat. hmm... :coder: na mal gucken

Gruß,

[neolithos]

Vielleicht hilft dir das:

Delphi-Quellcode:

sText := 'Dies ist ein sinnloser Text';
sKey := 'Hallo Welt';
sCode := '';
iKeyIndex := 1;

for i := 0 to Length(sText) do
    begin
      sCode := sCode + Chr(Ord(sText[i]) xor Ord(sKey[iKeyIndex]));
      Inc(iKeyIndex);
      if iKeyIndex > Length(sKey) then
         iKeyIndex := 1;
    end;

Achtung: Die Zeichenkette kann mit unter nicht dargestellt werden, da Sie #0-Zeichen enthalten könnte.