c++ Code nach Delphi portieren

[SirThornberry]

Der Code funktioniert in Delphi mit normalen AnsiStrings eventuell nicht.
Und das erkennt man eben daran:

Code:

if(string[x] > (0xff))

Denn ein einzelnes Zeichen kann in Delphi keinen Wert größer 255 haben. Allerdings kann es auch sein das ein normaler String doch geht, denn beim Überlauf passiert genau das gleiche. Denn wenn auf 255 beispielsweise 2 addiert werden kommt 257 raus was bei einem Überlauf eine 1 wäre.
Und das gibt eben das gleiche wie 257 - 256.

Wenn man das ganze also mit einem älteren Delphi macht sollte es ohne diese Prüfung funktionieren. Verwendet man jedoch eine Version wo ein Zeichen einen Wert größer 255 annehmen kann (unicode zum Beispiel) so muss eben die Korrektur manuell gemacht werden. Es wäre also interessant zu wissen welche Delphiversion verwendet wird (wurde im Profil ja leider nicht angegeben).

[Mithrandir]

Aber dann wäre interessant zu wissen, warum die Ausgaben aus C und Delphi so unterschiedlich sind. Zumal sich in Delphi ein Muster erkennen lässt, in C aber nicht...

[turboPASCAL]

Sodele...

Delphi-Quellcode:

function Encrypt(var txt: string): bool;
var x: byte;
begin
  for x := 1 to length(txt) do
  begin
    txt[x] := Chr( BYTE(Ord(txt[x]) + round(Power(3, x)) * (x mod 15)) );
    if Ord(txt[x]) >= 255 then
    begin
      txt[x] := Chr( Ord(txt[x]) - 255 );
    end;
  end;
  Result := True;
end;

[Mithrandir]

Zitat von turboPASCAL:

Sodele...

Du bist süß:

Zitat von igel457:

"^" ist nicht Power! "^" ist ein Bitweises XOR.

Und damit haben wir wieder den Delphi-Output, den Tobi in #8 angegeben hat.

[SirThornberry]

Fast richtig. In C++ läuft die schleife von 0 bis Length - 1, in Delphi jedoch von 1 bis Length. Die schleifenvariable wird jedoch für die Verschlüsselung verwendet In C++ werden also zur Verschlüsselung die Werte 0,...,length - 1 verwendet und bei den gezeigten Delphicodes 1,...,length was zu unterschiedlichen Werten führt.

[Mithrandir]

Jepp, so isses, und diese Funktion produziert denselben Output wie die Variante in C:

Delphi-Quellcode:

function Encrypt(var txt: string): bool;
var x: byte;
begin
  for x := 1 to length(txt) do
  begin
    txt[x] := Chr( BYTE(Ord(txt[x]) + (3 xor (X-1)) * ((X-1) mod 15)) );
    if Ord(txt[x]) >= 255 then
    begin
      txt[x] := Chr( Ord(txt[x]) - 255 );
    end;
  end;
  Result := True;
end;

[MasterTobi]

ihr assis xD

genau das letzte funktioniert

ich hätte nie gedacht das sich soviele darüber ein kopf machen

deswegen danke ich hier allen =) VIELEN DANK

[Mithrandir]

Zitat von MasterTobi:

ich hätte nie gedacht das sich soviele darüber ein kopf machen

Ich auch nicht.

[SirThornberry]

STOP - die Funktion oben ist Fehlerhaft
genau gesagt ist folgendes fehlerhaft:

Delphi-Quellcode:

if Ord(txt[x]) >= 255 then 
begin 
  txt[x] := Chr( Ord(txt[x]) - 255 ); 
end;

richtig ist

Delphi-Quellcode:

if Ord(txt[x]) > 255 then 
begin 
  txt[x] := Chr( Ord(txt[x]) - 256 ); 
end;

Wobei der Compiler bei alten Delphiversionen da eben (wie bereits erwähnt) eine Warnung ausgeben wird weil der Wert niemals größer 255 sein kann bei AnsiStrings.
am besten also txt als AnsiString definieren und dann kann

Delphi-Quellcode:

if Ord(txt[x]) > 255 then 
begin 
  txt[x] := Chr( Ord(txt[x]) - 256 ); 
end;

weg gelassen werden.

[mkinzler]

Oder das als weiteres Modulo implemnetieren:
txt[x] := Chr( (BYTE(Ord(txt[x]) + (3 xor (X-1)) * ((X-1) mod 15)) ) mod 255);