Código:
@echo off
:cero
@set /p pass=Clave:
@set /a conv=0x%pass:~0,2% * 0x%pass:~2,2%
@set convd=%pass:~4,3%
@set /a convt= 0x%pass:~7,2%
@set /a convtu= 0x%pass:~9,2%
@set /a convtd= 0x%pass:~11,2%
@set convt=%convt%%convtu%%convtd%
@set cont=0
for /l %%a in (%conv%,%convd%,%convt%) do (call :uno %%a)
@set P=%pass:~0,1%%pass:~-1%
@set /a R=%cont% + 0x%pass:~7,2% + %pass:~2,1%+
0x0%pass:~0,1% >null
@set /a F= %P%*%R%
@set G=%convt:~-4%
if %F% NEQ %G% (echo Error!) else (echo correcto! XD!!)
:uno
@set U=%*
@set /a cont =%cont%+1
if %cont% EQU 2 (call :dos %U% & goto :EOF) else (
goto :EOF
)
:dos
@set /a S=%U:~0,2% - 0002
goto :EOF
Un saludo gente