Título: Encryptdecrypt encryptador y desencryptador de cadenas Publicado por: fary en 14 Febrero 2010, 20:21 pm Bueno, despues de ver el algoritmo de Blackzerox para encryptar y desencryptar cadenas decidi acer yo un ocde tambien, aqui se lo dejo, es 100% funcional. Espero que les gute:
Código: '******************************************* y aqui les dejo un ejemplo de su uso: Código: Private Sub Command1_Click() Como ven es muy sencillo de usar. Espero que les haya gustado. salu2! Título: Re: Encryptdecrypt encryptador y desencryptador de cadenas Publicado por: BlackZeroX en 14 Febrero 2010, 20:40 pm .
mmmm Bueno, despues de ver el algoritmo de Blackzerox para encryptar y desencryptar cadenas decidi acer yo un ocde tambien, aqui se lo dejo, es 100% funcional. Espero que les gute: Código: '******************************************* y aqui les dejo un ejemplo de su uso: Código: Private Sub Command1_Click() Como ven es muy sencillo de usar. Espero que les haya gustado. salu2! mmm tu vas de mal en peor ¬¬", bueno ya casi vas mejor... pruebas, pruebas... esto tiene un error logico. byref solo deberías usarlo en variables no en instancias de controles o sus propiedades ¬¬" espero que ese text1 Lo ayas tratado como una variable... por que en código no sirve... lo probé antes de decir esto Nota: quita ese Byref del argumento... como es un enum no vale poner byref... cambia de public funcition a public sub o regresa los datos por la misma función. porque? es sencillo y muy LOGICO si regresa algo el proceso se declara como función de lo contrario como Proceso es decir Function , Sub respectivamente. Quita ese MSGBOX del proceso un proceso es para eso procesar, ya el que implemente este, ya sabrá que hacer... Ahora el primer Byref de los argumentos para que?, en mi caso lo puse byref porque sacaba los datos por la misma entra... argumentos. Esto hace un Crash... imaginemos que quiero cifrar otras cosas que no sean un texto xP Código
y esto no sirve Código
P.D.: Le falta trabajo a esta cosa ¬¬", y Muchas Pruebas. Sangrientas Lunas!¡. . Título: Re: Encryptdecrypt encryptador y desencryptador de cadenas Publicado por: seba123neo en 14 Febrero 2010, 21:34 pm aparte el codigo esta duplicado...
Título: Re: Encryptdecrypt encryptador y desencryptador de cadenas Publicado por: Hasseds en 14 Febrero 2010, 21:46 pm Ufa !!! ... otra vez sopa ?
Título: Re: Encryptdecrypt encryptador y desencryptador de cadenas Publicado por: BlackZeroX en 15 Febrero 2010, 06:12 am aparte el codigo esta duplicado... Esta aprendiendo esta bien quien no duplica código cuando aprende, inclusive cuando son códigos muy argos alguna vez o duplicamos sin darnos cuenta... aquel que me niegue esto es por que es algo así como tipo Dios a la potencia 100 -1. Ufa !!! ... otra vez sopa ? igua. P.D.: Disculpen mi antiguo post estaba por irme y solo escribí sin formatear mucho xP Sangrientas Lunas!¡. . Título: Re: Encryptdecrypt encryptador y desencryptador de cadenas Publicado por: RAID-MAM en 15 Febrero 2010, 07:00 am Por cierto aunque la palabra cifrado y descifrado no existen menos va a existir encryptado y desencryptado :xD
Título: Re: Encryptdecrypt encryptador y desencryptador de cadenas Publicado por: fary en 15 Febrero 2010, 10:01 am Pues a mi no me parece que este tan mal xD, y a mi me funca dpm.... :/
nunca llueve a gusto de todos, que le vamos a hacer.... salu2! PD: Este mensage va para la mayoria de los que critican, no digo que todos. Porque no subis un codigo vuestro? si tanto criticais sera porque vosotros lo haceis TODO perfecto... esperare esos codes con mucha ilusion ;) Título: Re: Encryptdecrypt encryptador y desencryptador de cadenas Publicado por: BlackZeroX en 15 Febrero 2010, 11:12 am Pues a mi no me parece que este tan mal xD, y a mi me funca dpm.... :/ nunca llueve a gusto de todos, que le vamos a hacer.... salu2! PD: Este mensage va para la mayoria de los que critican, no digo que todos. Porque no subis un codigo vuestro? si tanto criticais sera porque vosotros lo haceis TODO perfecto... esperare esos codes con mucha ilusion ;) char resive como parámetro un valor entre 0 y 255 y si la suma de la longitud de tu texto + el valor asc(9 del carácter X supero a 255 chr() no sabrá que pedo y pufff chamuscado el algoritmo. por cierto aqui hay algo que te puedas leer: ByVal exíge que se haga una copia de la variable de origen y se trabaje localmente con esta copia por lo que no se puede modificar la variable de origen, y por otro lado se consume RAM al crear la copia. Byref es, precisamente, un puntero "camuflado". El VB pasa internamente el puntero de la variable, no una copia, por más que el lenguaje sea de nivel tan alto que no nos permita apreciarlo. Entonces, localmente estamos leyendo/escribiendo sobre la variable de origen, por lo que no hay consumo adicional de RAM, aunque se deben tener precauciones y recordar que se está trabajando y afectando a la variable de origen en todo momento. Título: Re: Encryptdecrypt encryptador y desencryptador de cadenas Publicado por: Hasseds en 16 Febrero 2010, 00:22 am OFF
@ Dynky, si queres saber si la calculadora esta abierta... no se debe usar: ret = FindWindow(vbNullString, "Calculadora") ' MAL Porque Si tu aplicacion corre en un windows que no es en español "eso" no te sirve, debes usar: ret = FindWindow("SciCalc", vbNullString) ' WXP ret = FindWindow("CalcFrame", vbNullString) ' W7 PD1: Tampoco uses Spy++ para saber la clase de un control, mejor aprende a usar GetClassName PD2: espero que no te enojes por el OFF , S2 ;) Título: Re: Encryptdecrypt encryptador y desencryptador de cadenas Publicado por: fary en 19 Febrero 2010, 17:03 pm Para nada, muchas gracias, son cosas coherentes, no como MUCHOS por ahi que se quejan y luego son unos ***** mierdas asi de claro.
salu2! |