' this one fails,
Function Encrypt() As String
Dim result As String = ""
Dim data As Byte() = New UTF8Encoding(False).GetBytes("1")
Dim des As New TripleDESCryptoServiceProvider()
des.IV = Convert.FromBase64String("yKoS+M16uDU=")
des.Key = Convert.FromBase64String("QzWZyG+DImE=") ' => here is the problem, key is to short
result = Convert.ToBase64String(des.CreateEncryptor().TransformFinalBlock(data, 0, data.Length))
des.Clear()
Return result
End Function