Programación General => Delphi => Mensaje iniciado por: minos en Miércoles 7 de Junio de 2006, 20:03
Título: Encriptacion De Datos
Publicado por: minos en Miércoles 7 de Junio de 2006, 20:03
:lightsabre: 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
Título: Re: Encriptacion De Datos
Publicado por: zeraf_ en Sábado 10 de Junio de 2006, 07:10
:hola: 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;
;)
Título: Re: Encriptacion De Datos
Publicado por: minos en Lunes 12 de Junio de 2006, 03:23
gracias compañero no sabes del apuro que me acabas de sacar...