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