SECURITY RESEARCH / ENGINEERING
文章与研究
在证据与实验中理解复杂系统。
2014-11-25
如果数据很大请选择X64
Imports System.Text.RegularExpressions
Imports System.IO
Module Module1
Public myemail As New List(Of String)
Sub Main()
Dim reader As New StreamReader("all2.txt")
Dim my1 As String = String.Empty
While reader.Peek > -1
my1 = reader.ReadLine
If isemail(my1.Split("|")(0)) Then'格式是 email | password
If my1.Split("@")(0).Length - 1 <= 64 Then'判断name是否大于64个字符
myemail.Add(my1)
End If
End If
End While
reader.Close()
Dim write As New StreamWriter("done.txt")
For......
阅读全文 →
2014-10-16
核心源码:
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......
阅读全文 →
2014-10-16
核心源码:
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......
阅读全文 →