Encriptacion De Datos

Bienvenido(a), Visitante. Por favor, ingresa o regístrate.
¿Perdiste tu email de activación?

« anterior próximo »

Imprimir

Páginas: [1]

Autor Tema: Encriptacion De Datos (Leído 1529 veces)

minos

Nuevo Miembro
Mensajes: 3

Encriptacion De Datos

« en: Miércoles 7 de Junio de 2006, 20:03 »

0

buen dia a todos, soy nuevo en esto de la programacion, pero necesito, mas bien, me urge un ejemplo programado en delphi que haga la simulacion de una encriptacion de datos...
me despido de antemano agradeciendoles la ayuda

zeraf_

Nuevo Miembro
Mensajes: 11

Re: Encriptacion De Datos

« Respuesta #1 en: Sábado 10 de Junio de 2006, 07:10 »

0

Un ejemplo de una función para encriptar y desencriptar cadenas:

Código: Text

 
function EncDec(Cadena: String; Clave: Integer): String;
var
  x : Integer;
begin
  Result:='';
  RandSeed := Clave;
  for x := 1 to Length(Cadena) do
    Result := Result + Chr(Byte(Cadena[x]) xor random(256));
end;
 
 

minos

Nuevo Miembro
Mensajes: 3

Re: Encriptacion De Datos

« Respuesta #2 en: Lunes 12 de Junio de 2006, 03:23 »

0

gracias compañero no sabes del apuro que me acabas de sacar...

Imprimir

Páginas: [1]

« anterior próximo »