Forum: Object-Pascal / Delphi-Language
Delphi
by neolithos,
15. Apr 2004
Vielleicht hilft dir das:
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) xor Ord(sKey));
Forum: Object-Pascal / Delphi-Language
Delphi
by neolithos,
14. Apr 2004
Was willst du genau?
Einen String in die einzelnen Bytes zerlegen aus dem er besteht!
var ab : array of byte;
Move(ab, PChar(sText)^, Length(sText));
Oder
Eine Zeichenfolge die eine Zahl repräsentiert in einen Integer wandeln.