Dim dataToDecrypt As String = "�q�!DAZ��R��:f/�Ŝ��h�U�0h�V��ƅHw��s�Č)�o�yZ��%v��_,"
Dim kg As KeyGenerator
Dim C As Cipher
Dim decrypted() As Byte
Dim BConv As ByteConverter
decrypted = dataToDecrypt.GetBytes("UTF8")
Dim Key As String = "0123456789ABCDEF" ' this is the same key that encrypted the string that was sent
kg.Initialize("AES")
kg.KeyFromBytes(Key.GetBytes("UTF8"))
C.Initialize("AES/ECB/NoPadding") ' not 100% sure on the NoPadding part
decrypted = C.Decrypt(decrypted, kg.Key, False)
Log("Decrypt = " & BConv.StringFromBytes(decrypted, "UTF8"))