Cita:
Empezado por ninguno
Código Delphi [-]function DecryptString(const ToDecript: string; Key: Word): string;
var
I: byte;
begin
Result := '';
RandSeed := Key;
for i := 1 to Length(ToDecript) do
Result := Result + Chr(Ord(ToDecript[i]) xor Random(256));
end;
La cuestión es que al intentar desencriptar los datos, no me devuelve la cadena esperada. |
O estoy dormido o no hay manera de que nunca te devuelva la cadena esperada. Como cuernos sabe la función de desencriptado que valor asigno en una posición el random(256)?????
Cada vez que llamas a random(256) genera un numero aleatorio del 0 al 255, entonces al desencriptar como sabes con que numero desencriptar?