Autoit Challange

#include <Mathematische Funktionen.au3>
;~  #include <Needed Libarys/JSON.au3>

MsgBox(0, "Test", _sendBinary(_binary(_getDezimal())))

Func _getDezimal()
    $oHTTP = ObjCreate('winhttp.winhttprequest.5.1')
    $oHTTP.open('GET', "https://cc.the-morpheus.de/challenges/6/")
    $oHTTP.send()
    $oHTTP.WaitForResponse()
    Return $oHTTP.ResponseText()
EndFunc

Func _sendBinary($Binary)
    $oHTTP = ObjCreate('winhttp.winhttprequest.5.1')
    $oHTTP.open('POST', "https://cc.the-morpheus.de/solutions/6/")
;~  $oHTTP.SetRequestHeader("Content-Type", "application/json")
    $oJson = "{'token': " & '"' & $Binary & '"}'
;~  $oJson = "token=" & $Binary
;~  $oJson = StringToBinary($Binary, 4)
;~  $oJson = "{'token': " & '""}'
    ConsoleWrite("Send: " & $oJson & @CRLF)
    $oHTTP.send($oJson)
    $oHTTP.WaitForResponse()
    Return $oHTTP.ResponseText()
EndFunc