SENHA ENCRIPTADA

@echo off
color f0

IF '%PROCESSOR_ARCHITECTURE%' EQU 'amd64' (
   >nul 2>&1 "%SYSTEMROOT%\SysWOW64\icacls.exe" "%SYSTEMROOT%\SysWOW64\config"
 ) ELSE (
   >nul 2>&1 "%SYSTEMROOT%\system32\icacls.exe" "%SYSTEMROOT%\system32\config"
)

if '%errorlevel%' NEQ '0' (
    echo Requisitando previlegios de adiministrador do sistema...
    goto UACPrompt
) else ( goto Loga_do )

:UACPrompt
    echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
    set params = %*:"=""
    echo UAC.ShellExecute "cmd.exe", "/c ""%~s0"" %params%", "", "runas", 1 >> "%temp%\getadmin.vbs"

    "%temp%\getadmin.vbs"
    del "%temp%\getadmin.vbs"
    exit /B

:Loga_do
    pushd "%CD%"
    CD /D "%~dp0"

if not exist "%HOMEDRIVE%\Contas_User\" (
  mkdir "%HOMEDRIVE%\Contas_User\"
    if "!errorlevel!" EQU "0" (
      goto Diret_Existe
    ) else (
   echo Foi criado o diretorio "%HOMEDRIVE%\Contas_User" com exito & timeout /t 5
  )
) else (
      goto Diret_Existe
)

:Diret_Existe

if exist %HOMEDRIVE%\Contas_User\Usu_Ario.Txt (
    goto Senha_existe
) else (
    goto Cria_Senha
)
:Senha_existe

if exist %HOMEDRIVE%\Contas_User\Senha.Txt (
    goto UsernameExist
) else (
    goto Cria_Senha
)


:UsernameExist

 for /f "Delims=" %%A in (%HOMEDRIVE%\Contas_User\Usu_Ario.Txt) do (
      set Checa_Usu_Arios=%%A
 )
    for /f "Delims=" %%B in (%HOMEDRIVE%\Contas_User\Senha.Txt) do (
      set Checa_Sen_has=%%B
)

goto Tela_Senha

:Cria_Senha
cls
echo Cria Usuarios
echo.

setlocal EnableDelayedExpansion

set /p "Cria_User= Digite o usuario : "
echo.
set /p "Cria_Senha= Digite a senha : "

set CARAC=0123456789azbycxdwevfugthsirjqkplomn

for /l %%C in (10 1 36) do (

for /f %%D in ("!CARAC:~%%C,1!") do (

set /a ACHOU=%%C*%Cria_Senha%
for /f %%E in ("!ACHOU!") do (

set "Cria_User=!Cria_User:%%D=-%%E!"

)
)
)

echo %Cria_User% >> %HOMEDRIVE%\Contas_User\Usu_Ario.Txt
attrib %HOMEDRIVE%\Contas_User\Usu_Ario.Txt +s +h & echo Usuario Criado!

goto pppula
:::::::::::::testando senha encriptada ainda nao funciona
for /l %%C in (1 1 10) do (
for /f %%D in ("!CARAC:~%%C,1!") do (
set /a ACHOU=%%C*%Cria_Senha%
for /f %%E in ("!ACHOU!") do (
set "Cria_Senha=!Cria_Senha:%%D=-%%E!"
)
)
)
::::::::::::::::::::::::::
:pppula


echo %Cria_Senha% >> %HOMEDRIVE%\Contas_User\Senha.Txt
attrib %HOMEDRIVE%\Contas_User\Senha.Txt +s +h & echo Senha criada!
echo.

start %~n0%~x0
exit

:Tela_Senha
color 0a
cls
echo Contas de usuarios existentes.
echo.

setlocal EnableDelayedExpansion

set /p "Usu_Arios= Entre com Usuario : "
echo.
set /p "Sen_has= Entre com sua Senha : "

set CARAC=0123456789azbycxdwevfugthsirjqkplomn

for /l %%C in (10 1 36) do (

for /f %%D in ("!CARAC:~%%C,1!") do (

set /a ACHOU=%%C*%Checa_Sen_has%
for /f %%E in ("!ACHOU!") do (

set "Checa_Usu_Arios=!Checa_Usu_Arios:%%E=%%D!"

)
)
)

for /f %%F in ("!Checa_Usu_Arios!") do (
set "Checa_Usu_Arios=!Checa_Usu_Arios:-=!"

)


if %Usu_Arios%==%Checa_Usu_Arios% (
goto Operacao1_Ok
) else (
goto Operacao_Falsa
)

:Operacao1_Ok
if %Sen_has%==%Checa_Sen_has% (
goto Operacao_Ok
) else (
goto Operacao_Falsa
)

:Operacao_Falsa
color 0c
echo Usuario Incorreto !
timeout /t 10
goto Tela_Senha

:Operacao_Ok
cls
echo Usuario Correto !
echo.
pause

REM seu batch daqui pra baixo.