Just a basic ACSCII <-> Binary converter. I wasnt sure if there was a BinToDec or a DecToBin converter so I just made my own. Enjoy!
Download :arrow: ASCII_Binary.ahk
#singleinstance force gui, add, edit, r10 w350 vInput, ASCII <--> Binary Converter`nBy Veovis`nWritten in AutoHotkey`nhttp://www.autohotkey.com gui, add, text, ,Padding between bytes: gui, add, edit, xp+130 w100 vpadding gui, add, button, x50 w100 gASCBin, ASCII -> Binary gui, add, button, xp+150 w100 gBinASC, Binary -> ASCII gui, show return ASCBin: output = gui, submit, nohide loopcount := strlen(Input) loop, %loopcount% { num := Asc(Input) ;obtains the ASCII value of the FIRST char in the input string nextbyte = % Binary(num) output := output nextbyte padding stringTrimLeft, Input,Input,1 } Guicontrol,,Input,%output% return BinASC: output = gui, submit, nohide if padding Stringreplace,Input,Input,%padding%,,A SetFormat, Float,0.2 loopcount := strlen(Input)/8 test := mod(Strlen(Input),8) if test <> 0 { msgbox, The value entered is not proper 8 bit ASCII (last byte is %test% bits)`nYou might want to check your padding settings return } loop, %loopcount% { StringLeft, NextByte, Input, 8 NextByte := Decimal(NextByte) if NextByte = not_bin { msgbox, Binary Error`nBinary can only contain 1s and 0s. return } nextbyte := Chr(NextByte) output := output nextbyte StringTrimLeft, Input, Input, 8 } Guicontrol,,Input,%output% return GuiClose: ExitApp Binary(num) { power = 0 output = 0 loop { SetFormat, Float,0.1 num := num/2 SetFormat, Float,0.0 bit := (num - Floor(num))*2 num := Floor(num) output := output + (bit*10**power) power++ if num = 0 break } SetFormat, Float, 08.0 output += 0.0 return %output% } Decimal(num) { power = 0 output = 0 loop { SetFormat, Float, 0.1 num := num/10 bit := (num - Floor(num))*10 if (bit <> 1 AND bit <> 0) return "not_bin" num := Floor(num) output := output + (bit*2**power) power++ if num = 0 break } SetFormat, Float, 0.0 output += 0 return %output% }