Italian Criptare una stringa compatibile con B4a e B4i

Sub DecryptAES(strDataToDecrypt As String, strKey As String) As String
 
    Dim SU As StringUtils
    Dim kg As KeyGenerator
    Dim C As Cipher
    Dim md As MessageDigest
    Dim Decrypted() As Byte
    kg.Initialize("AES")
    kg.KeyFromBytes(md.GetMessageDigest(strKey.GetBytes("UTF8"), "MD5"))
    
    C.Initialize("AES/ECB/PKCS5Padding")
 
    Dim Bytes() As Byte = SU.DecodeBase64(strDataToDecrypt)
    Decrypted = C.Decrypt(Bytes, kg.Key, False)
    Return BytesToString(Decrypted, 0, Decrypted.Length, "UTF8")

End Sub

 Sub Decrypt(encryptedData As String,key As String) As String
    
    Dim cifro As Cipher

    Dim ByteArray() As Byte
    Dim result() As Byte
    
    Dim s As StringUtils
    result=s.DecodeBase64(encryptedData)
    ByteArray = cifro.Decrypt(result , password)
    
    Return BytesToString(ByteArray, 0, ByteArray.Length, "UTF8")

End Sub

Dim Encrypted As String = EncrDecrBase64.Encr("confidential", "123456")
Log(EncrDecrBase64.Decr(Encrypted, "123456"))

Dim EncryptedData() As Byte =EncryptText(stringa,"toro1950")
        stringacriptata = su.EncodeBase64(EncryptedData)