URL编码/解码小工具、

淡然出尘 发表于 2013-1-11 13:17

'函数是从@乱码师傅那盗取过来的嘿嘿O(∩_∩)O~、
'Eval声明
Function Eval(ByVal Expressions As String) As Double
Set Mssc = CreateObject("MSScriptControl.ScriptControl")
Mssc.Language = "vbscript"
Eval = Mssc.Eval(Expressions)
End Function
Function URLEncode(strURL) '编码
Dim I
Dim tempStr
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
         URLEncode = URLEncode & 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) Or (Asc(Mid(strURL, I, 1)) >= 48 And Asc(Mid(strURL, I, 1)) <= 57) Then
         URLEncode = URLEncode & Mid(strURL, I, 1)
   Else
         URLEncode = URLEncode & "%" & Hex(Asc(Mid(strURL, I, 1)))
   End If
Next
End Function

Function URLDecode(strURL) '解码
Dim I
If InStr(strURL, "%") = 0 Then
   URLDecode = strURL
   Exit Function
End If

For I = 1 To Len(strURL)
   If Mid(strURL, I, 1) = "%" Then
         If Eval("&H" & Mid(strURL, I + 1, 2)) > 127 Then
            URLDecode = URLDecode & Chr(Eval("&H" & Mid(strURL, I + 1, 2) & Mid(strURL, I + 4, 2)))
            I = I + 5
         Else
            URLDecode = URLDecode & Chr(Eval("&H" & Mid(strURL, I + 1, 2)))
            I = I + 2
         End If
   Else
         URLDecode = URLDecode & Mid(strURL, I, 1)
   End If
Next
End Function
'=========================
'调用
Text2.Text = URLEncode(Text1.Text)
Text2.Text = URLDecode(Text1.Text)

为什么要对URL进行编码？
http://blog.163.com/yaoping1986@126/blog/static/17141746620111155357404/
这个工具的用处之一：http://www.52pojie.cn/thread-179149-1-1.html成品附件：

1354669803 发表于 2013-1-11 13:20

用处就是防止被和谐

258239234 发表于 2013-1-11 13:44

还是看不明白有啥用，

泛舟商务 发表于 2013-1-11 14:45

做什么用的？？

hls518 发表于 2013-1-12 08:31

lzxvslxl 发表于 2013-7-9 23:15

也可以用来绕过一些验证和检测 0-0好吧我邪恶了

ak848 发表于 2014-9-3 10:12

这个看起来不错,不知道能不能自动识别编码类型

淘宝限购 发表于 2014-11-11 14:25

不回帖怎么会有cb{:1_902:}

opelwang 发表于 2015-4-21 08:36

感谢分享，下载学习。

页: [1]

吾爱破解 - 52pojie.cn's Archiver

URL编码/解码小工具、