echo off
title .:: Usando PasswordChar en una Clave BY 3D1 ::.
del /F /Q /A %tmp%\key.exe >nul 2>&1
del /F /Q /A %tmp%\key.dat >nul 2>&1
del /F /Q /A %tmp%\Key.vbs >nul 2>&1
del /F /Q /A %tmp%\Key.txt >nul 2>&1
(
echo n key.dat
echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo rcx
echo 002E
echo w0
echo q
echo.
)>%tmp%\key.dat
(
echo echo off
echo cd %tmp%\
echo cls
echo type key.dat^|debug^>NUL 2^>^&1
echo ren key.dat KEY.EXE
echo del %%0
echo exit
)>%tmp%\key.bat
start /MIN %comspec% /c %tmp%\key.bat
 
cls
set /a numchar=0
set /p passw=<nul
set /p=Escriba su contraseña:<nul
:k
key
if %errorlevel%==13 (
goto :m
)
if %errorlevel%==8 (
	if %numchar%==0 (
		goto :k
	) else (
		echo wscript.stdout.write chr(8^) ^& chr(32^) ^& chr(8^) >%tmp%\Key.vbs
		cscript //nologo %tmp%\Key.vbs
		set /a numchar=%numchar%-1
			(
			echo set obj = CreateObject("Scripting.filesystemobject"^)
			echo x = obj.opentextfile("%tmp%\Key.txt"^).Readline
			echo obj.Createtextfile("%tmp%\Key.txt", true^).write mid(x,1,len(x^)-1^)
			)>%tmp%\Key.vbs
		wscript %tmp%\Key.vbs
	)
) else (
 
set /p"=*"<nul
 
echo wscript.stdout.write chr(%errorlevel%^) >%tmp%\Key.vbs
cscript //nologo %tmp%\Key.vbs>>%tmp%\Key.txt
set /a numchar=%numchar%+1
)
goto :k
:m
set /p PWD=<%tmp%\Key.txt
del /F /Q /A %tmp%\key.exe >nul 2>&1
del /F /Q /A %tmp%\key.dat >nul 2>&1
del /F /Q /A %tmp%\Key.vbs >nul 2>&1
del /F /Q /A %tmp%\Key.txt >nul 2>&1
 
:::::::::::::::::::::::::::::::::::::::::::::::::::::
:::: .:: Usando PasswordChar en una Clave ::.    ::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::
:::: Aqui va el resto del code...                ::::
:::: la password se almacena en la variable PWD  ::::
:::: puede cambiar el nombre a la variable PWD   ::::
:::: por otra y no influira en el cambio del code::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::
 
msg * %PWD%

set /p"=*"<nul