SSLv3 开启检测工具&源码

forum.php

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

标签: 无
返回文章列表 文章二维码
本页链接的二维码
打赏二维码
添加新评论