Sub Encrypt(dataToEncrypt As String, key As String) As String
Dim c As Cipher
Dim bconv As ByteConverter
Dim opzioni As Int
Dim data(0) As Byte
Dim data2(0) As Byte
Dim iv(0) As Byte
iv = Array As Byte(1, 2, 3, 4, 5, 6, 7, 8) 'not the original iV
Dim kgBytes() As Byte
Dim pw() As Byte
Dim output As String
pw = bconv.StringToBytes(key, "UTF8")
kgBytes = c.GenerateKey(pw, "SHA-1", iv, 1)
data = bconv.StringToBytes(dataToEncrypt, "UTF8")
opzioni = Bit.OR(c.OPTION_ECBMode, c.OPTION_PKCS7Padding)
data2 = c.Encrypt2(data, kgBytes, "3DES", iv, opzioni)
output = bconv.StringFromBytes(data2, "UTF8")
Return output
End Sub