Public Sub AES_Encrypt(DataToEncrypt As String) As String
Dim poKG As KeyGenerator
Dim poCy As Cipher
Dim poBC As ByteConverter
Dim poData() As Byte
' doing AES
poCy.Initialize("AES")
' set InitializationVector value
poCy.InitialisationVector = poBC.StringToBytes(USER_IV16, "utf8")
' Generate a key
poKG.Initialize("AES")
poKG.KeyFromBytes(poBC.StringToBytes(USER_KEY, "utf8"))
' encrypt the string into a byte array
poData = poCy.Encrypt(poBC.StringToBytes(DataToEncrypt, "utf8"), poKG.Key, True)
' convert the byte array to a HEX string and return it
Return poBC.HexFromBytes(poData)
End Sub