|
| Débuté par Francois DUSSUET, 19 mar. 2026 14:31 - Aucune réponse |
| |
| | | |
|
| |
| Posté le 19 mars 2026 - 14:31 |
Bonjour
Est-ce quelqu'un peut me traduire ce code VB en code WINDEV?
Merci d'avance!
FD
Public Function Decryption(ByVal InputStr As String, ByVal CryptKey As String) As String
'Décoder les données du Web Service
'Advanced Encryption Standard (Rijndael)
Dim AES As RijndaelManaged
Dim Buffer() As Byte
Dim EncryptedBytes() As Byte
Dim EncryptedBytesWithIV() As Byte
Dim IVBytes As Byte()
Const KEY_LENGTH As Integer = 16
Const IV_LENGTH As Integer = 16
Decryption = ""
Try
If CryptKey.Length = KEY_LENGTH Then
'décoder Base64
EncryptedBytesWithIV = Convert.FromBase64String(InputStr)
'Séparer le vecteur init et données
IVBytes = New Byte(IV_LENGTH - 1) {}
EncryptedBytes = New Byte(EncryptedBytesWithIV.Length - IVBytes.Length - 1) {}
Array.Copy(EncryptedBytesWithIV, 0, IVBytes, 0, IVBytes.Length)
Array.Copy(EncryptedBytesWithIV, IVBytes.Length, EncryptedBytes, 0, EncryptedBytes.Length)
'INIT Crypto Provider
AES = New RijndaelManaged
AES.Mode = CipherMode.CBC
AES.KeySize = 128
AES.BlockSize = 128
AES.Padding = PaddingMode.PKCS7
AES.Key = System.Text.Encoding.Default.GetBytes(CryptKey)
AES.IV = IVBytes
'Décoder les données
Buffer = AES.CreateDecryptor().TransformFinalBlock(EncryptedBytes, 0, EncryptedBytes.Length)
Decryption = System.Text.Encoding.UTF8.GetString(Buffer)
End If
Catch ex As Exception
AutoiDecryption = ""
End Try
End Function |
| |
| |
| | | |
|
| | | | |
| | |
|