вот у меня шифрация/дешифрация текста происходит так
Код:
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;
но шифрует/дешифрует он косячно, допустим я хочу зашифровать
он зашифровывает в такой вид
но когда я хочу расшифровать зашифрованое, то он не все расшифровывает
В чем косяк?