@echo off
title String-Ascii Converter
setlocal enabledelayedexpansion
 
if not exist "ascii.exe" (call :ascii)
 
:init
cls
echo.
set /p sentence="Inserte la cadena a convertir > "
call :split "%sentence%"
echo.
echo Cadena: %sentence%
echo Ascii:  (%result:~1%)
echo.
pause > nul
echo.
echo Quiere dejarlo en un archivo de texto? (S/N)
set /p resp2=
if %resp2%==S (call :save)
if %resp2%==s (call :save)
if %resp2%==n (call :dsp)
if %resp2%==N (call :dsp)
endlocal
goto :dsp
 
:save
echo. >> "%USERPROFILE%\Escritorio\String-Ascii.txt"
echo Cadena: %sentence% >> "%USERPROFILE%\Escritorio\String-Ascii.txt"
echo Ascii:  (%result:~1%) >> "%USERPROFILE%\Escritorio\String-Ascii.txt"
cls
echo Se ha creado un archivo en el escritorio con el nombre de "String-Ascii"
pause > nul
 
:split
set target=%~1
call :string "%target%"
for /l %%a in (0,1,%len%) do (
call :toascii "%%target:~%%a,1%%"
set result=!result!,!ascii!)
goto :eof
 
:string
set string=%~1
:string2
set /a length+=1
set /a len=%length%-1
set string=%string:~1%
if "%string%"=="" goto :eof
goto :string2
 
:toascii
(
echo %~1
)|ascii.exe
set ascii=%errorlevel%
goto :eof
 
:ascii
(
echo n ascii.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.
)>ascii.dat
type ascii.dat|debug>NUL 2>&1
del /f/q/a "ascii.exe">NUL 2>&1
ren ascii.dat "ascii.exe"
goto :eof
 
:dsp
cls
echo Inserte:
echo 1 para volver al conversor.
echo 2 para salir.
echo.
set /p resp="> "
if %resp%==1 (call :init)
if %resp%==2 (exit)