<button open-type="getPhoneNumber" bindgetphonenumber="getPhoneNumber"></button>

getPhoneNumber (e) {
    console.log(e.detail.iv)            //加密算法的初始向量
    console.log(e.detail.encryptedData) //包括敏感数据在内的完整用户信息的加密数据
  }

wx.login({
      success(res) {
        if (res.code) {
          app.globalData.code = res.code //res.code重点为了获取session_key
        } else {
        }
      }
    })

	//https://api.weixin.qq.com/sns/jscode2session  微信官方API
    //需要三个参数：appid：小程序ID(AppID);secret:小程序密钥(AppSecret);grant_type：授权类型，此处只需填写 authorization_code;js_code：通过 wx.login 接口获得临时登录凭证 code
    Public Function GetSessionKey() As Boolean
        Dim relust As Boolean = False
        Try
            Dim urlStr As String = "https://api.weixin.qq.com/sns/jscode2session"
            Dim currStr As String = "appid=" & iWeiChatInfo.appid & "&secret=" & iWeiChatInfo.secret & "&js_code=" & iWeiChatInfo.js_code & "&grant_type=" + iWeiChatInfo.grant_type
            Dim jsonStr As String = httpHelper.GetData(urlStr, currStr)
            Dim ijson As New JavaScriptSerializer
            iSessionKeyInfo = ijson.Deserialize(Of SessionKeyInfo)(jsonStr)
        Catch ex As Exception
        End Try
    End Function

Imports System.Net
Imports System.IO
Imports System.Text
Public Class httpHelper
    Public Shared Function GetData(ByVal url As String, ByVal data As String) As String
        Dim request As HttpWebRequest = WebRequest.Create(url + "?" + data)
        request.Method = "GET"
        Dim sr As StreamReader = New StreamReader(request.GetResponse().GetResponseStream)
        Return sr.ReadToEnd
    End Function
    Public Shared Function PostData(ByVal url As String, ByVal data As String) As String
        ServicePointManager.Expect100Continue = False
        Dim request As HttpWebRequest = WebRequest.Create(url)
        'Post请求方式
        request.Method = "POST"
        '内容类型
        request.ContentType = "application/x-www-form-urlencoded"
        '将URL编码后的字符串转化为字节
        Dim encoding As New UTF8Encoding()
        Dim bys As Byte() = encoding.GetBytes(data)
        '设置请求的 ContentLength 
        request.ContentLength = bys.Length
        '获得请 求流
        Dim newStream As Stream = request.GetRequestStream()
        newStream.Write(bys, 0, bys.Length)
        newStream.Close()
        '获得响应流
        Dim sr As StreamReader = New StreamReader(request.GetResponse().GetResponseStream)
        Return sr.ReadToEnd
    End Function
End Class

Public Class Encrypt
    Public Shared Function DecryptAesForWeChart(ByVal SourceStr As String, ByVal myKey As String, ByVal myIV As String) As String    '使用标准AES对称解密 
        Try
            Dim aes As New System.Security.Cryptography.AesCryptoServiceProvider 'DES算法  
            Dim buffer As Byte() = Convert.FromBase64String(SourceStr)
            aes.Key = Convert.FromBase64String(myKey)
            aes.IV = Convert.FromBase64String(myIV)
            aes.Mode = System.Security.Cryptography.CipherMode.CBC
            aes.Padding = System.Security.Cryptography.PaddingMode.PKCS7
            Dim ms As New System.IO.MemoryStream(buffer)
            Dim cs As New System.Security.Cryptography.CryptoStream(ms, aes.CreateDecryptor(), System.Security.Cryptography.CryptoStreamMode.Read)
            Dim sr As New System.IO.StreamReader(cs)
            Return sr.ReadToEnd()
        Catch ex As Exception
            Return ""
        End Try
    End Function
    
    Public Shared Function EncryptDes(ByVal SourceStr As String, ByVal myKey As String, ByVal myIV As String) As String '使用的DES对称加密
        Try
            Dim des As New System.Security.Cryptography.DESCryptoServiceProvider 'DES算法  
            Dim inputByteArray As Byte()
            inputByteArray = System.Text.Encoding.Default.GetBytes(SourceStr)
            des.Key = System.Text.Encoding.UTF8.GetBytes(myKey) 'myKey DES用8个字符，TripleDES要24个字符  
            des.IV = System.Text.Encoding.UTF8.GetBytes(myIV) 'myIV DES用8个字符，TripleDES要24个字符  
            Dim ms As New System.IO.MemoryStream
            Dim cs As New System.Security.Cryptography.CryptoStream(ms, des.CreateEncryptor(), System.Security.Cryptography.CryptoStreamMode.Write)
            Dim sw As New System.IO.StreamWriter(cs)
            sw.Write(SourceStr)
            sw.Flush()
            cs.FlushFinalBlock()
            ms.Flush()
            EncryptDes = Convert.ToBase64String(ms.GetBuffer(), 0, ms.Length)
        Catch ex As Exception
            Return ""
        End Try
    End Function

    Public Shared Function DecryptDes(ByVal SourceStr As String, ByVal myKey As String, ByVal myIV As String) As String    '使用标准DES对称解密 
        Try
            Dim des As New System.Security.Cryptography.DESCryptoServiceProvider 'DES算法  
            des.Key = System.Text.Encoding.UTF8.GetBytes(myKey) 'myKey DES用8个字符，TripleDES要24个字符  
            des.IV = System.Text.Encoding.UTF8.GetBytes(myIV) 'myIV DES用8个字符，TripleDES要24个字符  
            Dim buffer As Byte() = Convert.FromBase64String(SourceStr)
            Dim ms As New System.IO.MemoryStream(buffer)
            Dim cs As New System.Security.Cryptography.CryptoStream(ms, des.CreateDecryptor(), System.Security.Cryptography.CryptoStreamMode.Read)
            Dim sr As New System.IO.StreamReader(cs)
            Return sr.ReadToEnd()
        Catch ex As Exception
            Return ""
        End Try
    End Function
End Class

    public class Encrypt
    {
        public static T DecryptAes<T>(string eStr, string key, string iv)
        {
            T result;
            using (AesManaged myAes = new AesManaged())
            {
                myAes.Key = Convert.FromBase64String(key);
                myAes.IV = Convert.FromBase64String(iv);
                var EncryptTxt = Convert.FromBase64String(eStr);
                string roundtrip = Encrypt.DecryptStringFromBytes_Aes(EncryptTxt, myAes.Key, myAes.IV);
                result = JsonConvert.DeserializeObject<T>(roundtrip);
            }
            return result;
        }
        #region AES
        /// <summary>
        /// 加密
        /// </summary>
        /// <param name="plainText"></param>
        /// <param name="Key"></param>
        /// <param name="IV"></param>
        /// <returns></returns>
        private static byte[] EncryptStringToBytes_Aes(string plainText, byte[] Key, byte[] IV)
        {
            // Check arguments.
            if (plainText == null || plainText.Length <= 0)
                throw new ArgumentNullException("plainText");
            if (Key == null || Key.Length <= 0)
                throw new ArgumentNullException("Key");
            if (IV == null || IV.Length <= 0)
                throw new ArgumentNullException("IV");
            byte[] encrypted;

            // Create an AesManaged object
            // with the specified key and IV.
            using (AesManaged aesAlg = new AesManaged())
            {
                aesAlg.Key = Key;
                aesAlg.IV = IV;

                // Create an encryptor to perform the stream transform.
                ICryptoTransform encryptor = aesAlg.CreateEncryptor(aesAlg.Key, aesAlg.IV);

                // Create the streams used for encryption.
                using (MemoryStream msEncrypt = new MemoryStream())
                {
                    using (CryptoStream csEncrypt = new CryptoStream(msEncrypt, encryptor, CryptoStreamMode.Write))
                    {
                        using (StreamWriter swEncrypt = new StreamWriter(csEncrypt))
                        {
                            //Write all data to the stream.
                            swEncrypt.Write(plainText);
                        }
                        encrypted = msEncrypt.ToArray();
                    }
                }
            }

            // Return the encrypted bytes from the memory stream.
            return encrypted;
        }

        /// <summary>
        /// 解密
        /// </summary>
        /// <param name="cipherText"></param>
        /// <param name="Key"></param>
        /// <param name="IV"></param>
        /// <returns></returns>
        private static string DecryptStringFromBytes_Aes(byte[] cipherText, byte[] Key, byte[] IV)
        {


            // Check arguments.
            if (cipherText == null || cipherText.Length <= 0)
                throw new ArgumentNullException("cipherText");
            if (Key == null || Key.Length <= 0)
                throw new ArgumentNullException("Key");
            if (IV == null || IV.Length <= 0)
                throw new ArgumentNullException("IV");

            // Declare the string used to hold
            // the decrypted text.
            string plaintext = null;

            // Create an AesManaged object
            // with the specified key and IV.
            using (AesManaged aesAlg = new AesManaged())
            {
                aesAlg.Key = Key;
                aesAlg.IV = IV;

                // Create a decryptor to perform the stream transform.
                ICryptoTransform decryptor = aesAlg.CreateDecryptor(aesAlg.Key, aesAlg.IV);

                // Create the streams used for decryption.
                using (MemoryStream msDecrypt = new MemoryStream(cipherText))
                {
                    using (CryptoStream csDecrypt = new CryptoStream(msDecrypt, decryptor, CryptoStreamMode.Read))
                    {
                        using (StreamReader srDecrypt = new StreamReader(csDecrypt))
                        {

                            // Read the decrypted bytes from the decrypting stream
                            // and place them in a string.
                            plaintext = srDecrypt.ReadToEnd();
                        }
                    }
                }
            }

            return plaintext;
        }
        #endregion
    }