@echo off
Title Test
Mode con cols=110 lines=10
 
 
 
:Vars
:~~~~
set "Alphabet=abcdefghijklmn¤opqrstuvwxyzABCDEFGHIJKLMN¥OPQRSTUVWXYZ0123456789.,_+#?­¨^=^<^>^(^)^/^%%"
Set Characters=
Set Passtemp=
Set Password=z
 
 
 
:Loop
:~~~~
FOR /f "tokens=*" %%a in ('"echo %Alphabet%"') do (
Set Characters=%%a
call :Verify
Call :Count_character
)
 
 
 
:Verify
:~~~~~~
If "%Characters%" EQU "%PASSWORD%" (
	echo el pass es "%Characters%"
	pause >nul
) ELSE (
	Goto :EOF
)
 
 
:Count_character
:~~~~~~~~~~~~~~~
Cls
Set "Alphabet=%Alphabet:~1%"
Call :Count_BruteForce
echo.
echo El alfabeto es:  "%alphabet%"
echo.
echo El caracter es:  "%Characters:~,1%"
echo.
echo El passtemp es:  %passtemp%
echo.
pause
Goto :LOOP
 
 
 
:Count_BruteForce
:~~~~~~~~~~~~~~~~
 
If not defined passtemp (Set passtemp="%Characters:~,1%") else (Set passtemp="a%Characters:~,1%")
Goto :EOF