PC Professionell 2006 May/PCpro_2006_05.ISO/files/free_security/languard/languardnss7.exe/sasser.vbs35

Text File | 2004-05-03 | 1.5 KB | 34 lines

Function Main
Dim strRequest
Dim strResponse As String
Dim SocketObject As Object
Dim result As Boolean
Dim strPattern1 As String
Dim strPattern2 As String
            strPattern1 = "220 OK" + Chr(10)
            strPattern2 = "226 OK" + Chr(10)
            result = false
            ip = getparameter("ComputerIP")
            port = "5554"
            strRequest = "GFITEST"
            Socket.SetTimeout 5000,5000
            Set SocketObject = Socket.OpenTCP (ip,port)
            If Not SocketObject is Nothing Then
                        strResponse = SocketObject.recv(Len(strPattern1)+1,2)
                        If Len(strResponse) > 0 Then
                                    If InStr(1,strResponse,strPattern1) > 0 Then
                                                SocketObject.Send(strRequest)
                                                strResponse = SocketObject.recv(Len(strPattern2)+1,2)
                                                If Len(strResponse) > 0 Then
                                                            If InStr(1,strResponse,strPattern2) > 0 Then
                                                                        result = true
                                                            End If
                                                End If
                                    End If
                        End If
                        SocketObject.Close
            End If
            Main = result
End Function