Bonjour,

J'ai un petit code à transférer de VB.Net vers Delphi (2010).
Code vb.net : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Public Function Encode(ByVal input As Byte()) As Byte()
    Try
      Dim tAES = New RijndaelManaged()
      tAES.Key = _MyOwnKey
      tAES.Mode = CipherMode.ECB
      tAES.Padding = PaddingMode.Zeros
      Dim encryptor = tAES.CreateEncryptor()
      Return encryptor.TransformFinalBlock(input, 0, input.Length)
    Catch ex As Exception
      Return Nothing
    End Try
  End Function

J'ai installé LockBox, mais j'avoue que m'y perds un peu, il y a tellement de possibilités de chiffrement.

Merci.