как перевести двоичный код в текст?

Question

как перевести двоичный код в текст?

Оленька Ученик (132), закрыт 15 лет назад

есть txt файл с двоичныйм кодом... знаю что в итоге должно получится 2 предложения....как это сделать? может есть чудо программа?)))

11000000
11100011
11100101
11101101
11110010
101100
100000
11110001
11110000
11100101
11100100
11101000
100000
11101101
11100000
11110001
100000
11101111
11110000
11100101
11100100
11100000
11110010
11100101
11101011
11111100
101110
100000
11000101
11100011
11101110
100000
11101101
11100101
11100010
11101110
11100111
11101100
11101110
11100110
11101101
11101110
100000
11101000
11100100
11100101
11101101
11110010
11101000
11110100
11101000
11110110
11101000
11110000
11101110
11100010
11100000
11110010
11111100
100000
11100001
11100101
11100111
100000
11110001
11101100
11100101
11101010
11100000
11101011
11101010
11101000
100000
11101000
100000
11101000
11101101
11110010
11110011
11101000
11110110
11101000
11101000
101110
100000
11001101
11100101
11101100
11100101
11100100
11101011
11100101
11101101
11101101
11101110
100000
11101000
11100100
11100101
11101101
11110010
11101000
11110100
11101000
11110110
11101000
11110000
11110011
11101001
11110010
11100101
100000
11100101
11100011
11101110
100000
11101000
100000
11101111
11101110
11101011
11110011
11110111
11101000
11110010
11100101
100000
11100100
11100000
11101011
11111100
11111000
11100101
11101001
11111000
11101000
11100101
100000
11101000
11101101
11110001
11110010
11110000
11110011
11101010
11110110
11101000
11101000
101110

Answer 1

Не знаю про волшебные программы, но Excel вполне с этим справляеться.
с копируй всю эту галимотью в колонку а, а в колонке б на против первого числа вбей формулу =СИМВОЛ (ДВ. В. ДЕС (A1))

где вместо A1 - адрес яцейки с первым числом, потом растяни формулу и у тебя будут все буквы - читать снизу вверх

Answer 2

1) создаем массив из колва символов.. . типа байт.
2) читаем 8 символов из файла. .
3) берем елемнт массива. .
проверяем 1 символ из файла
если 1 то включаем 1 бит еелемнта массива (байта) (функции chl chr битовые сдвиги) (так 8 раз пустые заполням 0)
4) так со всем массивом
5) потом заменяем коды в массиве их символами (можо и без этого (char(массив [елемент]) выведет символ) )
6)читаем текст

Answer 3

попробовал написать такую программу:
VAR x,y,z:real;
f:text;
c,p:byte;
s:string;
BEGIN
Assign(f,'dat.txt');
ReSet(f);
while not EOF(f)do
begin
readln(f,s);
c:=0;
p:=1;
while length(s)>0 do
begin
if s[length(s)]='1'then c:=c+p;
delete(s,length(s),1);
p:=p*2;
end;
write(chr(c));
end;
Close(f);
END.
Все получилось!
Работает в Pascal ABC из-за кодировки