| Вопрос: Помогите с VB6 | Добавлено: 05.08.03 23:21 |
Автор вопроса:  Xpyct | ICQ: 225868127 |
|
Срочно нужно расшифровать бинарный код: 1100001011110001111111110010000011100110111010001110011 1111011011111110000100000001011010010000011101000111000 1111110000111000000010111000101110001011100010000011000 0000010000011101100111110110010000011100010001000001110 1101111001011110100100100000111010101111001011101110001 1111100100000110011001111101100100000001011010010000011 101011111011101111010111101000001011100010111000101110 |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  shuffle Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #1 | Добавлено: 06.08.03 01:00 |
|
"Вся жизнь - игра... А мы в ней кто? мы -[sensored]и..." Это что за прикол? Ты где это взял? |
||
|
Номер ответа: 2 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #2 | Добавлено: 06.08.03 06:59 |
|
УАу! а как ты так расшифровал? можешь подсказать? |
||
|
Номер ответа: 3 Автор ответа:  SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #3 | Добавлено: 06.08.03 09:24 |
|
А что здесь расшифровывать??? Бинарная запись ASCII-строки...
Private Sub Command1_Click() a = Text1 res = "" For i = 1 To Len b = Mid(a, (i - 1) * 8 + 1, 8) s = 0 For j = 1 To 8 c = Mid(b, j, 1) s = s + Val(c) * 2 ^ (8 - j) Next res = res & Chr(s) Next MsgBox res End Sub Вообще-то сразу должно было насторожить, что длина этого "шифра" - 384=48*8 Давненько я так не смеялся, Morpheus... |
||
/ 8
)|
Номер ответа: 4 Автор ответа:  MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #4 | Добавлено: 06.08.03 10:31 |
|
dim a as integer for a=0 to 10 msgbox"Ха! ",vbexclamination next Уж и прикольнуться нельзя!! |
||
|
Номер ответа: 5 Автор ответа: shuffleАдминистратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #5 | Добавлено: 06.08.03 15:01 |
| Конечно можно было и кодом... но я хотел ис сам потренероваться... | ||
|
Номер ответа: 6 Автор ответа:  HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 07.08.03 01:53 |
11000010111100 - вышел зайчик погулять
|
||
|
Номер ответа: 7 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 07.08.03 01:53 |
|
11000010111100 - вышел зайчик погулять
|
||
Страница: 1 |