-
-
[旧帖] [下载][半原创]CSDN资源解析器，赚点kx~ 0.00雪花
-
发表于: 2013-5-2 11:23
-
易语言写的~开源~
CSDN下载链接获取_源码.rar
原理：
感谢RootSuLe 15楼
部分源码：
CSDN下载链接获取_源码.rar
原理：
Send: GET /index.php/rest/source/getsourceinfo/资源ID HTTP/1.1 Referer: http://download.csdn.net/index.php/rest/source/getsourceinfo/资源ID Accept: */* Accept-Language: zh-cn Content-Type: application/x-www-form-urlencoded User-Agent: Mozilla/4.0 Host: download.csdn.net Cache-Control: no-cache Recv: i=xxxxxxxxxx&s=xxxxxxxxxx Send: GET //fd.php?i=xxxxxxxxxx&s=xxxxxxxxxx HTTP/1.1 Accept: */* Accept-Language: zh-cn Accept-Encoding: gzip, deflate User-Agent: Mozilla/4.0 Host: dldx.csdn.net Connection: Keep-Alive
感谢RootSuLe 15楼
部分源码：
.版本 2
.子程序 获取CSDN资源信息, 逻辑型
.参数 资源地址, 文本型
.局部变量 正则, 正则表达式类
.局部变量 i, 整数型
资源地址 ＝ 取文本右边 (资源地址, 取文本长度 (资源地址) － 倒找文本 (资源地址, “/”, , 假))
资源地址 ＝ HTTP读文本_ (“http://download.csdn.net/index.php/rest/source/getsourceinfo/” ＋ 资源地址)
资源地址 ＝ 子文本替换 (Ucs2解码 (资源地址), “\/”, “/”, , , 真)
.如果真 (资源地址 ＝ “”)
返回 (假)
.如果真结束
正则.创建 (#Tag, 资源地址) ' "tag":\["(.*?)"\]
.如果真 (正则.取匹配数量 () ≥ 1)
资源信息.标签 ＝ 子文本替换 (正则.取子匹配文本 (1, 1), #引号, , , , 真)
.如果真结束
资源地址 ＝ 正则.替换 ()
正则.创建 (#匹配, 资源地址) ' "(.*?)":"(.*?)"
重定义数组 (资源信息.字段名, 假, 正则.取匹配数量 ())
重定义数组 (资源信息.字段内容, 假, 正则.取匹配数量 ())
.计次循环首 (正则.取匹配数量 (), i)
资源信息.字段名 [i] ＝ 正则.取子匹配文本 (i, 1)
资源信息.字段内容 [i] ＝ 正则.取子匹配文本 (i, 2)
.计次循环尾 ()
返回 (真)
|
|
|---|---|
|
|
|
|
|
|
|
|
|
