# Binary to text

### By log2 on Mar 13, 2005

This is what I've been slaving over for the past 5 hours.. A person enters a binary value and this little beuty converts the binary entered into a character! pretty easy to use, type !b-t to use it. but the downside of it is that right now it only converts one letter at a time :(

``````; Type !b-t then a binary number to try this script out!
; L0g2 St3w
; http://4d.freeunixhost.com/
on *:TEXT:*:#log2: {
if (\$1 == !b-t) {
; errors syntax, these show!
if (\$2 == \$null) {
msg \$chan Enter some binary!
}
if (\$len(\$2) != 8) {
msg \$chan Have you ever seen Binary to Text conversion? you need 8 numbers between 0-1!
halt
}
if (\$regex(\$2,/[a-zA-Z_]/) >= 1) {
msg \$chan Binary doesn't have letters!
halt
}
if (\$regex(\$2,/[2-9]/) >= 1) {
msg \$chan You fool! Binary ONLY contains 1's and 0's
halt
}
else {
set %bin.text \$2
set %bin.inc 1
while (%bin.inc < 9) {
set %bin. \$+ %bin.inc \$mid(\$2,%bin.inc,1)
inc %bin.inc
}
conversion
}
}
}
; Converts the binary to numbers
alias conversion {
if (%bin.1 == 1) {
%bin.1 = 128
}
else {
%bin.1 = 0
}
if (%bin.2 == 1) {
%bin.2 = 64
}
else {
%bin.2 = 0
}
if (%bin.3 == 1) {
%bin.3 = 32
}
else {
%bin.3 = 0
}
if (%bin.4 == 1) {
%bin.4 = 16
}
else {
%bin.4 = 0
}
if (%bin.5 == 1) {
%bin.5 = 8
}
else {
%bin.5 = 0
}
if (%bin.6 == 1) {
%bin.6 = 4
}
else {
%bin.6 = 0
}
if (%bin.7 == 1) {
%bin.7 = 2
}
else {
%bin.7 = 0
}
if (%bin.8 == 1) {
%bin.8 = 1
}
else {
%bin.8 = 0
}
;Calculates and changes the binary to a letter
%bin.tot = \$calc(%bin.1 + %bin.2 + %bin.3 + %bin.4 + %bin.5 + %bin.6 + %bin.7 + %bin.8)
msg # I did it! I got it! The ascii value of %bin.text is: \$chr(%bin.tot)
unset bin.*
}
``````