| Вопрос: эээээ | Добавлено: 12.04.05 18:57 |
Автор вопроса:  Дмитрий Щапов
|
| Ответы | Всего ответов: 760 |
|
Номер ответа: 571 Автор ответа:  Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #571 | Добавлено: 20.04.05 11:58 |
|
Насколько я помню, Base64 выглядит так.
Поток данных разбивается на куски по 6 бит. Эти куски кодируются соответственно таблице (в нее входят английские буквы, цифры и некоторые другие печатаемые символы). Если размер входных данных не кратен 24 битам, то выходной поток дополняется символами "=". |
||
|
Номер ответа: 572 Автор ответа:  CyRax  Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #572 | Добавлено: 20.04.05 12:19 |
Вроде так 
А что за некоторые другие печатные символы? |
||
|
Номер ответа: 573 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #573 | Добавлено: 20.04.05 12:23 |
|
Павел,
Как насчёт алгоритма на .NET? Только не нужно говорить про имеющийся класс - просто хочется оценить мощность инструмента VB.NET. |
||
|
Номер ответа: 574 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #574 | Добавлено: 20.04.05 12:29 |
|
Точно не помню.. СТатью с описанием Base64 давно потерял, а искать
сейчас лень. Точно помню, что были знаки "+" и "="... Возможно еще "\" или "/". Остальные не помню. А MSDN & Google уже отменили, что ли? |
||
|
Номер ответа: 575 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #575 | Добавлено: 20.04.05 12:29 |
|
Эээээ... Ты знаешь, я не стану тратить на это свое время.
Итак уже полчаса назад должен был явиться на работу, а сижу и читаю всякий тупизм
|
||
|
Номер ответа: 576 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #576 | Добавлено: 20.04.05 12:34 |
|
Неужели это так сложно? А кы ты тогда докажешь эффективность .NET? Как Артём? Но это же не серьёзно
Или всё таки .NET не позволяет нормально описать кодирование/декодирование BASE64? |
||
|
Номер ответа: 577 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #577 | Добавлено: 20.04.05 12:55 |
|
Позволяет. Я могу написать код. К тому же на VB6 когда-то я его писал.
Но я не собираюсь никому ничего доказывать. В данный момент мне нужно сделать систему связи сайта bilet.ru и http://wftc2.e-travel.com/ : взаимодействие по протоколу HTTP с сайтом через сокеты (DaSharm, привет , парсинг HTML-страниц регэкспами. Для меня это в данный
момент интереснее, и мне за это платят приличные для меня деньги. Я рад конечно, что у вас есть время на эти ненужные споры и эксперименты. У меня его нет, я предпочитаю применять технологии на деле, и, можно так сказать, приносить пользу обществу, а не раздражение окружающих людей. |
||
|
Номер ответа: 578 Автор ответа:  User UnknownВечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #578 | Добавлено: 20.04.05 12:57 |
|
Позволяет.
Итак уже полчаса назад должен был явиться на работу, а сижу и читаю
всякий тупизм И я это поддерживаю. Base64 не может являться примером, этот тот же хелло ворлд...Берешь RFC И в любом доступном языке фигачишь... Кроме того Павлу нечего доказывать. Форум, который ты сейчас видишь написан на .NET. |
||
|
Номер ответа: 579 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #579 | Добавлено: 20.04.05 12:58 |
|
Очень воодушевлённо написал.
Ну не хочешь - как хочешь 
|
||
|
Номер ответа: 580 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #580 | Добавлено: 20.04.05 13:00 |
|
И в любом доступном языке фигачишь... Ты не понял меня. Я хочу посмотреть как это можно реализовать на языке VB.NET. |
||
|
Номер ответа: 581 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #581 | Добавлено: 20.04.05 13:01 |
|
Base64 не может являться примером, этот тот же хелло ворлд... Тем более. Может ты напишешь раз всё так просто? |
||
|
Номер ответа: 582 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #582 | Добавлено: 20.04.05 13:05 |
| А то выходит то что я говорил что ".NET - ограничитель фантазии" правда? Всё что кроме классов нереализуемо. А ведь пидобные алгоритмы ты должен писать сходу, незадумываясь. Причём не конкретно для этой ситуации, а например для подобной, немного отличающейся. | ||
|
Номер ответа: 583 Автор ответа: User UnknownВечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #583 | Добавлено: 20.04.05 13:12 |
|
Public Shared Sub Main(args() As String) Dim data() As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(args(0)) Dim str As String = Convert.ToBase64String(data) Console.WriteLine(str) End Sub также и назад через Convert.FromBase64String или если тебе нужен свой base64, то вот готовый класс с VB6.0, который ходит и в точке: Dim Base64Chars Base64Chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _ "abcdefghijklmnopqrstuvwxyz" & _ "0123456789" & _ "+/" ' Functions for encoding string to Base64 Public Function base64_encode( byVal strIn ) Dim c1, c2, c3, w1, w2, w3, w4, n, strOut For n = 1 To Len( strIn ) Step 3 c1 = Asc( Mid( strIn, n, 1 ) ) c2 = Asc( Mid( strIn, n + 1, 1 ) + Chr(0) ) c3 = Asc( Mid( strIn, n + 2, 1 ) + Chr(0) ) w1 = Int( c1 / 4 ) : w2 = ( c1 And 3 ) * 16 + Int( c2 / 16 ) If Len( strIn ) >= n + 1 Then w3 = ( c2 And 15 ) * 4 + Int( c3 / 64 ) Else w3 = -1 End If If Len( strIn ) >= n + 2 Then w4 = c3 And 63 Else w4 = -1 End If strOut = strOut + mimeencode( w1 ) + mimeencode( w2 ) + _ mimeencode( w3 ) + mimeencode( w4 ) Next base64_encode = strOut End Function Private Function mimeencode( byVal intIn ) If intIn >= 0 Then mimeencode = Mid( Base64Chars, intIn + 1, 1 ) Else mimeencode = "" End If End Function ' Function to decode string from Base64 Public Function base64_decode( byVal strIn ) Dim w1, w2, w3, w4, n, strOut For n = 1 To Len( strIn ) Step 4 w1 = mimedecode( Mid( strIn, n, 1 ) ) w2 = mimedecode( Mid( strIn, n + 1, 1 ) ) w3 = mimedecode( Mid( strIn, n + 2, 1 ) ) w4 = mimedecode( Mid( strIn, n + 3, 1 ) ) If w2 >= 0 Then _ strOut = strOut + _ Chr( ( ( w1 * 4 + Int( w2 / 16 ) ) And 255 ) ) If w3 >= 0 Then _ strOut = strOut + _ Chr( ( ( w2 * 16 + Int( w3 / 4 ) ) And 255 ) ) If w4 >= 0 Then _ strOut = strOut + _ Chr( ( ( w3 * 64 + w4 ) And 255 ) ) Next base64_decode = strOut End Function Private Function mimedecode( byVal strIn ) If Len( strIn ) = 0 Then mimedecode = -1 : Exit Function Else mimedecode = InStr( Base64Chars, strIn ) - 1 End If End Function |
||
|
Номер ответа: 584 Автор ответа: User UnknownВечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #584 | Добавлено: 20.04.05 13:13 |
| Описание формата: http://www.rfc.net/rfc3548.html | ||
|
Номер ответа: 585 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #585 | Добавлено: 20.04.05 13:26 |
|
Хороший алгоритм Где надыбал? А описать его слабо?
|
||
Страница: 1 | 2 | 3 | 4 | 5 ..... 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 ..... 47 | 48 | 49 | 50 | 51