吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 7095|回复: 8
收起左侧

[其他转载] URL编码/解码小工具、

[复制链接]
淡然出尘 发表于 2013-1-11 13:17

URL编码/解码

URL编码/解码


[Visual Basic] 纯文本查看 复制代码
'函数是从@乱码师傅那盗取过来的 嘿嘿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
成品附件: URL编码解码.rar (5.16 KB, 下载次数: 83)


本帖被以下淘专辑推荐:

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

1354669803 发表于 2013-1-11 13:20
用处就是防止被和谐

点评

嗯  发表于 2013-1-11 13:22
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
感谢分享,下载学习。
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-11-14 18:45

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表