软体名称：RHash 软体资讯：windows linux 免安装 软体功能：hash 值计算 软体特色: 体积小 速度快 有32/64版本 官方网站：http://sourceforge.net/projects/rhash/ 下载连结：http://sourceforge.net/projects/rhash/files/rhash/1.2.9/ 推荐原因：本来是找算 ED2K 值软体 找到这套 又同时内建 SFV 功能 很方便 谁适合用：档案 hash 值不对就觉得毛毛的人(? 谁不适合用：这套得在 cmd 下使用 不过 有写了简单的 VBS 呼叫程式 也是很方便 使用感想: 这套似乎不支援 unicode 除此之外都很满意 附注: 下面是自己写的右键呼叫选单程式 以下是登录档 存成 *.reg 後 点2下汇入(VBS的路径位置需自己设定) 档案开始 Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\*\shell\RHash] [HKEY_CLASSES_ROOT\*\shell\RHash\command] @="wscript.exe C:\\portable\\RHash.vbs \"%1\"" 档案结束 以下是 VBS 档案内容 存成 RHash.vbs (建议值 OR 跟登录档内相同也可) 记得要改 RHash 主程式的位置!! 档案开始 Set WshShell = WScript.CreateObject("WScript.Shell") Dim argument(2) argument(0) = "C:\portable\RHash-1.2.9-win64\rhash.exe" 'application path Dim argumentselect Do argumentselect = InputBox("1 = MD5" &Chr(10) & _ "2 = SHA1" &Chr(10) & _ "3 = ED2K" &Chr(10) & _ "4 = CHECK" &Chr(10) & _ "Select Feature (Other Number=Exit)" , _ "Input A Number For Your Choice") Loop While IsNumeric(argumentselect) = Flase Select Case argumentselect Case 1 argument(1) = "-M" Case 2 argument(1) = "-H" Case 3 argument(1) = "-E" Case 4 argument(1) = "-c" Case else WScript.Quit End select argument(2) = WScript.Arguments.Item(0) Return = WshShell.run("%COMSPEC% /u /k" &Chr(32) &argument(0) _ &Chr(32) &argument(1) _ &Chr(32) &Chr(34) &argument(2) &Chr(34) , 1 , True) 档案结束 本着作依据 Creative Commons 姓名标示-非商业性-相同方式分享 授权条款为授权 http://creativecommons.org/licenses/by-nc-sa/3.0/tw/ 2015/10/21 update: https://github.com/belldandy-syaorin/script/tree/master/rhash 目录变更 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 125.224.34.182 https://github.com/belldandy-syaorin/script/blob/master/RHash.vbs (VBS) 内建安装右键选单 ※ 编辑: Bellkna 来自: 111.252.205.109 (09/20 19:16) ※ 编辑: Bellkna 来自: 111.252.209.162 (11/02 20:18) ※ 编辑: Bellkna (114.33.123.103), 10/21/2015 20:50:42