Publicado em 1 de out.

String to Binary

Boa noite amigos do fórum Imasters.

Eu gostaria de saber alguma função para transformar string para binario, e binário para string. E se puderem também uma função de string->Hex e ao contrário.

Obrigado.

Discussão (4)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

SemPapasNaLingua· 1 de out.

Utilize essa base e monte sua função....

http://pt.wikipedia.org/wiki/Convers%C3%A3o_de_base_num%C3%A9rica

augustoclaro· 2 de out.

Isso é de decimal pra binário, eu queria de string pra binário :S

hargon· 2 de out.

Veja se é isso que precisa:

<%
Function ConvertBin(TheString)
Dim C
Dim DD
Dim EE
Dim BinArray(7)
Dim TempString
Dim NewTheString
For C = 1 To Len(TheString)
DD = Asc(Mid(TheString, C, 1))
BinArray(7) = DD Mod 2
DD = DD/2
BinArray(6) = DD Mod 2
DD = DD/2
BinArray(5) = DD Mod 2
DD = DD/2
BinArray(4) = DD Mod 2
DD = DD/2
BinArray(3) = DD Mod 2
DD = DD/2
BinArray(2) = DD Mod 2
DD = DD/2
BinArray(1) = DD Mod 2
DD = DD/2
BinArray(0) = DD Mod 2
For EE = 0 To UBound(BinArray)
TempString = TempString & BinArray(EE)
Next
NewTheString = NewTheString & TempString
TempString = ""
Next
ConvertBin = NewTheString
End Function

Response.Write ConvertBin("iMasters")
%>
Fonte

augustoclaro· 2 de out.

mais ou menos, o a em binário é 01100001 e isso resulta em 10100001. e quando eu uso um site pra converter isso pra string resulta em ¡ que eé $#1(HEX DE a);