Склейка двух base64 строк

[Аватар]

Нет там ни чего такого. Склеивать нужно после декодирования

[BDA]

Я же не знаю, как Вы их там обрабатываете в программе. Попробуйте склеить не 1 со 2, а 2 с 1, и скажите, будут ли лишние байты.

[doktor255]

Входные данные создаю не я. Они 100% верны, и расположены как надо. Я просто обрезал их по бокам. В исходных данных я наблюдаю то же самое. Малину ломают именно символы "=".

[Аватар]

Почему у меня не ломается?

procedure TForm1.Button1Click(Sender: TObject);
var s: String;
begin
  s:=DecodeString('0LPQuC4g0JLQvtC30LzQvtC20L3Qvg==')+DecodeString('LCDRgtGLINGD0LbQtSDRgdGC0LDQuyDQu9GD');
  Memo1.Text:=s;
  Memo1.Lines.SaveToFile('e:\gggg1.txt');
end;

[doktor255]

Почему у меня не ломается?

наверное потому, что ты прогоняешь текст через TStrings, который вероятно режет эти байты. Только это не решение, а костыль.

[Аватар]

наверное потому, что ты прогоняешь текст через TStrings

Глупости

procedure TForm1.Button1Click(Sender: TObject);
var Stream: TMemoryStream;
    s: String;
begin
  s:=DecodeString('0LPQuC4g0JLQvtC30LzQvtC20L3Qvg==')+DecodeString('LCDRgtGLINGD0LbQtSDRgdGC0LDQuyDQu9GD');
  Stream:=TMemoryStream.Create;
  Stream.Write(s[1],Length(s));
  Stream.SaveToFile('e:\gggg1.txt');
  Stream.Free;
end;

[doktor255]

Ок, раз не веришь смотри сам. Скидываю весь проект, и файл реестра. Добавь файл в реестр, и попробуй его прочитать программой. Точку склейки найдёшь, я думаю. Среда XE6. По необходимости можешь перейти на иную среду.

[Аватар]

Там похоже Base64.pas глючная. Попробуй заменить в DecodeBase64

If StringValue[N]='=' Then
Result.ByteArr[CurPos]:=0;
Result.ByteCount:=CurPos+1;

на

If StringValue[N]='=' Then Result.ByteArr[CurPos]:=0
                      else Result.ByteCount:=CurPos+1;

[doktor255]

Менял. Ещё хуже стало.

[Аватар]

Я заменил нули пропали при любых окончаниях. В Д7