Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   DEC 5.2 Encrypt -> PHP/JS etc. Decrypt (https://www.delphipraxis.net/207238-dec-5-2-encrypt-php-javascript-etc-decrypt.html)

TurboMagic 8. Mär 2021 19:15

AW: DEC 5.2 Encrypt -> PHP/JS etc. Decrypt
 
Hallo,

im Development Zweig ist das meiste nun denke ich gefixt.
Nur für eine Sache in DECUtil.pas wäre Hilfe nett:
Da wird Low für eine String Operation verwendet damit es
mit und ohne ZeroBasedStrings unter NextGet etc. auch
funktioniert.

Wie muss das aussehen?

Grüße
TurboMagic

Klaus01 8. Mär 2021 19:28

AW: DEC 5.2 Encrypt -> PHP/JS etc. Decrypt
 
.. könntest Du nicht mit Low(String) feststellen ob zero based oder nicht.
Wenn 1 dann den Buffer ab 1 bearbeiten, wenn 0 dann von 0 an.

Grüße
Klaus

jus 8. Mär 2021 20:27

AW: DEC 5.2 Encrypt -> PHP/JS etc. Decrypt
 
@rapante:

Hast du dir den älteren Beitrag Delphi DEC Rijndael/AES zu PHP mcrypt angeschaut? Der Code lief unter Delphi2007 in Verbindung mit DEC 5.2. Bei mir hatte es damals funktioniert, dass ich zuerst mit DEC verschlüsselt und dann mit PHP wieder entschlüsselt habe. Ist zwar schon eine Weile her, aber soweit ich mich errinnern konnte mußte man beim Padding aufpassen. Sprich die Nachrichtengrösse sollte immer ein vielfaches von 16Byte betragen, damit DEC den selben Output wie PHP erzeugt.

lg,
jus

TurboMagic 8. Mär 2021 20:41

AW: DEC 5.2 Encrypt -> PHP/JS etc. Decrypt
 
Zitat:

Zitat von Klaus01 (Beitrag 1484687)
.. könntest Du nicht mit Low(String) feststellen ob zero based oder nicht.
Wenn 1 dann den Buffer ab 1 bearbeiten, wenn 0 dann von 0 an.

Grüße
Klaus

Das Problem ist doch, dass es diese Syntax in XE2 noch nicht gibt...
Aber mittels $IFDEF NEXTGEN sollte sich was machen lassen...

rapante 9. Mär 2021 10:09

AW: DEC 5.2 Encrypt -> PHP/JS etc. Decrypt
 
Zitat:

Zitat von TurboMagic (Beitrag 1484686)
Da wird Low für eine String Operation verwendet damit es
mit und ohne ZeroBasedStrings unter NextGet etc. auch
funktioniert.

Wie muss das aussehen?

Moin TurboMagic,
ich hatte das für mich jetzt so gelöst:

Delphi-Quellcode:
{$IFDEF XE3_OR_ABOVE}Low(Buffer){$ELSE}1{$ENDIF}


@jus
Den Beitrag hatte ich gesehen. Da ich von den Beispielen in DEC 5.2 ausgehend auch KDFx mit drin hatte, habe ich das auf der Gegenseite nicht hinbekommen. MCrypt wollte ich aber auch nicht weiterverfolgen, da deprecated.

Ich habe DEC 6.1.1 nun kompilieren können. Leider habe ich es noch nicht geschafft, meine Funktionen aus 5.2 nachzubilden...

In meinem aktuellen Projekt habe jetzt vorerst auf eine XOR-Verschlüsselung zurückgegriffen. Da ist sicher nicht optimal aber es muss da weitergehen ;)

Zitat:

Zitat von generic (Beitrag 1484682)
Mit AES was verschlüsseln, was dann via ASCII (URL-encodierbar) z.B. mit BASE64 übertragen werden kann.

rapante hast du schon irgendwas auf der PHP-Seite?

An einem Tutorial/konkreten Beispiel wäre ich sehr interessiert.
Ich hatte mir CryptoJS angeschaut, aber auch damit bin ich gescheitert. Das liegt vermutlich an meinen Wissenslücken. Ich werde mich bei nächster Gelegenheit intensiver damit beschäftigen müssen.

TurboMagic 10. Mär 2021 08:21

AW: DEC 5.2 Encrypt -> PHP/JS etc. Decrypt
 
Zitat:

Zitat von TurboMagic (Beitrag 1484690)
Zitat:

Zitat von Klaus01 (Beitrag 1484687)
.. könntest Du nicht mit Low(String) feststellen ob zero based oder nicht.
Wenn 1 dann den Buffer ab 1 bearbeiten, wenn 0 dann von 0 an.

Grüße
Klaus

Das Problem ist doch, dass es diese Syntax in XE2 noch nicht gibt...
Aber mittels $IFDEF NEXTGEN sollte sich was machen lassen...

Ein Fix ist nun im Developer Zweig.
Bitte mal testen ob jetzt wirklich alles compiliert. Danke!

TurboMagic 10. Mär 2021 18:44

AW: DEC 5.2 Encrypt -> PHP/JS etc. Decrypt
 
So, jetzt sollte ich endlich durch sein mit den Fixes.
Kann das mal jemand mit XE2 oder älter bitte compilieren und die Unit Tests ausführen?

Grüße
TurboMagic


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:53 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz