@echo off
Rem Morf v. 2.0
Rem solo valido unicode, no unicode big endian
Rem acepta caracteres especiales :D
Rem script creado por segadorfelix
REM Gracias EleKtro H@cker
REM Unicode basado en a2u.bat bit.ly/RjDeCr
Rem funciona por linea de comandos

set "text=" & set "palabra =" & set "frase =" & set "UNI=" & set "Fun="
IF /I ["%~3"]==["-U"] ( set "UNI=yes" && set "ftre=Unidode" && goto Format ) else set "ftre=ANSI"
:MORF
IF /I ["%~1"]==["-T"] goto text
IF /I ["%~1"]==["-F"] goto frase
IF /I ["%~1"]==["-p"] goto palabra
echo Este script transforma un texto en Unicode a Ansi
echo.
echo Funcionamiento del script:
echo morf -T "Ubicacion del text" Trasnfoma un texto completo a ANSI
echo Ejemplo: 
echo morf -T "%userprofile%\Desktop\emoticonos.txt"
echo.
echo morf -F "Frase" Trasnfoma una frase a ANSI
echo Ejemplo: 
echo morf -F "õl á©illante"
echo=
echo morf -P "Palabra" Trasnfoma una palabra a ANSI
echo Ejemplo: 
echo morf -P "á©illante"
echo+
echo Todas las conversiones se ponen en un archivo .ini
echo con el nombre ANSI, junto con un numero al azar,
echo exceptuando transformacion de texto.
echo.
echo Para hacer un proceso inverso(ANSI a Unicode)ponga al final -U
echo Ejemplo:
echo morf -F "äl  ¸illante" -U Tranforma una frase a Unidode
echo.
pause
exit /B
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:text
call:texto "%~2" "%HuecoDoss%"
exit /B
:texto
set text=%~f1
IF DEFINED UNI (call:funcion %text% %~2) else (type %text%>>%text%_%ftre%)
echo Transformacion completada.
echo.
Goto:EOF
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:palabra
IF DEFINED UNI (CHCP 1252 >NUL)
set "palabra = %~2"
set "palabra ">nn.ini
set "Result=%ftre%%random%.ini"
set /A "hty=0"
for /F "tokens=3" %%y IN (nn.ini) DO (echo %%y>%Result%)
del nn.ini
IF DEFINED UNI (goto qwerty)
echo Transformacion completada
echo.
exit /B
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:frase
IF DEFINED UNI (CHCP 1252 >NUL)
set "frase = %~2"
set "frase ">nn.ini 
set "Result=%ftre%%random%.ini"
set /A "hty=0"
FOR /f "tokens=3*" %%a IN (nn.ini) DO (echo %%a %%b>%Result%)
del nn.ini
IF DEFINED UNI (goto qwerty)
echo Transformacion completada
echo.
exit /B
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:Format
FOR /F "usebackq tokens=5" %%A IN (`CHCP`) DO (IF %%A==1252 (
SET CMDsig=850) else (set CMDsig=%%A))
set "Result="
SET "HuecoDoss="
SET "HuecoDoss=R%random%W.ini"
CALL :MORF %*
exit /B
:Funcion
CHCP 1252 >NUL
(SET /P=ÿþ)<NUL>"%HuecoDoss%"
CHCP %CMDsig% >NUL
CMD /U /C TYPE "%~nx1" >> "%HuecoDoss%"
REN "%~f2" "%~nx1_%ftre%"
Goto:EOF
:qwerty
CALL :MORF -t "%Result%"
DEL %Result%
Goto:EOF
 

IF ["%~t1"]==[""] (echo No es un archivo) else echo si es un archivo

@echo off
Rem Morf V 2.5
Rem solo valido unicode, no unicode big endian
Rem acepta caracteres especiales :D
Rem script creado por segadorfelix
REM Gracias EleKtro H@cker
REM Unicode basado en a2u.bat Code=bit.ly/RjDeCr
Rem funciona por linea de comandos

set "text=" & set "palabra =" & set "frase =" & set "UNI=" & set "Fun="
IF /I ["%~2"]==["-U"] ( set "UNI=yes" && set "ftre=Unicode" && goto Format ) else set "ftre=ANSI"
:MORF
IF exist "%~1" (IF NOT "%~x1" EQU "" (goto text)) else (IF NOT "%~1"=="" goto Fra_Pal)
echo Este script transforma un texto en Unicode a Ansi y viceversa
echo.
echo Funcionamiento del script:
echo morf "Ubicacion del text" Trasnfoma un texto completo a ANSI
echo Ejemplo: 
echo morf "%userprofile%\Desktop\emoticonos.txt"
echo.
echo morf "Frase" Trasnfoma una frase a ANSI
echo Ejemplo: 
echo morf "õl á©illante"
echo=
echo morf "Palabra" Trasnfoma una palabra a ANSI
echo Ejemplo: 
echo morf "á©illante"
echo+
echo Todas las conversiones se ponen en un archivo .ini
echo con el nombre ANSI/Unicode, junto con un numero al azar,
echo exceptuando transformacion de texto.
echo.
echo Para hacer un proceso inverso(ANSI a Unicode)ponga al final -U
echo Ejemplo:
echo morf "äl  ¸illante" -U Tranforma una frase a Unidode
pause
exit /B
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:text
call:texto "%~1" "%HuecoDoss%"
exit /B
:texto
set text=%~f1
IF DEFINED UNI (call:funcion %text% %~2) else (type %text%>>%text%_%ftre%)
echo Transformacion completada.
echo.
Goto:EOF
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:Fra_Pal
IF DEFINED UNI (CHCP 1252 >NUL)
set "Fra_Pal = %~1"
set "Fra_Pal ">nn.ini
set "Result=%ftre%%random%.ini"
set /A "hty=0"
for /F "tokens=2*" %%y IN (nn.ini) DO (echo %%z>%Result%)
del nn.ini
IF DEFINED UNI (goto qwerty)
echo Transformacion completada
echo.
exit /B
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:Format
FOR /F "usebackq tokens=5" %%A IN (`CHCP`) DO (IF %%A==1252 (
SET CMDsig=850) else (set CMDsig=%%A))
set "Result="
SET "HuecoDoss="
SET "HuecoDoss=R%random%W.ini"
CALL :MORF %*
exit /B
:Funcion
CHCP 1252 >NUL
(SET /P=ÿþ)<NUL>"%HuecoDoss%"
CHCP %CMDsig% >NUL
CMD /U /C TYPE "%~nx1" >> "%HuecoDoss%"
REN "%~f2" "%~nx1_%ftre%"
Goto:EOF
:qwerty
CALL :MORF "%Result%"
DEL %Result%
ren %Result%_Unicode %Result%
Goto:EOF