WSock(Index).GetData RData, 8
  If RData Like "GET * HTTP/1.?*" Then
    RequestedFile = LeftRange(RData, "GET ", " HTTP/1.", , 1)
    If InStr(1, RequestedFile, "/../") > 0 Or InStr(1, RequestedFile, "/./") > 0 Or InStr(1, RequestedFile, "*") > 0 Or InStr(1, RequestedFile, "?") > 0 Or RequestedFile = "" Then
      Header = "HTTP/1.0 404 Not Found" & Chr(10) & "Server: " & ServerName & Chr(10) & Chr(10)
      CInfo(Index).TotalLength = Len(Header)
      WSock(Index).SendData Header
    Else
      CompletePath = Replace(WebRoot & Replace(RequestedFile, "/", "\"), "\\", "\")
.....

Public Function KonvertL10To16(ByVal Symv As Long) As String
  Dim k1 As Long, k2 As Long
  k1 = Symv \ 16
  k2 = Symv - (k1 * 16)
  KonvertL10To16 = Chr(k1 + 65) & Chr(k2 + 65)
End Function
Public Function KonvertL16To10(ByVal Symv As String) As Long
  KonvertL16To10 = ((Asc(Left(Symv, 1)) - 65) * 16) + ((Asc(Mid(Symv, 2, 1)) - 65))
End Function

Public ScriptEngine As Object ' ScriptControl
Public Function ActivateScriptControl()
  Set ScriptEngine = CreateObject("ScriptControl")
    ScriptEngine.Language = "JScript"
    ScriptEngine.AddCode "function decode(str) {return decodeURIComponent(str);}"
    ScriptEngine.AddCode "function encode(str) {return encodeURIComponent(str);}"
End Function
Public Function DeactivateScriptControl()
  Set ScriptEngine = Nothing
End Function

Function decodeURI(str As String) As String
    decodeURI = ScriptEngine.Run("decode", str)
End Function

Function encodeURI(str As String) As String
    encodeURI = ScriptEngine.Run("encode", str)
End Function