Расшифровщик

[romanzi]

Когда я использую расшифровщик (зашифровщик) (IdEnoderUUE),то при длинных предложениях (слов 7), выдаёт ошибку (программа глючит).

Как это исправить?

[veniside]

Используйте более короткие предложения.

Подойдёт вам такой вариант решения? Нет? Странно.
Но ошибку же вы нам не скажете, и код не покажете, верно?

[Johnson]

а у нас на дворе дождь... почему курицы яйца нести перестали, не знаете?

[romanzi]

Хм...А как тогда поставить в Memo, максимальное количество знаков (например 10)?

Если интересно на счёт зашифровщика:

RichEdit1.Text:=idencoderuue1.Encode(RichEdit1.Text) ;

[Johnson]

1 - насчет коротких строк была шутка...
2 - RichEdit - не самый лучший компонент для этого, попробуйте со стандартным TMemo

[romanzi]

Тоже самое.

Я до этого пробовал, и другие компоненты (не UUE, а например XXE и другие Encoder'ы).

[veniside]

RichEdit1.Text:=idencoderuue1.Encod e(RichEdit1.Text)

что-то я сомневаюсь, что зауююканный текст можно вот так легко тусовать в мемо и обратно.. это ведь бинарная кодировка, насколько я помню, т.е. там будет весь зоопарк форматирующих символов, которые мемо с удовольствием испоганит.

[Serge_Bliznykov]

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

что-то я сомневаюсь, что зауююканный текст можно вот так легко тусовать в мемо и обратно..

veniside, не-не-не-не...
Тут Вы, коллега, немного заблуждаетесь. Дело в том, что кодировки UUE (а позже base64 - которая лежит в основе MIME)
как раз и появились, когда возникла необходимость в тексте письма (а я напоминаю, были времена, когда почтовые стандарты допускали в заголовке/теме письм ТОЛЬКО 7битные печатные символы (грубо говоря, только английские буквы, цифры и знаки препинания: в таблица ASCII - коды от 0x20 до 0x7F) передавать бинарные данные. вот и придумали как закодировать эту информацию в ТЕКСТОВОМ виде.

romanzi,
как изначально стоит задача?
какую версию Delphi используете?


вот, если любопытно, как выглядело обычное вложение во времена оные:

section 1 of uuencode 5.25 of file t3.rar    by R.E.M.

begin 644 t3.rar
M4F%R(1H'`,^0<P``#0````````!ODG0@D"L`\````)D$```"0U<U1+=KDSL=
M-08`(````'0S+G!N9P"P@D-&"=V1C(_<VB()"+'!TF*@_`;0A<8H+"19`1$I
M[A=(%R@*Y."YL5Q=5<F`Y)"`@EI:7"W&!;A;I8X(.JXN$%!T8"C#VQF7L=Z#
M\`[^>'?^[#L.^5_OV/X[S7O@'AW7:5&>2040,Z$HH'=_.@812,/!%IW&:=03
MQI4`'C/TN(=@OZ+@?8`<;$.P716^D&#_^3G+^B/.R%``B=-!7T-,J$L=D3Y\
MHGAOX?AGB;,Q)6(77<_?QLBP\TK/+R)SE:953W3]=:WZLJ]*KE5"3Q]JA:$D
HEE"WU-F9#FVV_Z7+W_^#!4?N:'P%^U:@_DB?1.RFI6N*Q#U[`$`'`$`'
`
end
sum -r/size 22693/453 section (from "begin" to "end")
sum -r/size 58160/310 entire input file

Это архив RAR, внутри простейший рисунок...

[romanzi]

Задача создать расшифровщик/зашифровщик.

Версия Delphi - Delphi 2007

[Serge_Bliznykov]

1) попробуйте "Small Simple UUDecoder" UUDEC.rar

2) в разделе примеров, идущих с Delphi есть
\Demos\FastNet\Uue\uuedemo.dpr

3) можно использовать реализацию из другого продукта.
Например, Synapse
в synacode.pas есть функции

function DecodeUU(const Value: AnsiString): AnsiString;

{:encode UUcode. it encode only datas, you must also add header and footer for
proper encode.}
function EncodeUU(const Value: AnsiString): AnsiString;

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

расшифровщик/зашифровщик

А вы ничего не путаете?!
Дело в том, что к шифрованию кодирование в UUE никакого отношения не имеет!