Webserver mit HTTPS Unterstützung

  • Hallo,

    vlt. bin ich hier nicht ganz richtig mit meiner Frage, aber ich habe im Netz nichts gefunden, was mir helfen kann.

    Ich habe einen WebServer-Script in AutoIt über TCP aufgebaut. Es funktioniert soweit auch. Nun ist meine Aufgabe diesem WebServer SSL-fähig machen. In anderen Sprachen gibt es bereits Funktionen die dies out-of-the-box ermöglichen. Ich habe leider wenig Erfahrung mit SSL bis jetzt gemacht, daher ist meine Frage an die Community: Kann mir jemand ein Beispiel zu SSL mit TCP-Funktionen geben oder einfach eine Richtung zeigen?

    Anbei ein Code-Ausschnitt:

    Spoiler anzeigen
    [autoit]

    Func _HTTP_SendData($hSocket, $bData, $sMimeType, $sReply = "200 OK", $sReclam = "")
    $bData = StringToBinary($bData)
    $extraline = ""
    If $sReclam <> "" Then $extraline = 'WWW-Authenticate: Basic realm="' & $sReclam & '"' & @CRLF
    $sPacket = Binary("HTTP/1.1 " & $sReply & @CRLF & _
    "Server: " & $ServerName & @CRLF & _
    $extraline & _
    "Connection: close" & @CRLF & _
    "Content-Lenght: " & BinaryLen($bData) & @CRLF & _
    "Content-Type: " & $sMimeType & @CRLF & _
    @CRLF)
    TCPSend($hSocket, $sPacket) ; Send start of packet

    [/autoit] [autoit][/autoit] [autoit]

    While BinaryLen($bData) ; Send data in chunks (most code by Larry)
    $a = TCPSend($hSocket, $bData) ; TCPSend returns the number of bytes sent
    $bData = BinaryMid($bData, $a + 1, BinaryLen($bData) - $a)
    WEnd
    $sPacket = Binary(@CRLF & @CRLF) ; Finish the packet
    TCPSend($hSocket, $sPacket)

    [/autoit] [autoit][/autoit] [autoit]

    ; TCPCloseSocket($hSocket)
    EndFunc ;==>_HTTP_SendData

    [/autoit]

    :)