Как (чем) расшифровать строчку типа...

[flook]

=?iso-8859-1?B?<тут какая-то чухня из букв и цифр>?=

[t.t]

А что имеется ввиду под "расшифровать?

[flook]

Преобразовать к виду, который я смогу прочесть.

Это мне пришло от одного знакомого и стояло в теме письма.
Тело письма состоит из одних знаков ? (видимо евоный или мой
почтовый сервер взглючнул или еще что), так что вся инфа, которую
я могу извлечь из письма - в теме.

[t.t]

Тогда опишите подробнее, какой вид имеет "какая-то чухня", а то я уже не помню. Есть подозрение, что там должны идти шестнадцатиричные коды соотв. символов в упомянутой кодировке (iso-8859-1), похоже на то?

[xorader]

Кстати, да... я вот недавно снова искал тулзу которая это конвертит, но так и не нашёл (опять). Если найдёшь - кинь ссылку пожалуйста. Заранее благодарен
Добавлено:
пример приведу: "=?koi8-r?B?68/O09TBztTJziDzzcnSzs/XIC0g+uHvICL00sHO0/TFzMXrz80t7u4iIA==?="
знаю, что это разшифровывают почтовики, но нужно утилитку простую...

[t.t]

пример приведу: "=?koi8-r?B?68/O09TBztTJziDzzcnSzs/XIC0g+uHvICL00sHO0/TFzMXrz80t7u4iIA==?="

↑

Хм.. Такого не встречал.
Добавлено:

знаю, что это разшифровывают почтовики

↑

Если так, то может проще посмотреть исходники какого-нибудь почтаря и вытащить оттуда?

[xorader]

> Хм.. Такого не встречал.
везёт людям... не копаються в исходниках писем... щастлиииивые )

> Если так, то может проще посмотреть исходники какого-нибудь почтаря и вытащить оттуда?
да я и так много чего лишнего делаю, а потом понимаю что изобрёл велосипед

[flook]

Утилита называется mimencode из пакета metamail.

[xorader]

ура! спасибо огромное... название утлиты знал а пакет так и не вычислил... чувствовал, что где то близко хожу...

[sshy]

=?iso-8859-1?B?<тут какая-то чухня из букв и цифр>?=

↑

Попробуй так Кажется, ты где-то уже это наблюдал

Код: Выделить всё

#!/usr/bin/perl
$ln = <STDIN>;
chomp $ln;
if ($ln =~ /^(.*)=\?([^?]+)\?.\?(.*)\?=\s*$/)
{
  $decoded = `echo "begin-base64 664 -
$3
====" | uudecode -o /dev/stdout | /usr/bin/iconv -f=$2 -t=koi8-r`;
  print "$1 $decoded\n";
}
else
{
  print "not matched\n";
  print $ln;
}