[思考]编写迅雷、快车、旋风专用链自动识别解密为普通地址函数

kn007

留给自己高考后的题
也希望有志之士能试试

扩展：增加FS2You、RayFile、BitComet、纳米盘、uushare、mofile、BrsBox自动转换

回复帖子的建议试试，不试就别回了

游客，本帖隐藏的内容需要积分高于 11 才可浏览，您当前积分为 0

sxd

貌似论坛有国内3种链的转换程序
其他的特殊地址 只要网上搜索到算法 应该不难实现吧 如果网上没公布 那就高难度咯

afan

简单的弄了下

游客，如果您要查看本帖隐藏内容请回复

3mile

有算法没有？

lpxx

麻雀吃蚕豆，有那心，没那能耐。

guland

迅雷和快车的我好像弄过

guland

回复 6# guland


    研究这没有什么用处,其实我们应该研究如何能自动抓取并转换然后调用其他下载器下载

kn007

回复  guland


    研究这没有什么用处,其实我们应该研究如何能自动抓取并转换然后调用其他下载器下载
guland 发表于 2010-6-5 07:38

    这个不难啊，直接调用默认下载器下载指定的解密后的普通连接。。。

kn007

简单的弄了下
afan 发表于 2010-6-5 00:41

    学习下，答案我就不看了

guland

回复 8# kn007


    我是说想迅雷以及其他的下载软件一样,点击某个下载链接的时候自动识别并下载

3mile

学习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[0])
                $fin=StringRegExp(BinaryToString($Decrypt),'AA(.+)ZZ',3)
                MsgBox(0,0,$fin[0])
        EndIf
        
        If StringRegExp($url,'flashget\:\/\/(.+)') Then
                $base=StringRegExp($url,'flashget\:\/\/(.+)',3)
                $Decrypt = _Base64Decode($base[0])                
                $fin=StringRegExp(BinaryToString($Decrypt),'\[FLASHGET\](.+)\[FLASHGET\]',3)
                MsgBox(0,0,$fin[0])                
        EndIf
        
EndFunc

afan

刚才发现我3#的代码居然无故加入了【ｈｉｄｅ】字符，重新编辑了下，现在应该才是ok的~
另外，网盘的链接转换意义貌似不大，基本上就算转换正确也无法下载完整~

lchl0588

不知007是否看过这篇文章传送门

卫和谐

http://www.autoitx.com/thread-15804-1-1.html
提供一点参考,抛砖引玉?

kn007

不知007是否看过这篇文章
lchl0588 发表于 2010-6-5 21:05

    没，谢谢了