Challenge 6 - AutoIt

#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)
    $oJson = '{ "token": "' & $Binary & '" }'

    $oHTTP = ObjCreate('winhttp.winhttprequest.5.1')
    $oHTTP.open("POST", "https://cc.the-morpheus.de/solutions/6/", False)
    $oHTTP.SetRequestHeader("Content-Type", "application/json;charset=utf-8")

    ConsoleWrite("Send: " & $oJson & @CRLF)
    $oHTTP.send($oJson)
    $oHTTP.WaitForResponse()

    Return $oHTTP.ResponseText()
EndFunc