Как преобразовать binary -> string ?

[igor_m]

есть функция, но в 4 строке снизу что-то не то: Chr(CodeSymbol 256). Подскажите кто понимает что там должно быть.

'Функция преобразования строки из бинарного формата в текстовый

Код: Выделить всё

Function BinToText(Str)
StrNew=""
For j=1 to Len(Str)
CodeSymbol=AscW(Mid(Str,j, 1))
If CodeSymbol < 0 then
CodeSymbol=65536-Abs(CodeSymbol)
End If
StrNew=StrNew&Chr(CodeSymbol Mod 256) & Chr(CodeSymbol 256)
Next
BinToText=StrNew
End Function

[Viper] :: Пользуйся тэгом CODE

[Хакер]

кто понимает

Приведённый выше код (неоформленный при том соотв. тегом) — просто бред. Этот код выполняет преобразование Юникод→ДвойнойЮникод.

При этом, первый момент заключается в том, что такое преобразование уже делает StrConv.
Второй момент заключается в том, что этот код жутко неправилен. Даже просто синтаксически.
Третий момент в том, что «binary→string» тут никаким не относится к делу.

[Хакер]

На а между CodeSymbol и 256 пропущен оператор целочисленного деления \ (обратный слеш). Считай, что я тебе этого не говорил. Используй StrConv, а не эту дрянь.

[igor_m]

Благодарю, Хакер. Собственно мне нужно было только посмотреть одну строчку, чтобы точно знать, что получает сервер от формы
Request.BinaryRead(длина_всей_хрени_в_байтах)
Эту строчку он выдает именно в бинарном виде. Со слэшем обратным все заработало, спасибо. А StrConv мне еще искать надо что такое, да и в VbScript наверное нет этой функции, иначе бы народ не морочился. Вчера в инете поискал - народ тоже парится с этим преобразованием и на vbscript, и на javascript.
Я почему в VB1-6 запостил вопрос - в разделе ASP создал тему, так мне кажется туда не заходит никто.
Всего доброго.