![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
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
![]() ![]() ![]() 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 |
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|