Imprimir Página - Binary Converter 3.0 By JaAViEr

Traigo la ultima versión de mi convertidor binario...
Lo nuevo es que convierte mientras escribes...
Osea ejecutas el programa y empiezas a escribir en binario :o
Es muy extenso, pero se que les gustara :p

Código:

@echo off
cls
echo Escribe tu texto a codificar(Binario).
echo Para limpiar pantalla presiona 5
echo Para crear un espacio presiona 0
:na
choice /c abcdefghijklmnopqrstuvwxyz50 >nul

if errorlevel == 28 goto space
if errorlevel == 27 goto limpia
if errorlevel == 26 goto z
if errorlevel == 25 goto y
if errorlevel == 24 goto x
if errorlevel == 23 goto w
if errorlevel == 22 goto v
if errorlevel == 21 goto u
if errorlevel == 20 goto t
if errorlevel == 19 goto s
if errorlevel == 18 goto r
if errorlevel == 17 goto q
if errorlevel == 16 goto p
if errorlevel == 15 goto o
if errorlevel == 14 goto n
if errorlevel == 13 goto m
if errorlevel == 12 goto l
if errorlevel == 11 goto k
if errorlevel == 10 goto j
if errorlevel == 9 goto i
if errorlevel == 8 goto h
if errorlevel == 7 goto g
if errorlevel == 6 goto f
if errorlevel == 5 goto e
if errorlevel == 4 goto d
if errorlevel == 3 goto c
if errorlevel == 2 goto b
if errorlevel == 1 goto a
:a
<nul set /p "=01100001 "
goto na
:b
<nul set /p "=01100010 "
goto na
:c
<nul set /p "=01100011 "
goto na
:d
<nul set /p "=01100100 "
goto na
:e
<nul set /p "=01100101 "
goto na
:f
<nul set /p "=01100110 "
goto na
:g
<nul set /p "=01100111 "
goto na
:h
<nul set /p "=01101000 "
goto na
:i
<nul set /p "=01101001 "
goto na
:j
<nul set /p "=01101010 "
goto na
:k
<nul set /p "=01101011 "
goto na
:l
<nul set /p "=01101100 "
goto na
:m
<nul set /p "=01101101 "
goto na
:n
<nul set /p "=01101110 "
goto na
:o
<nul set /p "=01101111 "
goto na
:p
<nul set /p "=01110000 "
goto na
:q
<nul set /p "=01110001 "
goto na
:r
<nul set /p "=01110010 "
goto na
:s
<nul set /p "=01110011 "
goto na
:t
<nul set /p "=01110100 "
goto na
:u
<nul set /p "=01110101 "
goto na
:v
<nul set /p "=01110110 "
goto na
:w
<nul set /p "=01110111 "
goto na
:x
<nul set /p "=01111000 "
goto na
:y
<nul set /p "=01111001 "
goto na
:z
<nul set /p "=01111010 "
goto na
:limpia
cls
goto na
:space
<nul set /p "=00100000 "
goto na

Ojo esta versión esta hecha especialmente para CPH...
Lo hice solo para mostrarlo ahí...
Pero me dio curiosidad ver sus opiniones.

Es necesario el comando choice.
ftp://ftp.microsoft.com/Services/TechNet/samples/PS/Win98/Reskit/SCRPTING/CHOICE.EXE (http://ftp://ftp.microsoft.com/Services/TechNet/samples/PS/Win98/Reskit/SCRPTING/CHOICE.EXE)
PD: Guardenlo en %windir%\system32
Espero que
Saludos.

Mira, podrias ahorrarte muchas lineas. Un ejemplo con los if:

Código:

if errorlevel == 26 (<nul set /p "=01111010 ")
if errorlevel == 25 (<nul set /p "=01111001 ")
if errorlevel == 24 (<nul set /p "=01111000 ")
if errorlevel == 23 (<nul set /p "=01110111 ")
...
goto:na

o directamente:

Código:

if errorlevel == 26 (<nul set /p "=01111010 "&goto:na)
if errorlevel == 25 (<nul set /p "=01111001 "&goto:na)
if errorlevel == 24 (<nul set /p "=01111000 "&goto:na)
if errorlevel == 23 (<nul set /p "=01110111 "&goto:na)

Saludos ;)

Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: 0x5d en 26 Septiembre 2009, 05:34 am