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
链接: http://pan.baidu.com/s/1bn6d2ub 密码: 5ni4