[思考]编写迅雷、快车、旋风专用链自动识别解密为普通地址函数
留给自己高考后的题也希望有志之士能试试
扩展:增加FS2You、RayFile、BitComet、纳米盘、uushare、mofile、BrsBox自动转换
回复帖子的建议试试,不试就别回了
**** Hidden Message ***** 貌似论坛有国内3种链的转换程序
其他的特殊地址 只要网上搜索到算法 应该不难实现吧 如果网上没公布 那就高难度咯 本帖最后由 afan 于 2010-6-5 13:04 编辑
简单的弄了下
**** Hidden Message ***** 有算法没有? 麻雀吃蚕豆,有那心,没那能耐。 迅雷和快车的我好像弄过 回复 6# guland
研究这没有什么用处,其实我们应该研究如何能自动抓取并转换然后调用其他下载器下载 回复guland
研究这没有什么用处,其实我们应该研究如何能自动抓取并转换然后调用其他下载器下载
guland 发表于 2010-6-5 07:38 http://www.autoitx.com/images/common/back.gif
这个不难啊,直接调用默认下载器下载指定的解密后的普通连接。。。 简单的弄了下
afan 发表于 2010-6-5 00:41 http://www.autoitx.com/images/common/back.gif
学习下,答案我就不看了 回复 8# kn007
我是说想迅雷以及其他的下载软件一样,点击某个下载链接的时候自动识别并下载 学习Afan,来一个简单的笨办法。#include <ACN_HASH.au3>
#include <array.au3>
go('flashget://W0ZMQVNIR0VUXWh0dHA6Ly82MS4xNjMuOTIuMTY2OjgyL2Rvd24vSW50ZXItZmlyZWZveC1zZXR1cC56aXBbRkxBU0hHRVRd&102')
Func go($url)
If StringRegExp($url,'thunder\:\/\/(.+)') Then
$base=StringRegExp($url,'thunder\:\/\/(.+)',3)
$Decrypt = _Base64Decode($base)
$fin=StringRegExp(BinaryToString($Decrypt),'AA(.+)ZZ',3)
MsgBox(0,0,$fin)
EndIf
If StringRegExp($url,'flashget\:\/\/(.+)') Then
$base=StringRegExp($url,'flashget\:\/\/(.+)',3)
$Decrypt = _Base64Decode($base)
$fin=StringRegExp(BinaryToString($Decrypt),'\(.+)\',3)
MsgBox(0,0,$fin)
EndIf
EndFunc
刚才发现我3#的代码居然无故加入了【hide】字符,重新编辑了下,现在应该才是ok的~
另外,网盘的链接转换意义貌似不大,基本上就算转换正确也无法下载完整~ 不知007是否看过这篇文章传送门 http://www.autoitx.com/thread-15804-1-1.html
提供一点参考,抛砖引玉? 不知007是否看过这篇文章
lchl0588 发表于 2010-6-5 21:05 http://www.autoitx.com/images/common/back.gif
没,谢谢了
页:
[1]
2