PHP Lazarus kodiranje-dekodiranje

http://forum.lazarus.freepascal.org/index.php?topic=36618.0

As for proof ...

Pascal version:

Code: Pascal  [Select]

1. program plip;
3. {$MODE OBJFPC}{$H+}
5. uses
6.   SysUtils
7.   DCPcrypt2, DCPrijndael, DCPbase64;
10. function BinStr2Hex(S: AnsiString): AnsiString;
11. var
12.   i: integer;
13. begin
14.   Result := '';
15.   for i := 1 to Length(S)
16.     do Result := Result + LowerCase(HexStr(Byte(S[i]), 2));
17. end;
20. var
21.   Cipher : TDCP_rijndael;
22.   Key    : AnsiString;
23.   IV     : AnsiString;
24.   Data   : AnsiString;
26.   CBC    : AnsiString;
27.   ECB    : AnsiString;
28.   Buffer : AnsiString;
30. begin
31.   Data := 'Hello World_____';
32.   Key  := '1234567890______';
33.   IV   := '______1234567890';
35.   Cipher := TDCP_rijndael.Create(nil);
36.   Cipher.Init(Key[1], 128, @IV[1]);
37.   SetLength(Buffer, Length(Data));
38.   Cipher.EncryptECB(Data[1], Buffer[1]);
39.   Cipher.Free;
40.   ECB := Buffer;  
42.   Cipher := TDCP_rijndael.Create(nil);
43.   Cipher.Init(Key[1], 128, @IV[1]);
44.   SetLength(Buffer, Length(Data));
45.   Cipher.EncryptCBC(Data[1], Buffer[1], Length(Data));
46.   Cipher.Free;
47.   CBC := Buffer;
49.   WriteLn('KEY        : ', Key             , ' (', Length(Key) , ')');
50.   WriteLn('IV         : ', IV              , ' (', Length(IV)  , ')');
51.   WriteLn('DATA       : ', Data            , ' (', Length(Data), ')');
52.   WriteLn;  
53.   WriteLn('ECB        : ', BinStr2Hex(ECB) , ' (', Length(ECB) , ')');
54.   WriteLn('CBC        : ', BinStr2Hex(CBC) , ' (', Length(CBC) , ')');
55.   WriteLn;  
56.   ECB := Base64EncodeStr(ECB);
57.   WriteLn('ECB_BASE64 : ', ECB             , ' (', Length(ECB) , ')');
58.   CBC := Base64EncodeStr(CBC);
59.   WriteLn('CBC_BASE64 : ', CBC             , ' (', Length(CBC) , ')');
60. end.

php version:

Code: PHP  [Select]

1. <?php
3.   $DATA = "Hello World_____";
4.   $KEY  = "1234567890______";
5.   $IV   = "______1234567890";
7.   $ECB = mcrypt_ecb(MCRYPT_RIJNDAEL_128,$KEY,$DATA,MCRYPT_ENCRYPT,$IV);
8.   $CBC = mcrypt_cbc(MCRYPT_RIJNDAEL_128,$KEY,$DATA,MCRYPT_ENCRYPT,$IV);
10.   echo "KEY        : ".$KEY." (".strlen($KEY).")"."\n";
11.   echo "IV         : ".$IV." (".strlen($IV).")"."\n";
12.   echo "DATA       : ".$DATA." (".strlen($DATA).")"."\n";
13.   echo "\n";
14.   echo "ECB        : ".bin2hex($ECB)." (".strlen($ECB).")"."\n";
15.   echo "CBC        : ".bin2hex($CBC)." (".strlen($CBC).")"."\n";
16.   echo "\n";
17.   $ECB = base64_encode($ECB);
18.   echo "ECB_BASE64 : ".$ECB." (".strlen($ECB).")"."\n";
19.   $CBC = base64_encode($CBC);
20.   echo "CBC_BASE64 : ".$CBC." (".strlen($CBC).")"."\n";
22. ?>

Pascal output

Code: [Select]

KEY        : 1234567890______ (16)
IV         : ______1234567890 (16)
DATA       : Hello World_____ (16)

ECB        : aeb97e57a968e70c22bdfc335591b9c6 (16)
CBC        : 8d0d7e91e4d0cdad7a77727c96a124f5 (16)

ECB_BASE64 : rrl+V6lo5wwivfwzVZG5xg== (24)
CBC_BASE64 : jQ1+keTQza16d3J8lqEk9Q== (24)
php output

Code: [Select]

KEY        : 1234567890______ (16)
IV         : ______1234567890 (16)
DATA       : Hello World_____ (16)

ECB        : aeb97e57a968e70c22bdfc335591b9c6 (16)
CBC        : 8d0d7e91e4d0cdad7a77727c96a124f5 (16)

ECB_BASE64 : rrl+V6lo5wwivfwzVZG5xg== (24)
CBC_BASE64 : jQ1+keTQza16d3J8lqEk9Q== (24)
So, once you have a solid base then you can start thinking about messing around with data that doesn't match up the requirements, therefor needs (zero-)padding, and requires fixing up the mess that base64_encode/decode functions made out of things.

And we haven't even started actually sending/receiving data over the interwebs or hashing a key... oh, you want to use ssl as well you said ? 

Therefor it would be recommended to build on top of what you know is working and take small steps from there to see where things might go amiss. It might perhaps sound tedious to do but that is the only way you are able to figure out where exactly things go wrong (if they go wrong) and be able to 'fix' in  case it requires fixing.

edit: php code and output matching

« Last Edit: April 28, 2017, 03:32:16 pm by molly »