Public Class Form1
    Public Shared Function smethod_20(ByVal value As String, ByVal key As String) As String
        Try
            Dim tripleDESCryptoServiceProvider As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider()
            tripleDESCryptoServiceProvider.IV = New Byte(8) {}
            Dim passwordDeriveBytes As PasswordDeriveBytes = New PasswordDeriveBytes(key, New Byte(0))
            tripleDESCryptoServiceProvider.Key = passwordDeriveBytes.CryptDeriveKey("RC2", "MD5", 128, New Byte(8))
            Dim array As Byte() = Convert.FromBase64String(value)
            Dim memoryStream As MemoryStream = New MemoryStream(value.Length)
            Dim cryptoStream As CryptoStream = New CryptoStream(memoryStream, tripleDESCryptoServiceProvider.CreateDecryptor(), CryptoStreamMode.Write)
            cryptoStream.Write(array, 0, array.Length)
            cryptoStream.FlushFinalBlock()

            Dim array2 As Byte() = New Byte(CInt(memoryStream.Length - 1L) + 1)
            memoryStream.Position = 0L
            memoryStream.Read(array2, 0, CInt(memoryStream.Length))
            cryptoStream.Close()
            Return Encoding.UTF8.GetString(array2)
        Catch
            Return "Error"
        End Try
    End Function