Cifrado Caesar

  • 0 Respuestas
  • 4205 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

Cifrado Caesar

  • en: Septiembre 03, 2013, 05:58:40 pm
Código: You are not allowed to view links. Register or Login
@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.

 

Cifrado Cesar

Iniciado por 79137913

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

Iniciado por binary_death

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