Public Sub AES_DecryptB4A(data As String, secretkey 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(secretkey.GetBytes("UTF8"), "MD5"))
C.Initialize("AES/ECB/PKCS5Padding")
Dim Bytes() As Byte = SU.DecodeBase64(data)
Decrypted = C.Decrypt(Bytes, kg.Key, False)
Return BytesToString(Decrypted, 0, Decrypted.Length, "UTF8")
End Sub