Tol!k

|
Posted: Mon Jul 18, 2011 19:23 Post subject: |
|
|
Code: | @echo off &setlocal enableextensions
rem Хэши > CSV
rem Пример параметров для ТС: "%WL" "%T_hashs.csv"
rem Автор: Tol!k
rem Используется RHash http://rhash.anz.ru/
if not exist "%~2" call :header "%~2"
for /f "usebackq delims=" %%s in (`type "%~1"`) do (
for /f "delims=" %%f in ('dir /b/s/a-d/on "%%s"') do (
title "%%f" &call :hashs "%~2" "%%f"
)
)
goto :eof
:hashs
>>%1 rhash.exe -p %%p;%%s;%%C;%%M;%%H;%%{tiger};%%G;-;%%{sha512};%%W;\n %2
goto :eof
:header
>%1 echo File;Size;CRC32;MD5;SHA1;Tiger;GOST;HAVAL;SHA512;Whirlpool;
goto :eof
|
+ если .csv уже существует, то он дописывается
- не нашёл в RHash алгоритм HAVAL |
|