Sub Encrypt(Msg As String) As String
Dim op As Int
Dim Bconv As ByteConverter
Dim data(0) As Byte
Dim iv(0) As Byte
Dim ivtxt As String="@" & Main.RandomString(15,True,True,True,"")
iv = ivtxt.GetBytes("UTF8")
data = Bconv.StringToBytes(Msg, "UTF8")
op = Bit.Or(c.OPTION_ECBMode, c.OPTION_PKCS7Padding)
data = c.Encrypt2(data, key,"AES",iv, op)
Dim newarr(iv.Length + data.Length) As Byte
Bconv.ArrayCopy(iv,0,newarr,0,iv.Length)
Bconv.ArrayCopy(data,0,newarr,iv.Length,data.Length)
Dim result As String
result=su.EncodeBase64(newarr)
Return result
End Sub