Простое шифрование строки с использованием Xor и Rand

Ещё один шикарный метод шифрования строк. Основан на том Rand даёт предсказуемый результат с закреплённым seed.

При этом обладает некоторым свойствами стойких алгоритмов xor например как неповторяемость ключа из за чего выходной файл превращается в жуткое месиво.

    function XorRand(AInput: AnsiString; ASeed: Integer): AnsiString;
    var Next: Byte;
        I, L: Integer;
    begin
        RandSeed := ASeed;
        L := Length(AInput);
        SetLength(Result, L);
        for I := 1 to L do begin
            Next := Byte(Random(255));
            Result[I] := Char(Ord(AInput[I]) xor Next);
        end;
        Randomize;
    end;