See "Enter a string : " give cStr
cKey="" # 16 bytes
for x = 0 to 15
cKey += char(x)
next
cIV = ""
for x = 1 to 16
cIV += char(x)
next
cStr = Encrypt(cStr,cKey,cIV,"aes128")
See "Cipher Text : " + cStr + nl +
"Plain Text : " + Decrypt(cStr,cKey,cIV,"aes128") + nl