[roulis2844sasha]

вот у меня шифрация/дешифрация текста происходит так

Код:

procedure TForm1.Button1Click(Sender: TObject);
var m2: string;
begin
  m2:=Memo1.Text;
  Memo2.Text:=idencoderxxe1.Encode(m2);  ///зашифровка
end;

procedure TForm1.Button2Click(Sender: TObject);
var m1: string;
begin
  m1:=Memo2.Text;
  Memo1.Text:=iddecoderxxe1.DecodeString(m1); ///расшифровка
end;

но шифрует/дешифрует он косячно, допустим я хочу зашифровать


он зашифровывает в такой вид


но когда я хочу расшифровать зашифрованое, то он не все расшифровывает


В чем косяк?