Funkce StringToBinary (VBScript)


08-10-2007 08:29 - Zdroj: blog.pavoocek.net
Funkce pro převod stringu do bytového pole a naopak: Function StringToBinary(S) Dim i, Bytes For i=1 To Len(S) Bytes = Bytes & ChrB(Asc(Mid(S,i,1))) Next StringToBinary = Bytes End Function Function BinaryToString(Binary) Dim I, S For I = 1 To LenB(Binary)…Číst dále › - Pokračovat...
addthis





Poslední příspěvky z blogu:
blog.pavoocek.net



Zašlete svůj blog
Požadavky na Blog
Ochrana osobních údajů
Kontakty

This site uses Thumbshots previews