How am I supposed to use Blowfish ?

[TegFu]

Looking at the code in uTPLb_BlowFish, I need to use TBlowFish.GenerateKey, to then be able to use the generated data in Blowfish_Encrypt ? But everything is private so I don't know how I'm supposed to actually use it ?

[TegFu]

Okay I managed to figure out some things by straight-up reading the code.

  Codec := TCodec.Create(nil);
  Codec.CryptoLibrary := TCryptographicLibrary.Create(nil);
  Codec.StreamCipherId := BlockCipher_ProgId;
  Codec.BlockCipherId := Blowfish_ProgId;
  Codec.ChainModeId := CBC_ProgId;
  SetLength(LBKeyBytes, 34);
  Move(keyBytes[0], LBKeyBytes[1], 32); // keyBytes = SHA1('pass') + MD5('pass')
  LBKeyBytes[0] := 32; // Length of the key
  LBKeyBytes[33] := 0; // Does the key contain the stores
  setIV := TIVZero.Create();
  Codec.OnSetIV := setIV.SetIV;
  Codec.InitFromStream(TBytesStream.Create(LBKeyBytes));
  Codec.EncryptString('ABCDEFGH', outputText, TEncoding.UTF8);

I'm still missing the option to disregard padding (ie encrypting 'AB' here should lead to an output of 0xE214 ; for now I'm getting 0xE22F and it changes as I add characters up until I get to 8, at which point it becomes correct : 0x92D48AB3B9F991FA).

Thanks :)

[TegFu]

Other question : I noticed that encoding the same thing 3 times gives a different output, despite me creating a new TCodec and a new TCryptographyLibrary everytime. What gives ?