Delphi-PRAXiS - Entschlüsselung PHP / Delphi

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)

- - Entschlüsselung PHP / Delphi (https://www.delphipraxis.net/204934-entschluesselung-php-delphi.html)

Entschlüsselung PHP / Delphi

Guten Tag,

ich habe gerade ein Problem wo ich nicht so richtig weiter komme, da ich nicht weiß, was ich tue.
Meine Aufgabe ist es, von einem Datenlogger die verschlüsselten Daten abzufragen und zu archivieren.

Und genau an der Verschlüsselung scheitere ich momentan.

Der Hersteller hat einen Pythoncode zur Verfügung gestellt um die Daten entschlüsseln zu können:

Code:

			// originaler Herstellercode

==============================================================

def pad(data):

    length = 16 - (len(data) % 16)

    return data + chr(length)*length

def unpad(data):

    return data[:-ord(data[-1])]

def decodeMessage(msgb64):

    try:

        # first step decode base64

        msg = base64.b64decode(msgb64)

        # second step decode AES

        key = airqpass.encode('utf-8')

        if len(key) < 32:

            for i in range(32-len(key)):

                key += b'0'

        elif len(key) > 32:

            key = key[:32]

        cipher = AES.new(key=key, mode=AES.MODE_CBC, IV=msg[:16])

        return unpad(cipher.decrypt(msg[16:]).decode('utf-8'))

    except ValueError:

        return "Passwort falsch!"

    except Exception as e:

        print('Error - '+str(type(e))+' '+str(e))

Da ich jetzt kein ausgesprochener Verschlüsselungsexperte bin, habe ich ein wenig im Internet recheriert und verschiedene Lösungsansätze ausprobiert.
Der folgende Code schien mir noch am Sinnvollsten zu sein:

Code:

			procedure Tform1.Decryption(str1 : ansistring);

var Cipher : TDCP_rijndael;

    Data, Key, IV : ansistring;

    index, dataLength, bsize, pad: integer;

begin

 data := DCPBase64.Base64DecodeStr(Str1);

  key := 'passwort';

  IV  := copy(data,1,16);

  Data := copy(data,17,length(data));

  Cipher := TDCP_rijndael.Create(nil);

  try

    Cipher.Init(Key[1],128,@IV[1]);

    cipher.BlockSize := 16;

    //don't miss padding

    {start padding}

    dataLength := Length(Data);

    bsize := (Cipher.BlockSize div 8);

    pad := bsize - (dataLength mod bsize);

    for index := 1 to pad do

      Data := Data+chr(pad);

    {end padding}

    Cipher.decryptCBC(Data[1],Data[1],Length(Data));

  finally

    Cipher.Free;

  end;

  Memo_Plaintext.Lines.Add(Data);

end;

Leider kommt aber nie irgendein sinnvolles Ergebnis dabei heraus. Für Hilfestellungen bin ich echt dankbar, da ich schon eine geraume Zeit versuche dieses Problem zu lösen. :oops: