Cifrado Cesar

Iniciado por 79137913, Febrero 05, 2013, 11:49:59 AM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

HOLA!!!

Código: text
@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!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scouts Team*                                                You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

Muy bueno!
Para ganar hay que arriesgar


You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
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
Para ganar hay que arriesgar

Lo mismo pero en Bash!
Código: bash

#!/bin/bash
read -p "(De)cifrar: " word
echo $word |tr '[A-Z][a-z]' '[N-ZA-M][n-za-m]'
Tod ist unvermeidlich, aber meist unbedeutend... | You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login