蓝奏云外链取真实链接

我叫四糸乃

蓝奏云外链取真实链接

• 教程涉及到POST建议新手系统的学习一下相关知识
  

1、需要的工具

• 抓包工具：Edge浏览器、谷歌浏览器
• 涉及模块：鱼刺类.HTTP(v6.0)
  

2、第一步获取外链一级地址

• 访问分享外链利用浏览器开发工具抓到输入密码后的请求数据

  请求 URL: https://wwd.lanzouj.com/ajaxm.php
  提交参数：action=downprocess&sign=AGYHOQEwV2ZRWAE_bBTVXawBtVWhQO1ZhCz9RYAVpUWIDJVNwDW0DZglpUDALbgY0VTsENlA9AzNXZA_c_c&p=Eldown

• 分析提交的数据得出该提交的数据在访问页面源码中【data】的值，p值为密码。用易语言代码实现就是
  

  

子程序名	返回值类型	公开	备 注
取一级链接	文本型
参数名	类 型	参考	可空	数组	备 注
URL	文本型
pass	文本型

变量名	类 型	静态	数组	备 注
http	WinHttpR
Json	zyJsonValue
data	文本型

http.Auto (真)
http.Open (“GET”, URL)  ' 取提交数据
http.Send ()
data ＝ 文本_取中间 (http.GetResponseText (), “data : '”, “'+pwd,”)
' ---
http.Open (“POST”, “https://wwd.lanzouj.com/ajaxm.php”)
http.SetRequestHeader (“Referer”, URL)
http.Send (data ＋ pass)
Json.解析 (http.GetResponseText ())
返回 (Json.取文本 (“dom”) ＋ “/file/” ＋  Json.取文本 (“url”))

.版本 2<br /> <br /> .子程序 取一级链接, 文本型<br /> .参数 URL, 文本型<br /> .参数 pass, 文本型<br /> .局部变量 http, WinHttpR<br /> .局部变量 Json, zyJsonValue<br /> .局部变量 data, 文本型<br /> <br /> http.Auto (真)<br /> http.Open (“GET”, URL)  ' 取提交数据<br /> http.Send ()<br /> data ＝ 文本_取中间 (http.GetResponseText (), “data : '”, “'+pwd,”)<br /> ' ---<br /> http.Open (“POST”, “https://wwd.lanzouj.com/ajaxm.php”)<br /> http.SetRequestHeader (“Referer”, URL)<br /> http.Send (data ＋ pass)<br /> Json.解析 (http.GetResponseText ())<br /> 返回 (Json.取文本 (“dom”) ＋ “/file/” ＋  Json.取文本 (“url”))

• 经测试返回的数据为Json文本，当中【dom】的值添加“/file/”再与【url】的值合并访问为一级链接地址【inf】的值为该分享链接文件名称。

  {
    "zt": 1,
    "dom": "https://develope.lanzoug.com",
    "url": "?A2VVawg5VWQCCwY+ATRWOgM8Bj4DKFcwUCQBc1ZmWjRSNQYOCGQFf1NxAy0CIgAnAz9SPgU2AmUEXFo1BT1WagM0VToIYVU0AmcGZwFlVmUDfwZlAy9XaFBkATJWMlp9UiIGIQhoBWNTNQNnAmQALgNpUm8FdQIxBDRacwVqVjUDNFVjCDFVYwJkBmYBbVZgA2AGNgNuV2dQYQEyVmtablI0BjQIZwVnUzMDYwIzADUDOlIxBTwCMgQ0WmsFd1YjA3tVdghzVXQCJwY1ASdWPgM9Bj4DbldiUG8BMlYzWmhSagZ3CCEFOFNoAzACMAA8A2hSYQVsAjEEMFpoBWBWZgM6VTUIe1UvAnIGNgE5ViADZAYyA2pXY1BnATBWOFpqUmsGaAhnBXdTcAMlAiEAPANoUmEFbAIwBDVaZAVsVmUDMFUzCHNVdAI9BiABaFZmA2gGNANyV2RQbwE1ViRaaVJgBmkIewVgUzcDYA==",
    "inf": "testlog_1.txt"
  }

  
  

3、利用一级链接取到真实下载地址

• 如上已经取到一级链接，利用代码进行访问该地址得出页面代码分析数据
• 发现在<script type="text/javascript">中的【url 】指向这层提交的地址【data】则为提交的数据。
• 该Json文本有三个参数【file】【el】【sign】其中一三为明文则第二是function down_r(el)的参数，数据中寻找找到值为[2]。
• 利用上数据进行易语言代码测试
  

  

子程序名	返回值类型	公开	备 注
取真实链接	文本型
参数名	类 型	参考	可空	数组	备 注
一级url	文本型

变量名	类 型	静态	数组	备 注
http	WinHttpR
Json	zyJsonValue
file	文本型
sign	文本型

http.Auto (真)
http.Open (“GET”, 一级url)
http.Send ()
file ＝ 文本_取中间 (http.GetResponseTextU2A (), “file':'”, “','el”)
sign ＝ 文本_取中间 (http.GetResponseTextU2A (), “:el,'sign':'”, “' },”)
http.Open (“POST”, “https://develope.lanzoug.com/file/ajax.php”)
循环判断首 ()
http.Send (“file=” ＋ URLEncode (file) ＋ “&el=2” ＋ “&sign=” ＋ URLEncode (sign))
Json.解析 (http.GetResponseTextU2A ())
循环判断尾 (Json.取文本 (“url”) ＝ “?SignError”)
返回 (Json.取文本 (“url”))

.版本 2<br /> <br /> .子程序 取真实链接, 文本型<br /> .参数 一级url, 文本型<br /> .局部变量 http, WinHttpR<br /> .局部变量 Json, zyJsonValue<br /> .局部变量 file, 文本型<br /> .局部变量 sign, 文本型<br /> <br /> http.Auto (真)<br /> http.Open (“GET”, 一级url)<br /> http.Send ()<br /> file ＝ 文本_取中间 (http.GetResponseTextU2A (), “file':'”, “','el”)<br /> sign ＝ 文本_取中间 (http.GetResponseTextU2A (), “:el,'sign':'”, “' },”)<br /> http.Open (“POST”, “https://develope.lanzoug.com/file/ajax.php”)<br /> .循环判断首 ()<br />     http.Send (“file=” ＋ URLEncode (file) ＋ “&el=2” ＋ “&sign=” ＋ URLEncode (sign))<br />     Json.解析 (http.GetResponseTextU2A ())<br /> .循环判断尾 (Json.取文本 (“url”) ＝ “?SignError”)<br /> 返回 (Json.取文本 (“url”))

蓝奏云取真实链接.zip (169.08 KB, 下载次数: 41)

2022-8-24 22:24 上传

点击文件名下载附件
源码及模块

shandian888

  支持开源~！感谢分享

聚散终有时2022

支持开源~！感谢分享

zhaoxianfang

66666666666666666666666666

awcm6666

9-14测试源码有效  支持开源~！感谢分享

flash5435

1060631438

支持开源~！感谢分享

guyuelintian

支持开源~！感谢分享

fjgh

zzh233

有干货有教程 双击666

haishe