Underc0de

Programación Scripting => Batch - Bash => Mensaje iniciado por: 79137913 en Febrero 05, 2013, 11:49:59 AM

Título: Cifrado Cesar
Publicado por: 79137913 en Febrero 05, 2013, 11:49:59 AM
HOLA!!!

@ECHO OFF
SETlocal enabledelayedexpansion
SET /P OP=ENCRIPTAR(1), DESENCRIPTAR(2),SALIR(ELSE):
IF %OP%==1 GOTO ENCRIPTAR
IF %OP%==2 GOTO DESENCRIPTAR
EXIT
:DESENCRIPTAR
SET A=ZYXWVUTSRQPONMLKJIHGFEDCBAZYXWVUTSRQ
SET /P F=STRING A DESENCRIPTAR:
CALL SET DESPLAZA=%%F:~%H%,1%%%
set /a H+=1
GOTO LOOPA
:ENCRIPTAR
SET A=ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJ
SET /P F=STRING A ENCRIPTAR:
SET /P DESPLAZA=DESPLAZAMIENTO:
SET RN=%DESPLAZA%
GOTO LOOPA
:LOOPA
CALL SET G=%%F:~%H%,1%%%
IF "%G%"=="" (GOTO TERMINAR)
set /a H+=1
SET C=0
:LOOP
call set B=%%A:~%C%,1%%%
set /a C+=1
IF "%C%" EQU "27" (GOTO LOOPA)
IF "%G%"=="%B%" (
SET /A D=%C%+%DESPLAZA%-1
CALL SET E=%%A:~!D!,1%%%
SET RN=%RN%!E!
)
IF "%G%"==" " (SET RN=%RN%%G%
GOTO LOOPA)
IF "%G%"=="1" (SET RN=%RN%%G%
GOTO LOOPA)
IF "%G%"=="2" (SET RN=%RN%%G%
GOTO LOOPA)
IF "%G%"=="3" (SET RN=%RN%%G%
GOTO LOOPA)
IF "%G%"=="4" (SET RN=%RN%%G%
GOTO LOOPA)
IF "%G%"=="5" (SET RN=%RN%%G%
GOTO LOOPA)
IF "%G%"=="6" (SET RN=%RN%%G%
GOTO LOOPA)
IF "%G%"=="7" (SET RN=%RN%%G%
GOTO LOOPA)
IF "%G%"=="8" (SET RN=%RN%%G%
GOTO LOOPA)
IF "%G%"=="9" (SET RN=%RN%%G%
GOTO LOOPA)
IF "%G%"=="0" (SET RN=%RN%%G%
GOTO LOOPA)
GOTO LOOP
:TERMINAR
ECHO %RN%
pause
EXIT


GRACIAS POR LEER!!!
Título: Re:Cifrado Cesar
Publicado por: martinanonymo en Febrero 05, 2013, 12:38:43 PM
Muy bueno!
Título: Re:Cifrado Cesar
Publicado por: zoro248 en Febrero 05, 2013, 09:13:12 PM
Como podria ser usado?
Título: Re:Cifrado Cesar
Publicado por: martinanonymo en Febrero 05, 2013, 09:33:06 PM
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
Como podria ser usado?
copias el codigo en un bloc de notas , luego le pones en guardar y le das a "elnombresquequierasponerle.bat" la extencion le vas a tener que dar a .bat y listo
Título: Re:Cifrado Cesar
Publicado por: L0ki en Marzo 28, 2013, 12:08:11 AM
Lo mismo pero en Bash!
Código (bash) [Seleccionar]

#!/bin/bash
read -p "(De)cifrar: " word
echo $word |tr '[A-Z][a-z]' '[N-ZA-M][n-za-m]'