Programación General > Delphi

 Encriptacion De Datos

(1/1)

minos:
: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

zeraf_:
: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;   ;)

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

Navegación

[0] Índice de Mensajes