通过 BT 种子 Hash 值从 BitComet 服务器上下载种子文件
程序和代码下载：
最新，包含 x64 版本：http://pan.baidu.com/netdisk/singlepublic?fid=284762_2586021055
或者在这里找：http://umu.download.csdn.net/
举例：
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.org: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 值", "77f71797d2805d3c2797d5984e326ca0e9bc72e4") 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
最新研究表明，直接在 info_hash 加上前缀 magnet:?xt=urn:btih: 就可以用迅雷下载了。
