如何把普通下载地址转换成迅雷、快车的专用下载地址？

Question

如何把普通下载地址转换成迅雷、快车的专用下载地址？是带联盟号的那种！
我有它们转换的asp代码，但是我对asp不熟悉（尽管asp比较类似Vb），谁能转换为VB代码？下载地址：www.geekshare.cn/asptovb.rar

m3 = len1 Mod 3
If m3 > 0 Then
'补足位数是为了便于计算
asContents = asContents & String(3 - m3, ChrB(0))
len1 = len1 + (3 - m3)
len2 = len1 - 3
Else
len2 = len1
End If
这个显示无效的过程或参数

Answer 1

其实很简单，跟你大概讲一讲。
将base64.asp中的 <% 和 %>中的内容全部复制到VB的代码中。也就是说从第二行开始到倒数第二行之间的内容。
这时候可能会出现很多语法错误，没关系，一个一个地改。在那个asp里，两斜杠 // 表示注释，删掉就可以了。你应该有点VB语法基础，你凡是看到 // 就把它想成是单引号 ' ，表示注释。

最后
dim url as string
dim result as string
url="test"
result = ThunderEncode(usl)

Answer 2

晕...迅雷和快车的专用连接就是用Base64算法把地址加密......
找个base64模块就可以了

联盟号不是写在转换后的连接里面的,它是通过在页面上的脚本判断本机有没有安装迅雷,没安装就提示下载,那时候才会用到联盟号

Answer 3

如果是普通的地址可以直接用 迅雷、快车 下载,至于有没有 迅雷、快车的专用下载地址,那也不是用普通的地址转换了 就能解决的

Answer 4

ChrB(0)应该是Chr(0)

Answer 5

http://ifisker.com/sites/Thunder/ 可以把普通的转迅雷 ，也可以把迅雷转普通的

Answer 6

如果是普通的地址可以直接用 迅雷、快车 下载,至于有没有 迅雷、快车的专用下载地址,那也不是用普通的地址转换了 就能解决的