comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Cifrado Caesar

  • 0 Respuestas
  • 1842 Vistas

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

Desconectado binary_death

  • *
  • Underc0der
  • Mensajes: 18
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« en: Septiembre 03, 2013, 05:58:40 pm »
Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
@Echo Off
setlocal enableextensions enabledelayedexpansion

set /p "text=Texto: "
set /p "rotn=Desplazamiento: "
call:_caesar "%text%" "%rotn%"
echo: -Cadena cifrada ^>^> %ret_str%

pause 1>nul & exit

:_caesar
if "%~1" EQU "" goto :EoF
set "chr_lst=abcdefghijklmnopqrstuvwxyz"
set "string=%~1" & set "ret_str="
for /l %%i in (0,1,25) do set/a c[!chr_lst:~%%i,1!]=%%i
set /a cnt=-1
:__loop.a
set /a cnt+=1
set "chr=!string:~%cnt%,1!"
if not defined chr goto :eof
if "%chr%" EQU " " set "ret_str=%ret_str% " & goto :__loop.a
set /a "num_cs=(!c[%chr%]!+%~2) %% 26"
set "ret_str=%ret_str%!chr_lst:~%num_cs%,1!"
goto :__loop.a

Para descifrar, basta con poner la clave en negativo p.e Si para cifrar utilizaste 5, para descifrar, -5.

 

¿Te gustó el post? COMPARTILO!



Cifrado Vernam

Iniciado por binary_death

Respuestas: 0
Vistas: 1956
Último mensaje Septiembre 03, 2013, 06:01:44 pm
por binary_death
Cifrado Cesar

Iniciado por 79137913

Respuestas: 4
Vistas: 2754
Último mensaje Marzo 28, 2013, 12:08:11 am
por L0ki