使用 rar 命令加密当前目录内容_v0.0.11

最新

:::::::::::::::::::::::::::::::::::::::::::
::      version: 0.0.11                  ::
::      author juner                     ::
::      date 16/12/2020 23:09 Wed        ::
::      since rar-6.0                    ::
::      os windows10-1908                ::
:::::::::::::::::::::::::::::::::::::::::::
@chcp 65001
:: Number of characters
@set n=16
@setlocal enabledelayedexpansion
:main
:: Get Current Time
@set time_let=%time:~0,2%
@if /i %time_let% LSS 10 ( @set time_let=0%time:~1,1% )
@set time_let=%time_let%-%time:~3,2%-%time:~6,2%
@set current=%date:~3,4%-%date:~5,2%-%date:~8,2%-%time_let%
:: Character array initialization
@set str=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
:: Random index to get characters
@for /l %%a in (1,1,%n%) do @call :generate "%%a"
echo %random_str% > encryps
:manage
:: Core
:: File With Encryption
"C:\Program Files\WinRAR\rar.exe" a -r -zencryps -k -s -m5 -ma5 -md128m -msrar -xencryps -xrz.bat -or -s %current%.rar -p < encryps
:: File Not With Encryption
:: "C:\Program Files\WinRAR\rar.exe" a -r -k -s -m5 -ma5 -md128m -msrar -xencryps -xrz.bat -or -s %current%.rar -p < encryps
@echo:
@echo Keep the encryption key.
@echo It is recommended to save it to another place or in Excel.
@timeout /t 10
:: pause
:generate
:: Random
@if "%~1"=="" goto:eof
@set /a r=%random%%%62
@set random_str=%random_str%!str:~%r%,1!