FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#21
|
||||
|
||||
Cita:
// Saludos |
#22
|
||||
|
||||
Cita:
// Saludos (si es que sigues en Cantabria ) |
#23
|
||||
|
||||
Si sigues frente al monitor, te aclaro que es una figura de dicción que se comete cuando se niega algo para atenuar su significado. Es decir retórica, lo contrario a la programación.
Un Saludo. |
#24
|
||||
|
||||
Vean mi Nuevo hilo sobre seguridad porque esto se ha desvirtuado por completo.
__________________
Gracias de antemano por vuestra ayuda. ·.:*:.·Yako·.:*:.· |
#25
|
|||
|
|||
Ante ke kualkier cosa pase... y viendo ke alguno de ustedes puso ke ya no habia regresado digo lo siguiente: NO HABIA ESCRITO NADA DEBIDO A KE EL HILO FUE MOVIDO DE FORO... PRIMERO PENSE KE LO HABIAN BORRADO ASI KE LE ENVIE UN MAIL A CADETILL(KE ERA EL MODERADOR DEL FORO EN EL KE ESCRIBI EL HILO) Y ME DIJO KE LO HABIA CAMBIADO PARA ACÁ... ASI KE DISCULPEN
Agradezco todas y cada una de las opciones ke me dan en este hilo, aunke creo ke el tema ha causado cierta polémica... Buscaré e intentaré aplicar cada una de las opciones ke me brindan y veré cual es la ke me conviene más... Aunke lo ke notó después de leer todo lo ke escribieron es ke no hay una técnica al 100% segura asi ke trataré de aplicar no solo una (claro, si es ke puedo plicar mas de una a la vez...). Muchas gracias y salu2...
__________________
Rubiel "El Tejón" |
#26
|
|||
|
|||
puedes probar este algoritmo.
yo no lo he probado, asi que no conosco muy bien cuan seguro sea. espero te sirva program Crypt; uses WinCRT; const C1 = 52845; C2 = 22719; function Encrypt(const S: String; Key: Word): String; var I: byte; begin Result[0] := S[0]; for I := 1 to Length(S) do begin Result[i] := char(byte(S[i]) xor (Key shr 8)); Key := (byte(Result[i]) + Key) * C1 + C2; end; end; function Decrypt(const S: String; Key: Word): String; var I: byte; begin Result[0] := S[0]; for I := 1 to Length(S) do begin Result[i] := char(byte(S[i]) xor (Key shr 8)); Key := (byte(S[i]) + Key) * C1 + C2; end; end; var S: string; begin Write('>'); ReadLn(S); S := Encrypt(S,12345); WriteLn(S); S := Decrypt(S,12345); WriteLn(S); end.
__________________
ing. frankmch |
|
|
|