Sub Decrypt(encryptedData As String, KeyNo As Int ) As String
Dim kg As KeyGenerator
Dim c As Cipher
Dim B64 As Base64
Dim Bconv As ByteConverter
Dim data(0) As Byte
Dim iv(0) As Byte
iv = KeysIV
Try
c.Initialize("DESEDE/CBC/NoPadding") '"DESEDE/CBC/PKCS5Padding") '
c.InitialisationVector = iv
kg.Initialize("DESEDE")
kg.KeyFromBytes(Keys.Get(KeyNo))
data = B64.DecodeStoB(encryptedData)
data = c.Decrypt(data, kg.Key, True)
Catch 'decrypt failed
Return encryptedData
End Try
Return Bconv.StringFromBytes(data, "UTF8")
End Sub