powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / кодировка Base64
11 сообщений из 11, страница 1 из 1
кодировка Base64
    #37823416
BelowZeroTooCold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
нужно закодировать текст в MIME-Base64 кодировку, т.е. нужен аналог base64_encode() от php. сами мы не местные, помогите кто чем может
...
Рейтинг: 0 / 0
кодировка Base64
    #37823478
x1ca4064
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroTooColdнужно закодировать текст в MIME-Base64 кодировку, т.е. нужен аналог base64_encode() от php. сами мы не местные, помогите кто чем может

Если Гугл не помогает, попробуйте написать сами (можно ознакомится с соответствующим RFC).

Исходный массив байт представте как непрерывный поток битов, затем выдергивайте из него по 6 бит. Вы получите набор значений от 0 до 63. Каждое из значений замените на символ из строки

ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/

т.е. 0 замените на A, 1 на B, ..., 63 на /

Например:

Есть текст "123", его hex dump 0x31 0x32 0x33

Двоичный дамп:
0011 0001 0011 0010 0011 0011

Нарежем по 6 бит
001100 = 12 -> M
010011 = 19 -> T
001000 = 8 -> I
110011 = 51 -> z

С остальным разберетесь.
...
Рейтинг: 0 / 0
кодировка Base64
    #37823486
BelowZeroTooCold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
x1ca4064,

если всё это так просто, напишешь код? если ты в гугле не забанен, скинешь ссылку на код?
...
Рейтинг: 0 / 0
кодировка Base64
    #37823489
x1ca4064
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroTooCold,

Я помог, чем смог.
...
Рейтинг: 0 / 0
кодировка Base64
    #37823490
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
BelowZeroTooCold,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub b64()
    ' начиная с win xp присутствует com-server
    ' %ProgramFiles%\Common Files\Microsoft Shared\CAPICOM\CapiCom.dll
    '
    Dim capicom As Object
    Dim b64$, what$
    
    Set capicom = CreateObject("CAPICOM.Utilities")
    b64 = capicom.Base64Encode("Здравствуй, дедушка Мороз!")
    Debug.Print b64
    what = capicom.Base64Decode(b64)
    Debug.Print what
    Set capicom = Nothing
End Sub
...
Рейтинг: 0 / 0
кодировка Base64
    #37823522
BelowZeroTooCold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
скукотища,

спасибо, но у меня (винда ХР, а на корявой семёрке, наверно, и подавно) этой дллки не оказалось. т.к. это клиентская часть, хотелось бы сделать её максимально упрощённой, без каких-либо dll. буду смотреть в сторону ASCII и пытать форумчан на ветке php, как декодировать текст из ASCII кодировки. (изначальная цель - убрать из передачи на хостинг все русские символы)
...
Рейтинг: 0 / 0
кодировка Base64
    #37823535
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
> BelowZeroTooCold
> но у меня (винда ХР, а на корявой семёрке, наверно, и подавно) этой дллки не оказалось

не читайте до обеда советских газет.
Не пользуйтесь корявыми сборками а-ля Zver и будет Вам и вашим юзверям щастье.


> хотелось бы сделать её максимально упрощённой, без каких-либо dll

Раз так уж хочется, то Вам однин путь - 12658975
...
Рейтинг: 0 / 0
кодировка Base64
    #37823542
BelowZeroTooCold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
скукотищаНе пользуйтесь корявыми сборками а-ля Zver и будет Вам и вашим юзверям щастье. ХР у меня вполне стандартная(пиратка), обычная сборка. на неё я и ориентируюсь - если какой-то dll нет в этой винде - значит это корявая dll). семёрка лицензия, но в ней нет практически ничего. даже ворда не было, дллки приходится постоянно качать с ХР и инета. скукотищаРаз так уж хочется, то Вам однин путь есть ещё один, который мне изначально нравился больше: перекодировать всё в ASCII(благо с этим в vb6 проблем не возникнет), а на сервере раскодировать обратно. правда тогда длина передаваемого кода увеличится в 4 раза (3 символа - кодировка знака, 4й сивол-разделитель)
...
Рейтинг: 0 / 0
кодировка Base64
    #37823566
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
BelowZeroTooCold, не изобретайте велосипед :)
http://www.google.ru/search?q=base64+vb
...
Рейтинг: 0 / 0
кодировка Base64
    #37823568
Edd.Dragon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroTooColdесли всё это так просто, напишешь код?
Я смотрю, это у тебя заученная фраза?

А делал вид, что php не знаешь, но на VB - все ни по чем =)))
...
Рейтинг: 0 / 0
кодировка Base64
    #37823799
BelowZeroTooCold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Edd.DragonBelowZeroTooColdесли всё это так просто, напишешь код?
Я смотрю, это у тебя заученная фраза?

А делал вид, что php не знаешь, но на VB - все ни по чем =))) это на php base64 стардартная кодировка: куча функций по кодировке, раскодировке, перекодировке, максимально упрощих работу с ней. а на vb6 добавлять дллку, регать её, исправлять многочисленные ошибки, возникающие у других пользователей, а уж тем более писать перекодировку самому, когда полно альтернатив(тот же ASCII код) мне как-то не особо хо Казанскийне изобретайте велосипед :) я о том же)
спс, попробую всё же кодировать в ASCII - понятнее и удобнее. буду разбирать ссылку, если вернусь к base64
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / кодировка Base64
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]