Public Shared Function DecryptTripleDES(ByVal sOut As String, ByVal sKey As String) As String
    Dim provider As New TripleDESCryptoServiceProvider
    Dim provider2 As New MD5CryptoServiceProvider
    sKey = Form1.ScrambleKey(sKey)
    provider.Key = provider2.ComputeHash(Encoding.ASCII.GetBytes(sKey))
    provider.Mode = CipherMode.ECB
    Dim transform As ICryptoTransform = provider.CreateDecryptor
    Dim inputBuffer As Byte() = Convert.FromBase64String(sOut)
    Return Encoding.ASCII.GetString(transform.TransformFinalBlock(inputBuffer, 0, inputBuffer.Length))
End Function