String to Binary

[augustoclaro 2]

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.

[SemPapasNaLingua 0]

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

 

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

[augustoclaro 2]

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

[hargon 64]

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]

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);