Tema: codigo hash
Ver Mensaje Individual
  #1  
Antiguo 19-10-2007
maco2007 maco2007 is offline
No confirmado
 
Registrado: May 2007
Posts: 70
Reputación: 0
maco2007 Va por buen camino
Smile codigo hash

hol soy max y disculpen por lo anterior(BarcodeMax08) ahora tengo una duda, como puedo hacer un codigo hash osea Codificarlo y Decodificarlo esta instruccion ocupo para codificar:

Código Delphi [-]
uses Registry;

const
  Clave = 1978;

function Cifrar(Texto: string; Clave: Longint): string;
var
  i: integer;
begin
  Result:= '';
  RandSeed:= Clave;
  for i:= 1 to Length(Texto) do
    Result:= Result + IntToHex(Byte(Texto[ i ]) xor Byte(Random(256)),2);
end;

y necesito como volver a decodificarla...,GRACIAS

Última edición por dec fecha: 20-10-2007 a las 06:39:31.
Responder Con Cita