开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 3752|回复: 33
收起左侧

[易源码分享] 蓝奏云密码直链解析

[复制链接]
结帖率:92% (246/266)
发表于 2023-11-1 00:50:21 | 显示全部楼层 |阅读模式   广西壮族自治区崇左市
分享源码
界面截图: -
是否带模块: 调用了模块
备注说明: -
本帖最后由 果心豆腐酱 于 2023-11-1 01:12 编辑
  
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
变量名类 型静态数组备 注
文件名文本型 
调试输出 (蓝奏云_取直链_有密码 (“https://tgif.lanzouw.com/b029dmp8f”, “520”, 文件名), 文件名)
调试输出 (蓝奏云_取直链_有密码 (“https://police.lanzoue.com/iMv1l0ld6wib”, “euss”, 文件名), 文件名)
子程序名返回值类型公开备 注
蓝奏云_取直链_有密码文本型 
参数名类 型参考可空数组备 注
网址文本型
密码文本型
文件名文本型
变量名类 型静态数组备 注
蓝奏云_协议头文本型 
网页源码文本型 
正则正则表达式类 
sign文本型 
局_网址文本型 
action文本型 
域名文本型 
正则.创建 (“[a-zA-z]+://[a-zA-Z0-9][-a-zA-Z0-9]{0,62}(\.[a-zA-Z0-9][-a-zA-Z0-9]{0,62})+\.?”, 网址, , , , )
域名 = 正则.取匹配文本 (1, )
蓝奏云_协议头 = “User-Agent: Mozilla/5.0 (Windows NT 12.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”#换行符“referer: ” + 域名
网页源码 = 编码_Utf8到Ansi (网页_访问_对象 (网址, 0, , , , 蓝奏云_协议头, , , , , , , , , , , , , ))
' 调试输出 (网页源码)
' 正则.创建 (“([\s\S]*?)
”, 网页源码, , , , 真)
' 文件名 = 正则.取子匹配文本 (1, 2, )
正则.创建 (“action=(.*?)&sign=(.{10,}?)&p=”, 网页源码, , , , )
action = 正则.取子匹配文本 (1, 1, )
sign = 正则.取子匹配文本 (1, 2, )
如果真 (action = “”)
action = “downprocess”
如果真 (sign = “” 取文本长度 (sign) < 70)
正则.创建 (“[0-9a-zA-Z\_]{70,}”, 网页源码, , , , )
sign = 正则.取匹配文本 (1, )
' 调试输出 (sign)
如果真 (sign = “”)
返回 (蓝奏云_取直链_有密码2 (网址, 密码, 文件名))
网页源码 = 到文本 (网页_访问_对象 (域名 + “/ajaxm.php”, 1, “action=” + action + “&sign=” + sign + “&p=” + 密码, , , 蓝奏云_协议头, , , , , , , , , , , , , ))
局_网址 = 文本_取出中间文本 (网页源码, “dom”#引号“:”#引号“”, “”#引号“,”, , )“/file/”文本_取出中间文本 (网页源码, “url”#引号“:”#引号, #引号, , )
局_网址 = 子文本替换 (局_网址, “\”, “”, , , )
文件名 = 文本_取出中间文本 (网页源码, “inf”#引号“:”#引号“”, #引号, , )
局_网址 = 取跳转的最终地址 (局_网址)
如果真 (局_网址 = “”)
局_网址 = 子文本替换 (局_网址, “https://”, “http://”, , , )
局_网址 = 取跳转的最终地址 (局_网址)
返回 (局_网址)
子程序名返回值类型公开备 注
蓝奏云_取直链_有密码2文本型 
参数名类 型参考可空数组备 注
网址文本型
密码文本型
文件名文本型
变量名类 型静态数组备 注
蓝奏云_协议头文本型 
网页源码文本型 
sign文本型 
局_网址文本型 
action文本型 
域名文本型 
_hg2q2文本型 
t文本型 
ls文本型 
pwd文本型 
pg文本型 
lx文本型 
fid文本型 
uid文本型 
rep文本型 
k文本型 
up文本型 
内容文本型 
post数据文本型 
id文本型 
fn文本型 
signs文本型 
ves文本型 
websign文本型 
websignkey文本型 
数据字节集 
正则正则表达式类 
正则.创建 (“[a-zA-z]+://[a-zA-Z0-9][-a-zA-Z0-9]{0,62}(\.[a-zA-Z0-9][-a-zA-Z0-9]{0,62})+\.?”, 网址, , , , )
域名 = 正则.取匹配文本 (1, )
蓝奏云_协议头 = “User-Agent: Mozilla/5.0 (Windows NT 12.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”#换行符“referer: ” + 域名
网页源码 = 编码_Utf8到Ansi (网页_访问_对象 (网址, 0, , , , 蓝奏云_协议头, , , , , , , , , , , , , ))
' 调试输出 (网页源码)
k = 文本_取出中间文本 (网页源码, “k':”, “,”, , )
k = 文本_取出中间文本 (网页源码, k + “ = '”, “';”, , )
t = 文本_取出中间文本 (网页源码, “t':”, “,”, , )
t = 文本_取出中间文本 (网页源码, t + “ = '”, “';”, , )
rep = 文本_取出中间文本 (网页源码, “rep':'”, “',”, , )
lx = 文本_取出中间文本 (网页源码, “lx':”, “,”, , )
fid = 文本_取出中间文本 (网页源码, “fid':”, “,”, , )
uid = 文本_取出中间文本 (网页源码, “uid':'”, “',”, , )
up = 文本_取出中间文本 (网页源码, “up':”, “,”, , )
ls = 文本_取出中间文本 (网页源码, “ls':”, “,”, , )
pg = 文本_取出中间文本 (网页源码, “pgs =”, “;”, , )
pwd = 密码
post数据 = “lx=” + lx + “&fid=” + fid + “&uid=” + uid + “&pg=” + pg + “&rep=” + rep + “&t=” + t + “&k=” + k + “&up=” + up + “&ls=” + ls + “&pwd=” + pwd
内容 = 编码_Utf8到Ansi (网页_访问_对象 (域名 + “/filemoreajax.php”, 1, post数据, , , 蓝奏云_协议头, , , , , , , , , , , , , ))
id = 文本_取出中间文本 (内容, “id”#引号“:”#引号“”, “”#引号“,”, , )
文件名 = 编码_usc2到ansi (文本_取出中间文本 (内容, “name_all”#引号“:”#引号“”, “”#引号“,”, , ))
数据 = 网页_访问_对象 (域名 + “/” + id, 0, , , , 蓝奏云_协议头, , , , , , , , , , , , , )
内容 = 编码_Utf8到Ansi (数据)
正则.创建 (“]*src=”#引号“([^”#引号“]+)”#引号“”, 内容, , , , )
fn = 正则.取子匹配文本 (正则.取匹配数量 (), 1, )
内容 = 编码_Utf8到Ansi (网页_访问_对象 (域名 + “/” + fn, , , , , 蓝奏云_协议头, , , , , , , , , , , , , ))
action = 文本_取出中间文本 (内容, “action':'”, “',”, , )
sign = 文本_取出中间文本 (内容, “sign':'”, “',”, , )
signs = 文本_取出中间文本 (内容, “signs':”, “,”, , )
signs = 文本_取出中间文本 (内容, signs + “ = '”, “';”, , )
websign = 文本_取出中间文本 (内容, “websign':”, “,”, , )
websign = 文本_取出中间文本 (内容, websign + “ = '”, “';”, , )
websignkey = 文本_取出中间文本 (内容, “websignkey':”, “,”, , )
websignkey = 文本_取出中间文本 (内容, websignkey + “ = '”, “';”, , )
ves = 文本_取出中间文本 (内容, “ves':”, “ }”, , )
post数据 = “action=” + action + “&sign=” + sign + “&signs=” + signs + “&websign=” + websign + “&websignkey=” + websignkey + “&ves=” + ves
内容 = 编码_Utf8到Ansi (网页_访问_对象 (域名 + “//ajaxm.php”, 1, post数据, , , 蓝奏云_协议头, , , , , , , , , , , , , ))
局_网址 = 文本_取出中间文本 (内容, “dom”#引号“:”#引号“”, “”#引号“,”, , )“/file/”文本_取出中间文本 (内容, “url”#引号“:”#引号, #引号, , )
局_网址 = 子文本替换 (局_网址, “\”, “”, , , )
局_网址 = 取跳转的最终地址 (局_网址)
如果真 (局_网址 = “”)
局_网址 = 子文本替换 (局_网址, “https://”, “http://”, , , )
局_网址 = 取跳转的最终地址 (局_网址)

返回 (局_网址)


i支持库列表   支持库注释   
spec特殊功能支持库

两种解析,能适用更多不同的域名。
好用就给点打赏呗,没精币提问题了
用了精易模块




补充内容 (2023-11-2 03:31):
.版本 2

.子程序 取跳转的最终地址, 文本型, 公开, 获取一个网站重定向跳转的URL地址
.参数 地址, 文本型
.局部变量 http, 对象
.局部变量 p, 变体型

....

评分

参与人数 4好评 +3 精币 +11 收起 理由
光影魔术 + 2 开源精神必须支持~
godandwoman + 1 + 2 支持开源~!感谢分享
AdGame + 1 + 5 支持开源~!感谢分享
猪滴寳貝哝 + 1 + 2 支持开源~!感谢分享

查看全部评分


结帖率:92% (246/266)

签到天数: 11 天

 楼主| 发表于 2023-11-2 03:32:03 | 显示全部楼层   广西壮族自治区崇左市
  
子程序名返回值类型公开备 注
取跳转的最终地址文本型 获取一个网站重定向跳转的URL地址
参数名类 型参考可空数组备 注
地址文本型
变量名类 型静态数组备 注
http对象 
p变体型 
如果真 (http.创建 (“WinHttp.WinHttpRequest.5.1”, ))
http.写属性 (“Option”, 6, 0)
http.方法 (“SetTimeouts”, 5000, 5000, 10000, 5000)
http.方法 (“open”, “GET”, 地址, )
http.方法 (“setRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)”)
http.方法 (“setRequestHeader”, “Accept-Language”, “zh-cn”)
http.方法 (“setRequestHeader”, “Connection”, “Keep-Alive”)
http.方法 (“setRequestHeader”, “Accept”, “image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/x-silverlight, */*”)
http.方法 (“send”, )
p = http.读属性 (“GetResponseHeader”, “Location”)
返回 (p.取文本 ())
返回 (“”)

就是取重定向地址
回复 支持 反对

使用道具 举报

结帖率:99% (68/69)

签到天数: 2 天

发表于 2023-11-15 08:36:51 | 显示全部楼层   福建省宁德市
回复 支持 反对

使用道具 举报

结帖率:100% (22/22)
发表于 2023-11-14 08:35:58 | 显示全部楼层   河南省漯河市
感谢感谢
回复 支持 反对

使用道具 举报

签到天数: 7 天

发表于 2023-11-4 10:59:02 | 显示全部楼层   江西省宜春市
感谢分享,支持
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)

签到天数: 5 天

发表于 2023-11-3 19:06:32 | 显示全部楼层   广西壮族自治区柳州市
感谢分享源码
回复 支持 反对

使用道具 举报

结帖率:100% (43/43)

签到天数: 10 天

发表于 2023-11-2 07:14:33 | 显示全部楼层   山东省青岛市
已经顶贴,感谢您对论坛的支持!
回复 支持 反对

使用道具 举报

结帖率:98% (102/104)

签到天数: 10 天

发表于 2023-11-2 07:09:59 | 显示全部楼层   山东省青岛市
感谢楼主分享!
回复 支持 反对

使用道具 举报

结帖率:100% (4/4)

签到天数: 2 天

发表于 2023-11-2 06:59:56 | 显示全部楼层   贵州省黔东南苗族侗族自治州
果心豆腐酱 发表于 2023-11-2 03:33
.版本 2

.子程序 取跳转的最终地址, 文本型, 公开, 获取一个网站重定向跳转的URL地址

蓝奏云_取直链_有密码Ex
https://bbs.125.la/forum.php?mod=viewthread&tid=14801106
(出处: 精易论坛)
用这个解决了  帖子还是采纳你的
回复 支持 反对

使用道具 举报

结帖率:70% (42/60)
发表于 2023-11-2 06:50:33 | 显示全部楼层   山东省滨州市
支持开源~!感谢分享
回复 支持 反对

使用道具 举报

结帖率:92% (246/266)

签到天数: 11 天

 楼主| 发表于 2023-11-2 04:51:25 | 显示全部楼层   广西壮族自治区崇左市

这就是取重定向地址的代码啊。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

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