AutoIt и двоичный код

$bA1 = 1011101
$bA2 = 1

$bA3 = $bA1 + $bA2

MsgBox(0, '', $bA3)

$b01 = 1011101


While True
	MsgBox(4096, Default, $b01)
	$b01 = NextB($b01)
WENd

Func NextB($String, $Pos = 1)
	If Not IsString($String) Then $String = String($String)
	If $Pos = StringLen($String)+1 Then Return "1" & $String
	If StringMid($String, StringLen($String) - $Pos + 1, 1) = 1 Then
		Return NextB(StringLeft($String, StringLen($String) - $Pos) & "0" & StringRight($String, $Pos - 1), $Pos + 1)
	Else
		Return StringLeft($String, StringLen($String) - $Pos) & "1" & StringRight($String, $Pos - 1)
	EndIf
EndFunc

$bA1 = '1011101'
$bA2 = '1'

$bA3 = Chr(ByteToInt($bA1) + ByteToInt($bA2))

FileWrite('result.txt', $bA3)

Func ByteToInt($sBytes)
	$iStrLen = Stringlen($sBytes)
	$iRet = 0
	For $i = $iStrLen To 1 Step -1
		If StringMid($sBytes, $i, 1) = '1' Then $iRet += 2^($iStrLen - $i)
	Next
	Return $iRet
EndFunc

$bA1 = '0010000100100001' ;длина строки максимум 32 символа (32 бита)
$bA2 = '0000100100011011'

$bA3 = IntToByteString(ByteStringToInt($bA1) + ByteStringToInt($bA2))

MsgBox(0, '', $bA3)

$hFile = FileOpen('result.txt', 2)
FileWrite($hFile, ByteStringToAsciiString($bA3))
FileClose($hFile)

Func ByteStringToInt($sBytes)
	$iStrLen = Stringlen($sBytes)
	$iRet = 0
	For $i = $iStrLen To 1 Step -1
		If StringMid($sBytes, $i, 1) = '1' Then $iRet = BitOR($iRet, 2^($iStrLen - $i))
	Next
	Return $iRet
EndFunc

Func IntToByteString($iInt)
	$sRet = ''
	For $i = 0 to 31
		If BitAND($iInt, 2^$i) Then
			$sRet = '1' & $sRet
		Else
			$sRet = '0' & $sRet
		EndIf
	Next
	Return StringRegExpReplace($sRet, '^(0+)', '')
EndFunc

Func ByteStringToAsciiString($sBytes)
	$sRet = ''
	Do
		$sRet = Chr(ByteStringToInt(StringRight($sBytes, 8))) & $sRet
		$sBytes = StringTrimRight($sBytes, 8)
	Until $sBytes = ''
	Return $sRet
EndFunc

$iNumber = 92
$sMessage = ""

For $i = 1 To 50
	$iNumber += 1
	$sMessage &= NumberToString2($iNumber, 2 ^ 7) & @TAB & $iNumber & @CRLF
Next

MsgBox(4096, Default, $sMessage)


Func NumberToString2($iNumber, $iType = 128) ; $iNumber - число для перевода, $iType = 2^(x-1), где x - нужное число разрядов
	Local $sResult = ""
	While $iType > 0
		If BitAND($iNumber, $iType) Then
			$sResult &= "1"
		Else
			$sResult &= "0"
;~ 			If $sResult <> "" Then $sResult &= "0" ; если нужен результат без ведущих нулей, можно использовать этот вариант
		EndIf
		$iType = BitShift($iType, 1)
	WEnd
	Return $sResult
EndFunc

For $i = 0 To 255
	$sFileName = @ScriptDir&'/'&$i&'.txt'
	$hFile = FileOpen($sFileName, 2)
	FileWrite($hFile, Binary($i))
	FileClose($hFile)
Next

For $i = 0 To 255
	FileWrite($i & ".txt", Chr($i))
Next