اداة لتخمين باسورد الفيس بوك بواسطة اداة بالغة البايثون + قاموس

السلام عليكم ورحمة الله وبركاتة

كيفية عمل UDP IP Port Scaner 

الخطوات : 

1- عمل ->

1TextBox 

2- Numeric

List Box | Button

الكود : 

Private Sub ScanPort(ByVal port As Integer)

        Try

            Dim tmpClient As New TcpClient()

            Dim tmpEndPoint As New IPEndPoint(IPAddress.Parse(TextBox1.Text), port)

            tmpClient.Connect(tmpEndPoint)

            Threading.Thread.Sleep(50)

            If tmpClient.Connected = True Then

                ListBox1.Items.Add("Open Port: " & port)

            End If

        Catch ex As Exception

        End Try

كود Button :

Me.CheckForIllegalCrossThreadCalls = False

        For i As Integer = NumericUpDown1.Value To NumericUpDown2.Value

            Dim tmpThread As New System.Threading.Thread(AddressOf ScanPort)

            tmpThread.IsBackground = True

            tmpThread.Start(i)

        Next

    End Sub

لتحميل المشروع : اضغط هنا |  باسورد فك الضغط : silentcyber