|
(Moderator)
Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
Delphi 11 Alexandria
|
Re: c++ Code nach Delphi portieren
11. Jul 2009, 10:55
Oder das als weiteres Modulo implemnetieren:
txt[x] := Chr( (BYTE(Ord(txt[x]) + (3 xor (X-1)) * ((X-1) mod 15)) ) mod 255);
Markus Kinzler
|