PC Professionell 2006 May/PCpro_2006_05.ISO/files/free_security/languard/languardnss7.exe/mod_ssl.vbs21

Text File | 2004-01-20 | 958 b | 33 lines

Function Main

Dim strRequest As String
Dim strResponse As String
Dim SocketObject As Object
Dim regexp As Object
Dim result As Boolean


    result = false
    ip = getparameter("ComputerIP")
    port = "80"
    cr = Chr(13) +  Chr(10)
    Socket.SetTimeout 5000,5000
    Set regexp = CreateObject("Vbscript.regexp")
    Set SocketObject = Socket.OpenTCP (ip,port)
    If Not SocketObject is Nothing Then
        SocketObject.send(CStr("GET invalid"+cr+cr))
           strResponse = SocketObject.recv(10240)
         If Len(strResponse) > 0 Then
                       regexp.ignorecase = true
                       If  (InStr(1,strResponse,"Apache/2") = 0) Or (InStr(1,strResponse,"Apache-AdvancedExtranetServer/2") = 0) Then
                           regexp.pattern = ".*mod_ssl/(1.*|2\.([0-7]\..*|8\.[0-6][^0-9])).*"
                If regexp.test(strResponse) Then
                              result = true
                           End  If
             End If
                  End If
                  SocketObject.Close
    End If
    main = result

End Function