PC Professionell 2006 May/PCpro_2006_05.ISO/files/free_security/languard/languardnss7.exe/old_squid.vbs23

Text File | 2004-11-10 | 1.1 KB | 50 lines

' check For Squid version
' versions prior To 2.4 STABLE6 are vulnerable

Function Main

Dim data As String
Dim req As String
Dim SocketObject As Object
Dim result As Boolean
Dim regexp As Object

    result = false
    ip = getparameter("ComputerIP")
    port = "3128"
    cr = Chr(13) +  Chr(10)
                                'request For server version
    req = "GET / HTTP/1.0" + cr+cr


    Socket.SetTimeout 5000,5000
    Set regexp = CreateObject("Vbscript.regexp")

    Set SocketObject = Socket.OpenTCP (ip,port)
    If Not SocketObject is Nothing Then
           SocketObject.send(CStr(req))
           data = SocketObject.recv(1024)
           regexp.pattern = ".*Squid/2\.([0-3]|4\.STABLE[0-5])"
           If regexp.test(data) Then
            result = true
           End If
           SocketObject.close
    End If

                            ' check For 8080
    If result = false Then
        port = "8080"
        Set SocketObject = Socket.OpenTCP (ip,port)
        If Not SocketObject is Nothing Then
               SocketObject.send(CStr(req))
               data = SocketObject.recv(sock, 1024)
               If regexp.test(data) Then
                   result = true
               End If
           SocketObject.close
        End If
    End If
    main = result

End Function