0 Members and 1 Guest are viewing this topic.
(defun _ByteToBin ( byte / power result ) ;; convert an ascii code to a binary equivalent. ;; ;; e.g. (_ByteToBin 42) returns "00101010" (repeat (setq power 8) (setq result (cons (if (zerop (logand byte (expt 2 (setq power (1- power) ) ) ) ) 0 1 ) result ) ) ) (apply 'strcat (mapcar 'itoa (reverse result))))(defun _StrToBin ( str ) (mapcar '_ByteToBin (vl-string->list str)))
def strToBin(s): def foo(i): return (('0'*8)+bin(i)[2:])[-8:] return list(map(foo,map(ord,s)))
(defun StringToBinary (str) (mapcar '(lambda (x / n s) (setq n 0 s (itoa (rem x 2)) ) (repeat 7 (setq n (1+ n)) (if (/= 0 (logand x (expt 2 n))) (setq s (strcat "1" s)) (setq s (strcat "0" s)) ) ) ) (vl-string->list str) ))
(defun StringToBinary ( str ) (mapcar '(lambda ( x / cnt str tempX) (setq cnt 128) (setq str "") (while (not (zerop cnt)) (setq tempX (rem x cnt)) (setq str (strcat str (if (equal tempX x) "0" "1" ) ) ) (setq x tempX) (setq cnt (/ cnt 2)) ) str ) (vl-string->list str) ))
(defun vk_Dec2Bin (Dec) (if (< (setq Dec (fix Dec)) 2) (itoa Dec) (strcat (vk_Dec2Bin (/ Dec 2)) (itoa (rem Dec 2))) ))(mapcar 'vk_Dec2Bin (vl-string->list "ABC"))
(defun vk_Dec2Bin (Dec Len) (if (< Len 2) (itoa (rem Dec 2)) (strcat (vk_Dec2Bin (/ Dec 2) (1- Len)) (itoa (rem Dec 2))) ))(mapcar '(lambda (a) (vk_Dec2Bin a 8)) (vl-string->list "ABC"))
static string[] StringToBinary(string str){ Encoding ascii = Encoding.ASCII; Byte[] bytes = ascii.GetBytes(str); string[]result = new string[bytes.Length]; for (int i = 0; i < bytes.Length; i++) { string bin = ""; for (int expt = 7; expt >= 0; expt--) { bin += (bytes[i] & (int)Math.Pow(2, expt)) == 0 ? "0" : "1"; } result[i] = bin; } return result;}
"ABC".each_byte {|x| puts x.to_s(2).rjust(8,"0")}
010000010100001001000011