Форум АНТИЧАТ - Показать сообщение отдельно

Цитата:

Сообщение от slesh

Разкодируется примерно так:

Код:

var
 s,s1,s2:string;
 x:integer;
 begin
  s:='=d0=9a=d0=b8=d1=80=d0=b5=d0=b9=d1=87=d1=83=d0=ba';
 while pos('=',s)<>0 do delete(s,pos('=',s),1);
 x:=1;
 s1:='';
 while x<length(s) do
  begin
    s1:=s1+chr(strtoint('$'+copy(s,x,2)));
    x:=x+2;
  end;
 s2:=Utf8ToAnsi(s1);
 showmessage(s2);
end;

Раскодируй плиз такие строки

Код:

N;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8:=D0=9A=D0=B8=D1=80=D0=B5=D0=B9=D1=87=D1=83=D0=BA;=D0=9E=D0=BB=D1=8F;;;

Код:

N;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8:=D0=9A=D0=BE=D1=81=D1=82=D1=8E=D0=BA;=D0=94=D0=B0=D1=88=D0=B0;;;

Код:

N;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8:=
[=D0=9C=D1=83=D1=81=D0=BE=D1=80];=D0=9F=D0=B8=D0=B2=D0=BE=D0=B2=D0=B0=D1=
=80=D0=BE=D0=B2;;;

Код:

N;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8:=D0=9E=D0=BA=D1=83=D0=BB=D0=B8=D1=87;=D0=94=D0=B8=D0=BC=D0=B0;;;