Другие языки программирования и технологии

Помогите перевести двоичный код

Там что-то получиться должно
0000111000101101001011110001010
00000111000101111000110110000111
00010111000011001000011100010111
00010101000010100000011100010111
00010000100010100000011100010111
00010000000001110001011100010110
10000111000101110000110010000111
00010111000101011000101000000111
00010111100100000000011100010111
10001101100001110001011100010111
00001010000001110001011100001101
10000111000101110001011100001010
00000111000101110000110110000111
00010111100011010000011100010111
00001111000001110001011100010110
00001010000001110001011100001101
10000111000101110001000010000111
00010111000101101000011100010111
00010111000001110001011100001101
10000111000101110000110010000111
00010111100011011000011100010111
00001100100010100000011100010111
00010101000001110001011100001100
10000111000101111000110010000111
00010111100011011000011100010111
00010111000001110001011110010000
10000111000101110001010100000111
00010111000011001000101110000111
00010111000101101000011100010111
00001111000010100000011100010111
00001101100001110001011100001111
00000111000101111000110010000111
00010111100101100000011100010111
10001101100001110001011100010000
10001010000001110001011100010110
10000111000101110001000010000111
00010111000101010000011100010111
00010111000001110001011100010110
00000111000101111000111000001010
00000111000101110001000010001010
00000111000101110001011110000111
00010111000011110000011100010111
00010110100001110001011110001101
10000111000101110000110010000111
00010111000011100000011100010111
00010111000001110001011100010110
10001010000001110001011100010110
10000111000101110001000010001010
00000111000101110000110110001010
00000111000101111001000000000111
00010111000011110000011100010111
00010110000010100000011100010111
00010110100001110001011100001111
00001010000001110001011100001101
10000111000101110000111100000111
00010111000101101000011100010111
00010111000001110001011100001101
10000111000101110000111100000111
00010111000101101000101110001011
10001011100010111000011100010110
00010101000001110001011000001100
10000111000101101000110010000111
00010110100011011000011100010110
00010111000001110001011010010000
10000111000101100001010100000111
00010110000011001
Sergei Lomov
Sergei Lomov
358
Ноты сплошные (здесь они не отображаются)

VBS:
BinCode = "1011001110...."

For i = 1 To Len(BinCode) Step 8
iByte = Mid(BinCode, i, 8)
M = 0
For j = 1 To 8
M = M + Mid(iByte, j, 1) * 2 ^ (8 - j)
Next
Text = Text & Chr(M)
Next
MsgBox Text
InputBox "", "", Text

-//..*.!. .-..+/ /....../..,..!.-..../..*.//../!.*..-...//,/.!.-.!.*...,/.!./..-/.....-.-.!./ ..,.-....-.....-,*,--,.-!,*,

Все говорят - а как?
А как поднять бабла?
))))))
Николай Задоенко
Николай Задоенко
5 333
Лучший ответ
Sergei Lomov Только там в буквы перевести ну да ладно
Получится вот такой непонятный набор чисел:
14 45 47 20 14 47 27 14 46 25 14 46 42 20 14 46 33 20 14 46 32 14 46 45 14 46 25 14 46 43 20 14 47 32 14 47 27 14 46 46 20 14 46 27 14 46 46 20 14 46 27 14 47 26 14 46 30 14 46 44 20 14 46 27 14 46 33 14 46 45 14 46 46 14 46 27 14 46 25 14 47 27 14 46 25 20 14 46 42 14 46 25 14 47 25 14 47 27 14 46 46 14 47 33 14 46 42 14 46 25 23 14 46 45 14 46 30 20 14 46 27 14 46 30 14 47 25 14 47 44 14 47 27 14 46 33 20 14 46 45 14 46 33 14 46 42 14 46 46 14 46 44 14 47 28 20 14 46 33 20 14 46 47 14 46 30 14 46 45 14 47 27 14 46 25 14 46 28 14 46 46 14 46 45 20 14 46 45 14 46 33 20 14 46 27 20 14 47 32 14 46 30 14 46 44 20 14 46 45 14 46 30 20 14 46 27 14 46 30 14 46 45 14 46 46 14 46 27 14 46 30 14 46 45 23 23 23 23 14 44 42 14 44 25 14 45 25 14 45 27 14 44 46 14 45 33 14 44 42 14 44 25

Или в хэксе:
0E2D2F140E2F1B0E2E190E2E2A140E2E21140E2E200E2E2D0E2E190E2E2B140E2F200E2F1B0E2E2E140E2E1B0E2E2E140E2E1B0E2F1A0E2E1E0E2E2C140E2E1B0E2E210E2E2D0E2E2E0E2E1B0E2E190E2F1B0E2E19140E2E2A0E2E190E2F190E2F1B0E2E2E0E2F210E2E2A0E2E19170E2E2D0E2E1E140E2E1B0E2E1E0E2F190E2F2C0E2F1B0E2E21140E2E2D0E2E210E2E2A0E2E2E0E2E2C0E2F1C140E2E21140E2E2F0E2E1E0E2E2D0E2F1B0E2E190E2E1C0E2E2E0E2E2D140E2E2D0E2E21140E2E1B140E2F200E2E1E0E2E2C140E2E2D0E2E1E140E2E1B0E2E1E0E2E2D0E2E2E0E2E1B0E2E1E0E2E2D171717170E2C2A0E2C190E2D190E2D1B0E2C2E0E2D210E2C2A0E2C19

Или как десятичное число:
503732482469822957091331696261854694512264609475860015768023644389980410625278476041479817928848146871228181312689088157325759492822653566149032701122360841626305120376127549832902888211238364993154051117219526276828819957131551136277561869953821396001477438978775253521829959595053710397584957818459916757613185965251546842461660235782414865222657786875255455663541907130878466428852588323515363885269163168238319018194622010773011177841407391235635034354355988745350465386208854935609573276221441513117452349630018026270656965302370652105587195985277555956681716477775932754264826848182978245737448944710645015472615647559429145

Но толку от этого?
Sergei Lomov Там просто в буквы нужно было перевести и тайна бы открылась
Александр Крымпенко По моему не пробовал?)
Я предположил: что если разделить шифр на байты, потом перевести их в десятичное число и нагнать текст через Chr().
во что перевести???
Sergei Lomov В текст
Sergei Lomov Пажаласта
Я так и знал что во всем виновата картошка. не верьти никому и пентагон ни в чем не веновен.... КАРТОШКА
Вахтанг Амелехин Не благодарите