#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