admin管理员组文章数量:1551670
可以直接将torrent的hash值接在"magnet:?xt=urn:btih:" 后,生成磁力链接,经测试可用!~~
以下为转载内容:
程序和代码下载:
UMU 的网盘 http://umu.ys168/,目录 Tools\UMU_Script\GenBitCometTorrentURLviaHash.7z
或者在这里找:http://umu.download.csdn/
举例:
Hash 值为 004f50950256e66f128d528d0773fdefbc298cce 的种子,可以通过以下链接下载:
产生这个 URL 的关键是 key 的计算,上例中 key=44a2a41842ff15b47cf54c1470356b32cba26730。UMU 做了一个 COM 对象,实现了 Hash 到 Key 的计算。
下面是脚本代码:
Dim objUMU
Dim strHash
Dim strURL
Set objUMU = CreateObject("UMU.UrlGenerator")
strHash = InputBox("请输入 torrent 种子散列值:", "输入 Hash 值", "004f50950256e66f128d528d0773fdefbc298cce")
If Len(strHash) <> 40 Then
WScript.Quit
End If
strURL = "http://torrent-cache.bitcomet:36869/get_torrent?info_hash=" & strHash & "&size=226920869&key=" & objUMU.GenBitCometTorrentKey(strHash)
Set objUMU = Nothing
If Not IsEmpty(InputBox("生成的 URL 如下,按“确定”打开链接。", "结果", strURL)) Then
Dim objWSH
Set objWSH = CreateObject("Wscript.Shell")
objWSH.Run strURL
Set objWSH = Nothing
End If
增加 info_hash 转化成磁力链接(magnet)的功能:
Dim objUMU
Dim strHash
Dim strURL
Set objUMU = CreateObject("UMU.UrlGenerator")
strHash = InputBox("请输入 torrent 种子散列值:", "输入 Hash 值", "004f50950256e66f128d528d0773fdefbc298cce")
If Len(strHash) <> 40 Then
WScript.Quit
End If
strURL = "magnet:?xt=urn:btih:" & objUMU.TorrentHashToMagnetUri(strHash)
Set objUMU = Nothing
If Not IsEmpty(InputBox("生成的 URL 如下,按“确定”打开磁力链接。", "结果", strURL)) Then
Dim objWSH
Set objWSH = CreateObject("Wscript.Shell")
objWSH.Run strURL
Set objWSH = Nothing
End If
相关
版权声明:本文标题:通过 BT 种子 Hash 值从 BitComet 服务器上下载种子文件 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://m.elefans.com/dongtai/1727268174a1105712.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论