SSLv3 开启检测工具&源码

Private Sub CheckPoodle(ByVal Domain As String, Optional ByVal port As Integer = 443)
        Dim client As New TcpClient
        client.Connect(Domain, port)
        Dim Result As String = String.Empty
        Try
            Using ssl As SslStream = New SslStream(client.GetStream)
                ssl.AuthenticateAsClient(Domain, Nothing, System.Security.Authentication.SslProtocols.Ssl3, False)
                Console.ForegroundColor = ConsoleColor.Yellow
                Result = String.Format("{0}---开启SSLv3", Domain)
                Console.WriteLine(Result)
            End Using
        Catch ex1 As AuthenticationException
            Console.ForegroundColor = ConsoleColor.Green
            Result = String.Format("{0}---未开启SSLv3", Domain)
            Console.WriteLine(Result)
        Finally
            CheckResult.Add(Result)
            Console.ResetColor()
            client.Close()
        End Try
    End Sub