标签：Case vb Hash String Return 校验 New net mysign

vb.net 加密函数模块，主要用于校验密钥生成。

以下代码需要引用

Imports System.Security.Cryptography
 

Function MD5(str As String, Optional algorithm As String = "md5", Optional GEncoding As String = "utf-8", Optional Key As String = "", Optional Sign As String = "") As String
    Dim bt As Byte() = Encoding.GetEncoding(GEncoding).GetBytes(str)
    Select Case algorithm.ToLower
      Case "md5"
        Dim Hash As New MD5CryptoServiceProvider
        MD5 = Convert.ToBase64String(Hash.ComputeHash(bt))
        Return MD5.Substring(0, MD5.Length - 2)
      Case "md5sign"
        Dim Hash As New MD5CryptoServiceProvider(), mysign As String = "", t As Byte() = Hash.ComputeHash(bt)
        For Each h As String In t
          If Hex(h).Length = 1 Then mysign &= "0" & Hex(h) Else mysign &= Hex(h)
        Next
        Return mysign.ToLower
      Case "sha1"
        Dim Hash As New SHA1CryptoServiceProvider
        MD5 = Convert.ToBase64String(Hash.ComputeHash(bt))
        Return MD5.Substring(0, MD5.Length - 2)
      Case "sha1sign"
        Dim Hash As New SHA1CryptoServiceProvider, mysign As String = "", t As Byte() = Hash.ComputeHash(bt)
        For Each h As String In t
          If Hex(h).Length = 1 Then mysign &= "0" & Hex(h) Else mysign &= Hex(h)
        Next
        Return mysign.ToLower
      Case "sha384"
        Dim Hash As New SHA384Managed
        MD5 = Convert.ToBase64String(Hash.ComputeHash(bt))
        Return MD5.Substring(0, MD5.Length - 2)
      Case "sha256"
        Dim Hash As New SHA256Managed(), mysign As String = "", t As Byte() = Hash.ComputeHash(bt)
        For Each h As String In t
          If Hex(h).Length = 1 Then mysign &= "0" & Hex(h) Else mysign &= Hex(h)
        Next
        Return mysign.ToLower
      Case "rsa2"
        Dim Hash = New SHA256CryptoServiceProvider(), Provider As New RSACryptoServiceProvider(), Params As RSAParameters = RSAPrivate(Key)
        If Params.ToString Is Nothing Then Return ""
        Provider.ImportParameters(Params)
        Dim formatter As New RSAPKCS1SignatureFormatter(Provider)
        formatter.SetHashAlgorithm("SHA256")
        Return Convert.ToBase64String(formatter.CreateSignature(Hash.ComputeHash(bt)))
      Case "rsa2verify"
        Dim Hash = New SHA256CryptoServiceProvider(), Provider As New RSACryptoServiceProvider(), Params As RSAParameters = RSAPublic(Key)
        If Params.ToString Is Nothing Then Return ""
        Provider.ImportParameters(Params)
        Return Provider.VerifyData(bt, "SHA256", Convert.FromBase64String(Sign))
      Case Else
        Return str
    End Select
  End Function

标签：Case,vb,Hash,String,Return,校验,New,net,mysign
来源： https://blog.csdn.net/hnpvqve/article/details/122770943

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。