VB.NET BASE64编码解码函数、AES加密解密函数、URL编码函数、MD5加密-CUTEPIG BLOG-可爱猪博客

<pre class="inline:true class:language-dotnet decode:1 " >    ''' &lt;summary&gt;
    ''' BASE64编码
    ''' &lt;/summary&gt;
    ''' &lt;param name="code"&gt;待加密字符串&lt;/param&gt;
    ''' &lt;returns&gt;加密后字符串&lt;/returns&gt;
    ''' &lt;remarks&gt;&lt;/remarks&gt;
    Public Shared Function EncodeBase64(ByVal code As String) As String
        Dim encode As String = ""
        Dim bytes As Byte() = Encoding.Default.GetBytes(code)
        Try
            encode = Convert.ToBase64String(bytes)
        Catch
            encode = code
        End Try
        Return encode
    End Function

    ''' &lt;summary&gt;
    ''' BASE64解码
    ''' &lt;/summary&gt;
    ''' &lt;param name="code"&gt;加密字符串&lt;/param&gt;
    ''' &lt;returns&gt;解密后字符串&lt;/returns&gt;
    ''' &lt;remarks&gt;&lt;/remarks&gt;
    Public Function DecodeBase64(ByVal code As String) As String
        Dim decode As String = ""
        Dim bytes As Byte() = Convert.FromBase64String(code)
        Try
            decode = Encoding.Default.GetString(bytes)
        Catch
            decode = code
        End Try
        Return decode
    End Function

''' BASE64编码

''' </summary>

''' <param name="code">待加密字符串</param>

''' <returns>加密后字符串</returns>

''' <remarks></remarks>

Public Shared Function EncodeBase64(ByVal code As String) As String

Dim encode As String = ""

Dim bytes As Byte() = Encoding.Default.GetBytes(code)

Try

encode = Convert.ToBase64String(bytes)

Catch

encode = code

End Try

Return encode

End Function

''' <summary>

''' BASE64解码

''' </summary>

''' <param name="code">加密字符串</param>

''' <returns>解密后字符串</returns>

''' <remarks></remarks>

Public Function DecodeBase64(ByVal code As String) As String

Dim decode As String = ""

Dim bytes As Byte() = Convert.FromBase64String(code)

Try

decode = Encoding.Default.GetString(bytes)

Catch

decode = code

End Try

Return decode

End Function

<pre class="inline:true class:language-dotnet decode:1 " >
    ''' &lt;summary&gt;
    ''' AES加密
    ''' &lt;/summary&gt;
    ''' &lt;param name="str"&gt;需加密字符串&lt;/param&gt;
    ''' &lt;param name="key"&gt;KEY&lt;/param&gt;
    ''' &lt;returns&gt;&lt;/returns&gt;
    ''' &lt;remarks&gt;&lt;/remarks&gt;
    Public Shared Function AesEncrypt(ByVal str As String, ByVal key As String) As String
        Dim ReStr As String = ""
        If String.IsNullOrEmpty(str) Then Return Nothing
        Try
            Dim toEncryptArray As Byte() = Encoding.UTF8.GetBytes(str)
            Dim rm As System.Security.Cryptography.RijndaelManaged = New System.Security.Cryptography.RijndaelManaged With {
                .Key = Encoding.UTF8.GetBytes(key),
                .Mode = System.Security.Cryptography.CipherMode.ECB,
                .Padding = System.Security.Cryptography.PaddingMode.PKCS7
            }
            Dim cTransform As System.Security.Cryptography.ICryptoTransform = rm.CreateEncryptor()
            Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length)
            ReStr = Convert.ToBase64String(resultArray, 0, resultArray.Length)
        Catch ex As Exception

        End Try
        AesEncrypt = ReStr
    End Function
    ''' &lt;summary&gt;
    ''' AES解密
    ''' &lt;/summary&gt;
    ''' &lt;param name="str"&gt;需解密字符串&lt;/param&gt;
    ''' &lt;param name="key"&gt;KEY&lt;/param&gt;
    ''' &lt;returns&gt;&lt;/returns&gt;
    ''' &lt;remarks&gt;&lt;/remarks&gt;
    Shared Function AesDecrypt(ByVal str As String, ByVal key As String) As String
        Dim ReStr As String = ""
        If String.IsNullOrEmpty(str) Then Return Nothing
        Try
            Dim toEncryptArray As Byte() = Convert.FromBase64String(str)
            Dim rm As System.Security.Cryptography.RijndaelManaged = New System.Security.Cryptography.RijndaelManaged With {
                .Key = Encoding.UTF8.GetBytes(key),
                .Mode = System.Security.Cryptography.CipherMode.ECB,
                .Padding = System.Security.Cryptography.PaddingMode.PKCS7
            }
            Dim cTransform As System.Security.Cryptography.ICryptoTransform = rm.CreateDecryptor()
            Try
                Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length)
                ReStr = Encoding.UTF8.GetString(resultArray)

            Catch ex As Exception
                '加密字符串被非法改动

            End Try
        Catch ex As Exception
            '解密失败
            '日志记录          
        End Try
        AesDecrypt = ReStr
    End Function

''' <summary>

''' AES加密

''' </summary>

''' <param name="str">需加密字符串</param>

''' <param name="key">KEY</param>

''' <returns></returns>

''' <remarks></remarks>

Public Shared Function AesEncrypt(ByVal str As String, ByVal key As String) As String

Dim ReStr As String = ""

If String.IsNullOrEmpty(str) Then Return Nothing

Try

Dim toEncryptArray As Byte() = Encoding.UTF8.GetBytes(str)

Dim rm As System.Security.Cryptography.RijndaelManaged = New System.Security.Cryptography.RijndaelManaged With {

.Key = Encoding.UTF8.GetBytes(key),

.Mode = System.Security.Cryptography.CipherMode.ECB,

.Padding = System.Security.Cryptography.PaddingMode.PKCS7

}

Dim cTransform As System.Security.Cryptography.ICryptoTransform = rm.CreateEncryptor()

Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length)

ReStr = Convert.ToBase64String(resultArray, 0, resultArray.Length)

Catch ex As Exception

End Try

AesEncrypt = ReStr

End Function

''' <summary>

''' AES解密

''' </summary>

''' <param name="str">需解密字符串</param>

''' <param name="key">KEY</param>

''' <returns></returns>

''' <remarks></remarks>

Shared Function AesDecrypt(ByVal str As String, ByVal key As String) As String

Dim ReStr As String = ""

If String.IsNullOrEmpty(str) Then Return Nothing

Try

Dim toEncryptArray As Byte() = Convert.FromBase64String(str)

Dim rm As System.Security.Cryptography.RijndaelManaged = New System.Security.Cryptography.RijndaelManaged With {

.Key = Encoding.UTF8.GetBytes(key),

.Mode = System.Security.Cryptography.CipherMode.ECB,

.Padding = System.Security.Cryptography.PaddingMode.PKCS7

}

Dim cTransform As System.Security.Cryptography.ICryptoTransform = rm.CreateDecryptor()

Try

Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length)

ReStr = Encoding.UTF8.GetString(resultArray)

Catch ex As Exception

'加密字符串被非法改动

End Try

Catch ex As Exception

'解密失败

'日志记录

End Try

AesDecrypt = ReStr

End Function

<pre class="inline:true class:language-dotnet decode:1 " >    '''URL编码函数
    ''' &lt;summary&gt;
    ''' URL编码
    ''' &lt;/summary&gt;
    ''' &lt;param name="strURL"&gt;需要编码字符串&lt;/param&gt;
    ''' &lt;returns&gt;&lt;/returns&gt;
    ''' &lt;remarks&gt;&lt;/remarks&gt;
    Shared Function URLEncode(ByRef strURL As String) As String
        Dim tmpstr As String = ""
        Dim I As Long
        Dim tempStr As String
        For I = 1 To Len(strURL)
            If Asc(Mid(strURL, I, 1)) &lt; 0 Then
                tempStr = "%" &amp; Right(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2)
                tempStr = "%" &amp; Left(CStr(Hex(Asc(Mid(strURL, I, 1)))), Len(CStr(Hex(Asc(Mid(strURL, I, 1))))) - 2) &amp; tempStr
                tmpstr = tmpstr &amp; tempStr
            ElseIf (Asc(Mid(strURL, I, 1)) &gt;= 65 And Asc(Mid(strURL, I, 1)) &lt;= 90) Or (Asc(Mid(strURL, I, 1)) &gt;= 97 And Asc(Mid(strURL, I, 1)) &lt;= 122) Then
                tmpstr = tmpstr &amp; Mid(strURL, I, 1)
            Else
                tmpstr = tmpstr &amp; "%" &amp; Hex(Asc(Mid(strURL, I, 1)))
            End If
        Next
        Return tmpstr
    End Function

<pre class="inline:true class:language-dotnet decode:1 " > '''URL编码函数

''' <summary>

''' URL编码

''' </summary>

''' <param name="strURL">需要编码字符串</param>

''' <returns></returns>

''' <remarks></remarks>

Shared Function URLEncode(ByRef strURL As String) As String

Dim tmpstr As String = ""

Dim I As Long

Dim tempStr As String

For I = 1 To Len(strURL)

If Asc(Mid(strURL, I, 1)) < 0 Then

tempStr = "%" & Right(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2)

tempStr = "%" & Left(CStr(Hex(Asc(Mid(strURL, I, 1)))), Len(CStr(Hex(Asc(Mid(strURL, I, 1))))) - 2) & tempStr

tmpstr = tmpstr & tempStr

ElseIf (Asc(Mid(strURL, I, 1)) >= 65 And Asc(Mid(strURL, I, 1)) <= 90) Or (Asc(Mid(strURL, I, 1)) >= 97 And Asc(Mid(strURL, I, 1)) <= 122) Then

tmpstr = tmpstr & Mid(strURL, I, 1)

Else

tmpstr = tmpstr & "%" & Hex(Asc(Mid(strURL, I, 1)))

End If

Return tmpstr

End Function

<pre class="inline:true class:language-dotnet decode:1 " >
    '''MD5
    ''' &lt;summary&gt;
    ''' MD5加密
    ''' &lt;/summary&gt;
    ''' &lt;param name="strSource"&gt;需要加密的字符串&lt;/param&gt;
    ''' &lt;param name="Code"&gt;加密位数  16 或 32 &lt;/param&gt;
    ''' &lt;returns&gt;加密后字符串（小写）&lt;/returns&gt;
    ''' &lt;remarks&gt;&lt;/remarks&gt;
    Public Shared Function MD5(ByVal strSource As String, ByVal Code As Int16) As String
        Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(strSource)
        Dim hashvalue As Byte() = CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), System.Security.Cryptography.HashAlgorithm).ComputeHash(dataToHash)
        Dim ATR As String = ""
        Dim i As Integer
        Select Case Code
            Case 16      '选择16位字符的加密结果   
                For i = 4 To 11
                    ATR &amp;= Hex(hashvalue(i)).PadLeft(2, "0").ToLower

                Next
            Case 32      '选择32位字符的加密结果   
                For i = 0 To 15
                    ATR &amp;= Hex(hashvalue(i)).PadLeft(2, "0").ToLower
                Next
            Case Else       'Code错误时，返回全部字符串，即32位字符   
                For i = 0 To 15
                    ATR &amp;= Hex(hashvalue(i)).PadLeft(2, "0").ToLower
                Next
        End Select
        Return ATR
    End Function

'''MD5

''' <summary>

''' MD5加密

''' </summary>

''' <param name="strSource">需要加密的字符串</param>

''' <param name="Code">加密位数 16 或 32 </param>

''' <returns>加密后字符串（小写）</returns>

''' <remarks></remarks>

Public Shared Function MD5(ByVal strSource As String, ByVal Code As Int16) As String

Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(strSource)

Dim hashvalue As Byte() = CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), System.Security.Cryptography.HashAlgorithm).ComputeHash(dataToHash)

Dim ATR As String = ""

Dim i As Integer

Select Case Code

Case 16 '选择16位字符的加密结果

For i = 4 To 11

ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLower

Case 32 '选择32位字符的加密结果

For i = 0 To 15

ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLower

Case Else 'Code错误时，返回全部字符串，即32位字符

For i = 0 To 15

ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLower

End Select

Return ATR

End Function

Visits: 65

VB.NET BASE64编码解码函数、AES加密解密函数、URL编码函数、MD5加密

相关文章

群晖 NAS 外网访问设置 – 腾讯 DNSPod

PHP获取当前url路径的函数及服务器变量

VS2013使用NuGet下载资源时提示“Newtonsoft.Json”已拥有为“Microsoft.CSharp”定义的依赖项的错误