Kann mir jemand diesen C++ Code in Delphi umwandeln?

[Robert Marquardt]

Versuch mal

Delphi-Quellcode:

  W[I] := Encoding[((a shl ((a and 1) and Integer(V[8-I]))) and $3F)+1]

und

Delphi-Quellcode:

  W[I] := Encoding[((a xor Integer(V[8-I])) and $3F)+1]

[Pseudemys Nelsoni]

hoi,

wow das geht schon FAST :)

nochmal eine frage, wenn ich in meinem tool jetzt "02580258" encrypte, ist das ergebnis "WkQkakQk"

also die Q's stimmen irgendwie nicht, das ergebnis müsste "WkGkakGk" sein, weisst du noch wo da der fehler liegt? in dem code kenn ich mich nicht so aus :(

danke für alles btw :)

[Robert Marquardt]

Da bin ich gerade ueberfragt und nicht in Stimmung mich reinzuknien.
Versuch mal Cardinal statt Integer bei der Umtypung.
Ansonsten morgen.

[Pseudemys Nelsoni]

hoi, ne auch mit Cardinal geht es nicht :\
Aber das mit morgen trifft sich gut, ich muss nämlich langsam mal ins bett, de ganze letzte nacht durchgemacht mit delphi :mrgreen:

btw, falls du morgen nochmal vorbeischaust, guck dir mal aus meinem anderem thread die datei hier an: http://www.delphipraxis.net/download.php?id=3711


die macht genau das wie es aussehen sollte, also die egerbnisse :)


danke für alles schonmal


gute "nacht" :zwinker:

[Robert Marquardt]

Tut mir leid ich habe kein RAR.

[Pseudemys Nelsoni]

hier als Zip im anghang

[scp]

So, hab mal verglichen, warum alle anderen ausser den Gs (Qs) richtig sind.
Der Unterschied ist, das bei Ord(V[I]) bzw. Integer(V[I]) bei den falschen eine ungerade Zahl ist, das heisst es stimmt was bei der oberen Formel nicht.

Edit:
Habs raus, eine Klammer war zu viel:

Delphi-Quellcode:

W[I] := Encoding[ ( ( a shl (a and 1) and Ord(V[8-I]) ) and $3F )+1 ];

[Pseudemys Nelsoni]

daaaanke euch beiden, jetzt funktionierts wie es soll :)

[Robert Marquardt]

Da merkt man wie man durch Pascal versaut wird ;-)
Da laesst mein C doch tatsaechlich nach. Dabei ist es die endeuting interessntere Sprache.

[Pseudemys Nelsoni]

"versaut"... nun mach delphi mal nicht so schlecht :mrgreen: