En un momento de tanto ver la encriptacion se me dio la idea de encriptar el una
frase y que esta se viera en tiempo real encriptandose, pero como soy un poquito
dejado lo pospuse pero ya lo hice al fin JIJI, bueno es una encriptacion real,
no son solo numeros puestos hay y desencriptados otros sino son numeros q en
realidad se encriptan y se desencritan, con la variacion de q muestro la
encriptacion y decodificacion de la frase en el momento en que esta ocurre.
Nada mas, aca el code:@echo off ::^| nombre: Efecto Codificador-Decodificador ó ^ :: Effect Encrypt-Decrypt ::^| autor: Guerrerohgp ::^| fecha: 20/08/2009 ::^| codigo totalmente crado para ::^| diversas formas de uso, ::^| desde este efecto hasta ::^| la imaginacion de cada uno. ::^| Uso libre, no cambiar autor. title Efecto Codificador-Decodificador -HGP- setlocal enabledelayedexpansion color a&mode con cols=44 lines=10 :hgp set "cnt=9"&set "c=%random:~-2%" cls&echo.&set /p "cod=Su frase: " if not defined cod goto:hgp set "cod=%cod: =_%" cls&call:crypt call:decrypt :crypt for %%* 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 "ln=%%*"&call:enc) echo.&echo.Encriptado : &echo. echo. %cod2% echo.&echo. Press Key To Decrypt... pause>nul goto:eof :enc set "%cnt%=%ln%" set /a "cc=%cnt%+%c%" set "cod=!cod:%ln%=%cc% !" set "cod2=%cod%" set "cod2=!cod2: =!" set "cod2=!cod2:_= !" echo.%cod2% ping -n 2 localhost>nul set /a "cnt+=1" cls&goto:eof :decrypt for %%_ in (%cod%) do (set "dc=%%_"&call:ds) cls&set "cod2=!cod2:_= !" echo.&echo. Listo Desencriptado: &echo. echo. %cod2% pause>nul goto:hgp :ds cls&set /a "fn=%dc%-%c%" set "ll=!%fn%!" set "cod=!cod:%dc%=%ll%!" set "cod2=%cod% set "cod2=%cod2: =% set "cod2=!cod2:_= !" echo.%cod2% ping -n 2 localhost>nul goto:eof