Неправильная автозамена символов через StringReplace

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#NoTrayIcon

Global $aOldHex[54] = [53,'41','42','43','44','45','46','47','48','49','4A','4B','4C','4D','4E','4F','50','51','52','53','54','55','56','57','58','59','5A','20','61','62','63','64','65','66','67','68','69','6A','6B','6C','6D','6E','6F','70','71','72','73','74','75','76','77','78','79','7A']
Global $aNewHex[54] = [53,'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z',' ','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z']

GUICreate("Test", 580, 110)
$Input = GUICtrlCreateEdit("",10,10,560,62)
$Button5 = GUICtrlCreateButton("Hex > Txt", 500, 73, 55, 18)
$Button6 = GUICtrlCreateButton("Txt > Hex", 500, 91, 55, 18)

GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
         Case $GUI_EVENT_CLOSE
            Exit
         Case $Button5
			$sText = ClipGet()
			For $i = 1 To $aOldHex[0]
			   $sText = StringReplace($sText, $aOldHex[$i], $aNewHex[$i], 0, 2)
			Next
			GUICtrlSetData($Input, $sText)
			ClipPut($sText)
		 Case $Button6
			$sText = GUICtrlRead($Input)
			For $i = 1 To $aNewHex[0]
			   $sText = StringReplace($sText, $aNewHex[$i], $aOldHex[$i], 0, 2)
			Next
			GUICtrlSetData($Input, $sText)
			ClipPut($sText)
    EndSwitch
WEnd

#include <String.au3>
$Text = "I have been waiting for you"
$TextToHex = _StringToHex($Text)
MsgBox(0, "Hex", $TextToHex)
$HexToText = _HexToString($TextToHex)
MsgBox(0, "Text", $HexToText)

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#NoTrayIcon

GUICreate('Test', 580, 110)
$nInput = GUICtrlCreateEdit('AutoIt v3 - бесплатный скриптовый язык.', 10, 10, 560, 62)
$nButton5 = GUICtrlCreateButton('Txt > Hex', 500, 73, 55, 18)
$nButton6 = GUICtrlCreateButton('Hex > Txt', 500, 91, 55, 18)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState()
While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $nButton5
			$sText = GUICtrlRead($nInput)
			$sNewText = ''
			For $i = 1 To StringLen($sText)
				$sNewText &= Hex(Asc(StringMid($sText, $i, 1)), 2)
			Next
			$sText = ''
			GUICtrlSetData($nInput, $sNewText)
			GUICtrlSetState($nButton5, $GUI_DISABLE)
			GUICtrlSetState($nButton6, $GUI_ENABLE)
			$sNewText = ''
		Case $nButton6
			$sText = GUICtrlRead($nInput)
			$sNewText = ''
			For $i = 1 To StringLen($sText) Step 2
				$sNewText &= Chr(Dec(StringMid($sText, $i, 2)))
			Next
			$sText = ''
			GUICtrlSetData($nInput, $sNewText)
			GUICtrlSetState($nButton6, $GUI_DISABLE)
			GUICtrlSetState($nButton5, $GUI_ENABLE)
			$sNewText = ''
	EndSwitch
WEnd

#include <String.au3>
$sText = "6F6E207468652076696C6C6167652E005E5B43616C6D6F6E5D"
$HexToText = _HexToString($sText)
MsgBox(0, "Text", $HexToText)

#include <String.au3>
$Text = "on the village. ^[Calmon]"
$TextToHex = _StringToHex($Text)
MsgBox(0, "Hex", $TextToHex)
$HexToText = _HexToString($TextToHex)
MsgBox(0, "Text", $HexToText)

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <String.au3>
#NoTrayIcon

GUICreate("Test", 580, 110)
$Input = GUICtrlCreateEdit("",10,10,560,62)
$Button5 = GUICtrlCreateButton("Hex > Txt", 500, 73, 55, 18)

GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
         Case $GUI_EVENT_CLOSE
            Exit
         Case $Button5
            $sText = GUICtrlRead($Input)
			$HexToText = _HexToString($sText)
			GUICtrlSetData($Input, $HexToText)
    EndSwitch
WEnd

#include <String.au3>
$Text = "6F6E207468652076696C6C6167652E005E5B43616C6D6F6E5D"
$HexToText = _HexToString($Text)
MsgBox(0, "Text", $HexToText)

#include <String.au3>
$Text = "6F600E2070046865200076696C600C6167652E005E5B0043616C6D6F6E5D"
$Text2 = StringReplace($Text, "00", "")
$HexToText = _HexToString($Text2)
MsgBox(0, "Text", $HexToText)

BinaryToString()

Case $Button5
            Dim $aText[1]
            $sText = ClipGet()
            ; проверка на чётность
            If Mod(StringLen($sText), 2) <> 0 Then  $sText &= " "
            ; создание массива
            ReDim $aText[StringLen($sText) / 2 + 1]
            $aText[0] = StringLen($sText) / 2
            ; разбиение по парам
            For $i = 1 To StringLen($sText) Step 2
              $aText[$i / 2 + 0.5] = StringMid($sText, $i, 2)
            Next
            ; преобразование массива
            For $i = 1 To $aText[0]
              ; замена пустых пар
              If $aText[$i] = "00" Then
                $aText[$i] = " "
                ContinueLoop
              Else
                ; замена известных пар на соответствующие символы
                For $j = 1 To $aOldHex[0]
                  If $aText[$i] == $aOldHex[$j] Then
                    $aText[$i] = $aNewHex[$j]
                    ExitLoop
                  EndIf
                Next
                ; замена неизвестных пар
                If $j = $aOldHex[0] + 1 Then $aText[$i] = "?"
              EndIf
            Next
            ; преобразование массива в строку
            $sText = ""
            For $i = 1 To $aText[0]
               $sText &= $aText[$i]
            Next
            ; вывод строки
            GUICtrlSetData($Input, $sText)
            ClipPut($sText)