[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;

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


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


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


В чем косяк?

[roulis2844sasha]

решение нашел сам, если у когонить будет такаяже проблема, используйте idEncoderMIME и idDecoderMIME

[ALexandr555]

[DELPHI]
только ты не шифруешь, а просто в другую кодировку
[/DELPHI]