[Comando] CRIPT y DCRIPT para encriptar\desencriptar cadenas

LauBuru · Marzo 10, 2015, 09:59:53 PM

E codeado dos comandos para encriptar y desencriptar archivos de texto, funcionan perfectamente haunque no encripten todos los caracteres (si la palabra contiene numero de letras impar) pero el resultado no esta mal

Funcionamiento:

Sintaxis de CRIPT:

cript [cadena]

Despues de ejecutar cript, nos devolvera una clave y una serie de numeros ( o numeros y alguna letra) que
correspondera a la cadena encriptada

Sintaxis de DCRIPT:

dcript [clave] [cadena]

Despues de ejecutar dcript nos devolvera la cadena original encriptada con cript

CRIPT

Código: php

@echo off
set K=%*
setlocal enabledelayedexpansion
cls
set  R=%random%
echo Clave: %R%
for %%a in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
	for %%b in  (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do ( set /a R+=1 && call :uno %%a%%b ) )

echo %K%
del a.txt
exit /b

:uno
echo %K% | find /i "%1" >nul && echo !K:%1=%R%! > a.txt
for /f "tokens=1" %%c in ('type a.txt') do (set K=%%c)
goto :eof	
endlocal

DCRIPT:

Código: php

@echo off
cls
set clave=%1
set serie=%2
set /a paso=(26*26)+%clave%
setlocal enabledelayedexpansion
for %%b in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
	for %%c in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (set /a clave+=1 && call :uno  %clave% %%b%%c))
echo %serie%
del a.txt
exit /b

:uno
echo %serie% | find "%clave%" >nul && echo !serie:%clave%=%2! > a.txt
for /f "tokens=1" %%c in ('type a.txt') do (set serie=%%c)
goto :eof

Espero que os guste y os sea util

Un saludo

[Comando] CRIPT y DCRIPT para encriptar\desencriptar cadenas

LauBuru

Marzo 10, 2015, 09:59:53 PM