程序和代码下载：

UMU 的网盘 http://umu.ys168.com/，目录 Tools\UMU_Script\GenBitCometTorrentURLviaHash.7z

或者在这里找：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