Crypter des fichiers txt en .bat

@echo off
mode con: cols=95 lines=20
color 0F
chcp 1252 > nul
setlocal enableextensions enableDelayedExpansion 
set destination=\\mondossier

set "dv==::"
if defined !dv! ( 
   echo. & echo Veuillez exécuter ce script en administrateur
   endlocal & exit
)

if "A%~1A"=="AA" (exit)
if /i "%~x1"==".csv" (call :tri %1)

echo. & pause
Endlocal
exit

rem
rem
rem

:tri
title %1
if not exist "%destination%" (mkdir "%destination%")

for /f "eol=µ usebackq tokens=1,2,3,25,* delims=;" %%A in ("%~1") do (
echo %%A;%%B;%%C;%%D;%%E
set result=%%A
set path=%destination%\%%D\ETAT_PAIEMENT_!result:~0,3!_%%D.csv
echo path=!path!
if not exist "%destination%\%%D" (mkdir "%destination%\%%D")
echo %%A;%%B;%%C;%%D;%%E >> !path!
)
call :password "%%A" "7za.dll" "7za.exe" "7zxa.dll"
goto :eof

rem
rem
rem

:password
for /L %%H in (2,1,4) do (
if not exist "%windir%\system32\%~%%H" (
echo. & echo ##### Impossible de protéger les fichiers par mot de passe, veuillez installer 7za.exe #####
echo. & pause
goto :eof
)
)
(pushd %destination%) || (goto :eof)
set mot_de_passe=%~1%DATE:/=%
for /f "tokens=*" %%R in ('dir /b /a-d "*.csv"') do (7za a %%~nR.7z %%~nxR -p%mot_de_passe%)
del /F /Q "*.csv"
popd
goto :eof
rem