jmetin2

Hola amigos. ¿An escuchado hablar del md5 que es un algoritmo irreversible? 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

Durante muchos años las guerras siempre an sido sinonimo de destruccion, de toma de poder a fuerza, de violencia indiscriminada, de asesinatos a personas inocentes; Todo por el poder.Pero si nos ponemos a pensar, que la ONU, y todos los paises que la forman estan contra el terrorismo; ¿Porque ay guerras?Cheken la definición de terrorismo (Obtenida del un libro de etica y valores de la preparatoria COBAY): "Forma de violencia indiscriminada, difícil de contener toda vez que su campo de acción trasciende las zonas de conflicto. Se caracteriza por su imprevisibilidad y por ser indirecto (Se dirige a un blanco secundario)"Aora, para que sirve una guerra:Para tomar poder sobre un territorio, y como se obtiene este objetivo...? Pues matando y destrullendo objetos y personas secundarios. Es basicamente lo mismo, solo que el terrorismo va contra un jefe de estado, y la guerra se disputa entre dos o ¡¡MAS!! Naciones.La causa por la que escribo este pequeño pensamiento, es para dar a conocer mi punto de vista, y que todos los que lean, reflexionen; Que la guerra es lo mismo que un ataque terrorista.Comparen:Cuando Bin Laden ataco "Las torres Gemelas", muchas personas murieron, a el no le importo eso, lo que le importo es dar un susto, tal ves aliado con el propio presidente aunque no se sabe; pero lo unico que se sabe es que dejo mucho dolor entre las personas; Todooo Estados Unidos sufrio mucho por las personas muertas ese día. Pero ahora viene la reflexiónCuando Estados Unidos Ataco a Vietnam, ¿A cuanta gente mato? a millones ¿verdad?, pues lo mismo que sintio la gente de estados unidos con el ataque a las torres gemelas, es lo mismo que sintio la gente de Vietnam.Fue doloroso para ambos, pero ahi los unicos que no sintieron ni el mas minimo dolor ¿quienes fueron?, Ya eso deduscanlo ustedes mismos. Espero que no me censuren por desir la verdad.Escribo esto para dar a conocer, como los paises, la ONU, que incluso tiene un articulo contra el terrorismo, como ellos mismos se comparan con los delincuentes, con los terroristas.Si, eso asen los paises por obtener poder, usar la fuerza bruta sin importarle los daños a tercerosPorqué no los que luchan son los jefes de estados, Porque no son ellos los que les den un arma y un chaleco anti balas, para que ellos luchen por el poder que tanto quieren, Porque sacrificar tantas vidas por el capricho de un jefe de estado?Reflexionen amigos, cuando les pregunten: "¿Tú como defenderias a tu patria?"Y dense cuenta que los que apoyamos a esos actos tan deplorables somos nosotros, porque, acaso ven que un jefe de estado valla a una guerra? jaja obio no amigos, ellos siempre estan en un cuarto blindado a 100mts bajo tierra esperando a que nosotros nos matemos y matemos a otros para conseguir ¿que?....