VB URL编码与解码 URL加密与解密

    VB URL 编码与解码，VB URL 加密与解密，VB URL 编码，VB URL 加密，VB URL 解码，VB URL 解密，VB UrlEncoding，VB URLDecode。

 

VB URL 编码，VB URL 加密：

Public Function UrlEncoding(StrX As String) As String                           'URL编码
    On Error GoTo over
    Dim I, StrReturn As String, Thischr, Innercode
    StrReturn = ""
    For I = 1 To Len(StrX)
        Thischr = Mid(StrX, I, 1)
        If Abs(Asc(Thischr)) < &HFF Then
            If Thischr = " " Then
                StrReturn = StrReturn & "+"
            ElseIf InStr("!""#$%&'()*+,/:;<=>?@[\]^`{|}~%", Thischr) > 0 Then
                StrReturn = StrReturn & "%" & Hex(Asc(Thischr))
            Else
                StrReturn = StrReturn & Thischr
            End If
        Else
            Innercode = Asc(Thischr)
            If Innercode < 0 Then Innercode = Innercode + &H10000
            StrReturn = StrReturn & "%" & Hex((Innercode And &HFF00) \ &HFF) & "%" & Hex(Innercode And &HFF)
        End If
    Next
    UrlEncoding = StrReturn
    Exit Function
over:
    UrlEncoding = ""
End Function

 

VB URL 解码，VB URL 解密：

Public Function URLDecode(ByRef strURL As String) As String                     'URL解码
    Dim I As Long
    If InStr(strURL, "%") = 0 Then URLDecode = strURL: Exit Function
    For I = 1 To Len(strURL)
        If Mid(strURL, I, 1) = "%" Then
            If Val("&H" & Mid(strURL, I + 1, 2)) > 127 Then
                URLDecode = URLDecode & Chr(Val("&H" & Mid(strURL, I + 1, 2) & Mid(strURL, I + 4, 2)))
                I = I + 5
            Else
                URLDecode = URLDecode & Chr(Val("&H" & Mid(strURL, I + 1, 2)))
                I = I + 2
            End If
        Else
            URLDecode = URLDecode & Mid(strURL, I, 1)
        End If
    Next
End Function