Here you go: function asc2bin ($str) { for($i = 0; $i < strlen($str); $i++) { $ret .= str_pad(decbin(ord(substr($str, $i, 1))), 8, "0", STR_PAD_LEFT); } return $ret; } håber du kan bruge ideen til vb :)
Denne funktion omregner et decimaltal til et binært tal.
Public Function Dec_2_Bin (v As String) As String Tal_Streng$ = "0123456789ABCDEF" tal = Val(v) slut = False Tekst$ = "" Do Until slut = True a = Fix(tal / 2) b = Fix(tal Mod 2) tal = a Tegn$ = Mid$(Tal_Streng$, Fix(b) + 1, 1) Tekst$ = Tegn$ & Tekst$ If tal = 0 Then slut = True Loop Dec_2_Bin = Tekst$ End Function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.