Dim des As New DESCryptoServiceProvider
        des.Key = Encoding.UTF8.GetBytes("12314567")
        DES.Mode = CipherMode.CBC
        DES.Padding = PaddingMode.PKCS7
        Dim h As CryptoAPITransform = DES.CreateEncryptor
        Console.WriteLine(h.KeyHandle)