Xor шифрование TStringList

[JekaDefer]

Есть функция шифрования самая простенькая

function Encrypt(const InString: string; StartKey, MultKey, AddKey: Integer):string;
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(InString) do
  begin
    Result := Result + CHAR(Byte(InString[i]) xor (StartKey shr 8) xor (Length(InString)+1-i));
    StartKey := ((Byte(Result[i]) + StartKey) * MultKey + AddKey);
  end;
end;

Использование этой функции:

procedure TForm1.Button1Click(Sender: TObject);
Var
  Sl: TStringList;
  i: Integer;
Begin
  Sl := TStringList.Create;
  Sl.Add('');
  Sl.Text:=Encrypt(Sl.Text , 12345, 23456, 23452);
end;

Откуда после её использования длина Sl=4? если там только 2 символа - конец строки и перевод каретки...

[3D Hunter]

Функцией какой пользуетесь? И что считаете: символы или байты? Возможно, юникод двухбайтовый, отсюда и длина в 4 байта. Потому про байты и спросил.

[JekaDefer]

Сообщение от 3D Hunter

Функцией какой пользуетесь? И что считаете: символы или байты? Возможно, юникод двухбайтовый, отсюда и длина в 4 байта. Потому про байты и спросил.

Выше весь код.. Функция Encrypt.. если дело в Unicode то можно как нибудь хз указать что ли TStringList'у чтоб использовал 2символьное что нибудь) смысл в том что если добавить в TStringList только ''(пустое место) и сделать так

For i:= 1 to Length(TStringList.Text) do ShowMessage(IntToStr(Byte(TStringList.Text[i])));

то высветится 2 значения 10 и 13.. т.е. 13 это перевод строки а 10 по ходу признак конца строки.

[SNUPY]

Ставьте точку останова и смотрите что там в Sl.Text

[Аватар]

Присвоение в StringList.Text на автомате добавляет в конец перевод каретки и строки

[JekaDefer]

Всё, разобрался. Все из-за

Присвоение в StringList.Text на автомате добавляет в конец перевод каретки и строки

(Спс Аватар)
чтоб норм шифровалось сделал так:
Функции:

function Encrypt(const InString: string; StartKey, MultKey, AddKey: Integer):string;
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(InString) do
  begin
    Result := Result + CHAR(Byte(InString[i]) xor (StartKey shr 8) xor (Length(InString)+1-i));
    StartKey := ((Byte(Result[i]) + StartKey) * MultKey + AddKey);
  end;
end;


function Decrypt(const InString: string; StartKey, MultKey, AddKey: Integer): string;
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(InString) do
  begin
    Result := Result + CHAR(Byte(InString[i]) xor (StartKey shr 8) xor (Length(InString)+1-i));
    StartKey := ((Byte(InString[i]) + StartKey) * MultKey + AddKey);
  end;
end;

Обработка:

procedure TForm1.Button1Click(Sender: TObject);
Var
  Sl: TStringList;
begin
  Sl:= TStringList.Create;
  Sl.Add(Edit1.Text);
  Sl.Text:=EnCrypt(Sl.Text, 12345,54354,23432);
  Sl.SaveToFile('1.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
  Sl: TStringList;
  s: String;
begin
  Sl:= TStringList.Create;
  Sl.LoadFromFile('1.txt');
  s:=sl.Text;
  Delete(s, Length(s)-2, 2);
  Sl.Text:=DeCrypt(s, 12345,54354,23432);
  Edit2.Text:=Sl.Strings[0];
end;