VB 迅雷下载地址解密函数
它可将加密过的迅雷下载地址URL转换成真正的下载地址。
Private Sub Form_Load() '解密 MsgBox thunderToURL("thunder://QUFodHRwOi8vd3d3Lm5ld3hpbmcuY29tWlo=") End Sub
'***************************************************
Private Const cstBase64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Private arrBase64() As String
Public Function Base64Decode(strEncoded As String) As String
On Error Resume Next
Dim arrB() As Byte, bTmp(3) As Byte, bT, bRet() As Byte
Dim I As Long, J As Long
arrB = StrConv(strEncoded, vbFromUnicode)
J = InStr(strEncoded & "=", "=") - 2
ReDim bRet(J - J \ 4 - 1)
For I = 0 To J Step 4
Erase bTmp
bTmp(0) = (InStr(cstBase64, Chr$(arrB(I))) - 1) And 63
bTmp(1) = (InStr(cstBase64, Chr$(arrB(I + 1))) - 1) And 63
bTmp(2) = (InStr(cstBase64, Chr$(arrB(I + 2))) - 1) And 63
bTmp(3) = (InStr(cstBase64, Chr$(arrB(I + 3))) - 1) And 63
bT = bTmp(0) * 2 ^ 18 + bTmp(1) * 2 ^ 12 + bTmp(2) * 2 ^ 6 + bTmp(3)
bRet((I \ 4) * 3) = bT \ 65536
bRet((I \ 4) * 3 + 1) = (bT And 65280) \ 256
bRet((I \ 4) * 3 + 2) = bT And 255
Next
Base64Decode = StrConv(bRet, vbUnicode)
End Function
Public Function thunderToURL(thunder As String)
thunderToURL = ""
Dim S As String
If Len(thunder) > 7 And LCase$(Left$(thunder, 7)) = "thunder" Then
S = Base64Decode(CStr(Mid$(thunder, InStr(thunder, "://") + 3, Len(thunder) - InStr(thunder, "://") + 1)))
thunderToURL = Mid$(S, 3, Len(S) - 4)
End If
End Function
相关文章参考:
※VB FTP操作类(可上传、下载、创建文件夹等等)
※VB 写下载者代码
※【引用】URLDownloadToFile_VB下载文件!
※vb一个使用URLDownloadToFile实现文件下载的类※
※VB 迅雷下载地址解密函数※
VB 迅雷下载地址解密函数相关推荐
- 【转】地心历险记 2:神秘岛 迅雷 下载 地址|神秘岛 高清 下载地址
<地心历险记2:神秘岛>[2012美国奇幻冒险片][720pBD高清中英双字] 神秘岛迅雷下载地址|高清神秘岛 thunder://QUFmdHA6Ly9keWdvZDE6ZHlnb2Qx ...
- java爬虫系列第二讲-爬取最新动作电影《海王》迅雷下载地址
为什么80%的码农都做不了架构师?>>> 1. 目标 使用webmagic爬取动作电影列表信息 爬取电影**<海王>**详细信息[电影名称.电影迅雷下载地址列表] ...
- 迅雷下载地址转换(Python3)
输入可以是 迅雷,快车,qq旋风地址中的任意一个,输出包含了原始地址,迅雷地址,快车地址,qq旋风地址的一个字典. 代码如下: import base64 """ aut ...
- Xilinx vivado迅雷下载地址(所有版本)
注:其实该方法适用于提取Xilinx官网的任意工具的任意版本的迅雷下载地址 ①进入Xilinx官网,进入Device->Design Tools,选择你想要下载的任意工具. ②进入新web页面, ...
- 米奇妙妙屋最新迅雷下载地址!
米奇妙妙屋最新迅雷下载地址!原来没有下全的!可以来这里下载!下载速度很快!在观看的同时也可以参加米奇妙妙屋的"我的奇妙故事"的活动,赢取迪士尼正版奖品:http://www.iya ...
- 苹果cmsv10如何添加迅雷下载地址
随着网站数量越来越多竞争激烈现在站长们对网站内容和功能要求也随之升高. 今天就给小白站长们分享下如何给视频网站添加迅雷下载地址大佬们可略过. 我们在采集资源时资源站通常会有播放接口和下载2个接口. 一 ...
- SQL server 2008R2 数据库迅雷下载地址;百度网盘下载地址
SQL server 2008R2 数据库迅雷下载地址: ed2k://|file| cn_sql_server_2008_r2_developer_x86_x64_ia64_dvd_522724.i ...
- 走遍美国MP4 第 01 - 78集迅雷下载地址:
走遍美国MP4 第 01 - 78集迅雷下载地址(至2013-10-16有效): thunder://QUFodHRwOi8vczEubXA0LmRhdGEuYTY3LmNvbS9tcDQvMjAxM ...
- linux视频教程 迅雷下载地址,在linux中下载迅雷链接(thunder://)
迅雷下载协议是经过加密的,如: thunder://QUFodHRwOi8vd3d3LmNub3N3aWtpLmNvbS93cC1jb250ZW50L3RoZW1lcy9tb25vY2hyb21lL2 ...
最新文章
- php ajax弹出框传值,PHP_Yii2.0 模态弹出框+ajax提交表单,如题 我们使用模态弹出框+ajax - phpStudy...
- CouchDB 简单HTTP接口使用说明
- CtStatement
- 设计模式-Observer模式
- 图像有用区域 bfs
- SpringBoot 整合Security——自定义表单登录
- 外媒:为何说中国对美国科技行业的影响与日俱增
- (五)Linux之设备驱动模型
- php安装mongo扩展,php安装mongo扩展和mongodb扩展
- 查询limit_MySQL查询语句(where,group by,having,order by,limit)
- 深度学习|三维重建:R-MVSNet
- [摘抄]从 GitHub 身上学到的 3 个创业经验
- 这款神器,IDM随意下载任意网页音频视频文件!
- 两个微信号绑定一个服务器ip,一个手机号能绑定几个微信账号(一个手机号注册多个微信号的方法)...
- .net reflector反编译破解软件
- 数组可以存放实数吗?
- 简易员工信息管理系统
- html5 replace,js replace函数用法详解
- 一次尴尬的笔试。。。
- WPS英文和数字会默认为中文字体原因
热门文章
- 什么是 DNS 劫持、投毒、解析?看这文就懂了!
- VS Code Java 开发指南!
- CSDN技术分享——程序员如何快速上手区块链底层技术?
- 明略数据获 10 亿人民币 C 轮融资,华兴新经济基金、腾讯领投
- 网络编程之 字节序和深入理解bind()函数
- php外壳函数,php 方法笔记
- java等边三角形代码_Java实现等边三角形--小程序,大思想
- Could not connect to Redis at 127.0.0.1:13141: Cannot assign requested address
- 黎明杀机手游未能连接服务器,黎明杀机无法连接在线服务及EAC绿条读完后无反应解决方法...
- activity销毁时执行执行方法是_[Android开发 VIII ]销毁一个activity