Aqui les traigo un script en batch (cmd) para ponerle contraseña a tus programas. (este es solo el algoritmo ustedes pasenlo a su lenguaje preferido)
funcional en winXP,Win7,Winvista, y todo aquello que funcione con una shell de comandos
Bueno lo que ase este script es:
Tomar una letra y cambiarla por un numero
suma todos los numeros que allan en la cadena
multiplica por su ultimo numero
Revierte el numero
Convierte el numero a letras y numeros con nu algoritmo tipo hexagesimal
convierte las letras y numeros a solo numeros
Convierte a numeros binarios
Comprime la cadena a letras y numeros
Vuelve a revertir
Convuerte los numeros de nuevo a letras y numeros, Dando una cadena totalmente irreversible y unica.
El Codigo:
dijo:@echo off
setlocal ENABLEDELAYEDEXPANSION
Title Ofuscacion 1KETI
:menu
echo.
set/p "str=Cadena a encriptar: "
set "pim=%str:~0,1%"
set "ele=9"
cls
set "e=%str:0=37%"
set "e=%e:a=10%"
set "e=%e:b=11%"
set "e=%e:c=12%"
set "e=%e:d=13%"
set "e=%e:e=14%"
set "e=%e:f=15%"
set "e=%e:g=16%"
set "e=%e:h=17%"
set "e=%e:i=18%"
set "e=%e:j=19%"
set "e=%e:k=20%"
set "e=%e:l=21%"
set "e=%e:m=22%"
set "e=%e:n=23%"
set "e=%e:ñ=24%"
set "e=%e:o=25%"
set "e=%e:p=26%"
set "e=%e:q=27%"
set "e=%e:r=28%"
set "e=%e:s=29%"
set "e=%e:t=30%"
set "e=%e:u=31%"
set "e=%e:v=32%"
set "e=%e:w=33%"
set "e=%e:x=34%"
set "e=%e:y=35%"
set "e=%e:z=36%"
set "e=%e: =40%"
set "e=%e:.=41%"
call:cont %e%
call:scd %e%
set "f=%pim:0=37%"
set "f=%f:a=10%"
set "f=%f:b=11%"
set "f=%f:c=12%"
set "f=%f:d=13%"
set "f=%f:e=14%"
set "f=%f:f=15%"
set "f=%f:g=16%"
set "f=%f:h=17%"
set "f=%f:i=18%"
set "f=%f:j=19%"
set "f=%f:k=20%"
set "f=%f:l=21%"
set "f=%f:m=22%"
set "f=%f:n=23%"
set "f=%f:ñ=24%"
set "f=%f:o=25%"
set "f=%f:p=26%"
set "f=%f:q=27%"
set "f=%f:r=28%"
set "f=%f:s=29%"
set "f=%f:t=30%"
set "f=%f:u=31%"
set "f=%f:v=32%"
set "f=%f:w=33%"
set "f=%f:x=34%"
set "f=%f:y=35%"
set "f=%f:z=36%"
set "f=%f: =40%"
set "f=%f:.=41%"
set/a e=%e% * (%f% + %e:~-1%)
call:reverse %e%
call:mot %e%
set "e=%e:a=10%"
set "e=%e:b=11%"
set "e=%e:c=12%"
set "e=%e:d=13%"
set "e=%e:e=14%"
set "e=%e:f=15%"
set "e=%e:g=16%"
set "e=%e:h=17%"
set "e=%e:i=18%"
set "e=%e:j=19%"
set "e=%e:k=20%"
set "e=%e:l=21%"
set "e=%e:m=22%"
set "e=%e:n=23%"
set "e=%e:o=24%"
set "e=%e:p=25%"
set "e=%e:q=26%"
set "e=%e:r=27%"
set "e=%e:s=28%"
set "e=%e:t=29%"
set "e=%e:u=30%"
set "e=%e:v=31%"
set "e=%e:w=32%"
set "e=%e:x=33%"
set "e=%e:y=34%"
set "e=%e:z=35%"
set "e=%e:0=01%"
set "e=%e:1=10%"
set "e=%e:2=100%"
set "e=%e:3=101%"
set "e=%e:4=110%"
set "e=%e:5=111%"
set "e=%e:6=1000%"
set "e=%e:7=1001%"
set "e=%e:8=1010%"
set "e=%e:9=1011%"
set "e=%e:01=a%"
set "e=%e:10=b%"
set "e=%e:11=c%"
set "e=%e:00=d%"
set "e=%e:1=u%"
set "e=%e:0=v%"
set "e=%e:aa=e%"
set "e=%e:ab=f%"
set "e=%e:ac=g%"
set "e=%e:ad=h%"
set "e=%e:ba=i%"
set "e=%e:bb=j%"
set "e=%e:bc=k%"
set "e=%e:bd=l%"
set "e=%e:ca=m%"
set "e=%e:cb=n%"
set "e=%e:cc=o%"
set "e=%e:cd=p%"
set "e=%e:da=q%"
set "e=%e:db=r%"
set "e=%e:dc=s%"
set "e=%e:dd=t%"
set "e=%e:a=10%"
set "e=%e:b=11%"
set "e=%e:c=12%"
set "e=%e:d=13%"
set "e=%e:e=14%"
set "e=%e:f=15%"
set "e=%e:g=16%"
set "e=%e:h=17%"
set "e=%e:i=18%"
set "e=%e:j=19%"
set "e=%e:k=20%"
set "e=%e:l=21%"
set "e=%e:m=22%"
set "e=%e:n=23%"
set "e=%e:o=24%"
set "e=%e:p=25%"
set "e=%e:q=26%"
set "e=%e:r=27%"
set "e=%e:s=28%"
set "e=%e:t=29%"
set "e=%e:u=30%"
set "e=%e:v=31%"
call:reverse %e%
set "e=%e:1=11%"
set "e=%e:2=12%"
set "e=%e:3=13%"
set "e=%e:4=21%"
set "e=%e:5=22%"
set "e=%e:6=23%"
set "e=%e:7=31%"
set "e=%e:8=32%"
set "e=%e:9=33%"
set "e=%e:11=A%"
set "e=%e:12=B%"
set "e=%e:13=C%"
set "e=%e:21=D%"
set "e=%e:22=E%"
set "e=%e:23=F%"
set "e=%e:31=G%"
set "e=%e:32=H%"
set "e=%e:33=I%"
set "e=%e:0=J%"
call:reverse %e%
cls
echo.
echo %e%
echo.
pause
exit
:cont
set arg=%*
if not defined arg (goto :eof)
set word=%arg%
set/a cont=0
:loop
if not defined word (goto end)
set word=%word:~1%
set/a cont+=1
goto loop
:end
set cods=%cont%
goto:EoF
:revclav
set "clave=%*"
set "posad=%ele%"
:crptnn
if ["%posad%"]==["0"] (goto:eof)
set clave=%clave:~1,-1%%clave:~0,1%%clave:~-1%
set/a posad-=1
goto crptnn
goto:Eof
:scd
set var=%*
set/a num=%cods% - 1
for /l %%a in (%num%,-1,0) do (
call set/a a+=%var:~0,1% * !var:~%%a,1!
)
set e=%a%
goto:Eof
:reverse
set "e=%*"
set "pasad=%ele%"
:crptn
if ["%pasad%"]==["0"] (goto:eof)
set e=%e:~1,-1%%e:~0,1%%e:~-1%
set/a pasad-=1
goto crptn
goto:Eof
:mot
set "numero=%*"
set hex=36
:bucle
set /a resto=%numero%%%hex%
if %resto%==10 (set resto=A)
if %resto%==11 (set resto=B)
if %resto%==12 (set resto=C)
if %resto%==13 (set resto=D)
if %resto%==14 (set resto=E)
if %resto%==15 (set resto=F)
if %resto%==16 (set resto=G)
if %resto%==17 (set resto=H)
if %resto%==18 (set resto=I)
if %resto%==19 (set resto=J)
if %resto%==20 (set resto=K)
if %resto%==21 (set resto=L)
if %resto%==22 (set resto=M)
if %resto%==23 (set resto=N)
if %resto%==24 (set resto=O)
if %resto%==25 (set resto=P)
if %resto%==26 (set resto=Q)
if %resto%==27 (set resto=R)
if %resto%==28 (set resto=S)
if %resto%==29 (set resto=T)
if %resto%==30 (set resto=U)
if %resto%==31 (set resto=V)
if %resto%==32 (set resto=W)
if %resto%==33 (set resto=X)
if %resto%==34 (set resto=Y)
if %resto%==35 (set resto=Z)
set /a numero=numero/%hex%
set resultado=%resto%%resultado%
if %numero% GTR 0 (goto bucle)
set "e=%resultado%"
goto:eof
Copien el codigo talcual esta y guardenlo en block de notas con la extencion .bat
=======================================================================================
Hola de nuevo, vengo con otro algoritmo.
Movimiento de caracteres, si no tienes idea de lo que dise pueda ser que te confundas
dijo:@echo off
set ran=17
title Encriptacion Baraja
echo Minimo 4 caracteres
echo.
set/p "cod=Texto a encriptar: "
echo.
cls
:lop
if %ran%==0 (goto fin)
set "cod=%cod:~-2,1%%cod:~0,-2%%cod:~-1%"
set "cod=%cod:~1,1%%cod:~0,1%%cod:~2,-2%%cod:~-1%%cod:~-2,1%"
set "cod=%cod:~2,1%%cod:~0,2%%cod:~3%"
set/a ran-=1
goto lop
:fin
echo.
echo Cadena encriptada:
echo.
<nul set/p "=%cod%"
echo.
echo.
pause
exit