軟體名稱：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