通過 BT 種子 Hash 值從 BitComet 服務器上下載種子文件

程序和代碼下載：

最新，包含 x64 版本：http://pan.baidu.com/netdisk/singlepublic?fid=284762_2586021055

或者在這里找：http://umu.download.csdn.net/

舉例：

Hash 值為 004f50950256e66f128d528d0773fdefbc298cce 的種子，可以通過以下鏈接下載：

http://torrent-cache.bitcomet.org:36869/get_torrent?info_hash=004f50950256e66f128d528d0773fdefbc298cce&size=226920869&key=44a2a41842ff15b47cf54c1470356b32cba26730

　　產生這個 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: 就可以用迅雷下載了。