📄 frmmail.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form frmmail
BackColor = &H00000000&
Caption = "Anonymous Mail Spoofing Attack"
ClientHeight = 8490
ClientLeft = 60
ClientTop = 450
ClientWidth = 11880
ClipControls = 0 'False
ControlBox = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 178
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 8490
ScaleWidth = 11880
WindowState = 2 'Maximized
Begin VB.CommandButton cmdadd1
BackColor = &H00FFFFFF&
Caption = "Add Server"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 10440
Style = 1 'Graphical
TabIndex = 16
Top = 1200
Width = 1215
End
Begin VB.TextBox txtadd
Height = 285
Left = 6960
TabIndex = 15
Top = 1200
Width = 3375
End
Begin MSWinsockLib.Winsock Socket
Left = -120
Top = 5280
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.TextBox txtText
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 178
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 5295
Left = 120
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 5
Top = 2160
Width = 6015
End
Begin VB.TextBox txtLog
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 178
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 5775
Left = 6240
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 13
Top = 2160
Width = 5415
End
Begin VB.TextBox txtStatus
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 178
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 120
TabIndex = 12
Top = 7680
Width = 6015
End
Begin VB.CommandButton cmdSend
BackColor = &H00FFFFFF&
Caption = "&Send Mail"
BeginProperty Font
Name = "Arial"
Size = 12.75
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5280
Style = 1 'Graphical
TabIndex = 11
Top = 1200
Width = 1455
End
Begin VB.ComboBox cmbServer
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 178
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 6960
TabIndex = 6
Text = "mta208.mail.scd.yahoo.com"
Top = 240
Width = 4575
End
Begin VB.ComboBox txtSubject
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1560
Style = 1 'Simple Combo
TabIndex = 4
Top = 1680
Width = 3375
End
Begin VB.ComboBox txtTo
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1560
Style = 1 'Simple Combo
TabIndex = 3
Top = 1200
Width = 3375
End
Begin VB.ComboBox txtFromAddress
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1560
Style = 1 'Simple Combo
TabIndex = 2
Top = 720
Width = 3375
End
Begin VB.ComboBox txtFromName
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1560
Style = 1 'Simple Combo
TabIndex = 1
Top = 240
Width = 3375
End
Begin VB.Label lblmain
BackColor = &H80000009&
Caption = "Goto Main --->"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 178
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 10560
TabIndex = 17
Top = 720
Width = 1215
End
Begin VB.Label Label8
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "Received Data:"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 6240
TabIndex = 14
Top = 1800
Width = 1440
End
Begin VB.Label Label5
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "Mail Server:"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 5280
TabIndex = 10
Top = 240
Width = 1350
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "Subject:"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 120
TabIndex = 9
Top = 1680
Width = 780
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "To:"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 120
TabIndex = 8
Top = 1200
Width = 300
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "From Address:"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 120
TabIndex = 7
Top = 720
Width = 1365
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "From Name:"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 120
TabIndex = 0
Top = 240
Width = 1170
End
End
Attribute VB_Name = "frmmail"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdadd1_Click()
If txtadd.Text <> "" And Len(txtadd.Text) > 3 Then cmbServer.AddItem txtadd.Text
End Sub
Private Sub cmdSend_Click()
txtLog.Text = Empty
Socket.Close
Socket.RemoteHost = cmbServer.Text
Socket.RemotePort = 25
Status "Connecting..."
Socket.Connect
End Sub
Public Sub Status(Txt As String)
txtStatus.Text = Txt
End Sub
Private Sub Ssocket_Error(ByVal Number As Integer, Desvbcrlfiption As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Status "Error!"
End Sub
Private Sub Form_Activate()
If Me.WindowState <> 2 Then Me.WindowState = 2
End Sub
Private Sub lblmain_Click()
Form3.Show
Me.Hide
End Sub
Private Sub Socket_Connect()
Dim Txt As String
Status "Connected"
Txt = ""
Txt = Txt & "HELO aaa" & vbCrLf
Txt = Txt & "MAIL FROM: <" & txtFromAddress.Text & ">" & vbCrLf
Txt = Txt & "RCPT TO: <" & txtTo.Text & ">" & vbCrLf
Txt = Txt & "DATA" & vbCrLf
Txt = Txt & "From: " & txtFromName.Text & "<" & txtFromAddress.Text & ">" & vbCrLf
Txt = Txt & "Subject: " & txtSubject.Text & vbCrLf
Txt = Txt & txtText.Text & vbCrLf
Txt = Txt & vbCrLf & vbCrLf & "." & vbCrLf
Txt = Txt & vbCrLf & "quit"
Socket.SendData Txt
End Sub
Private Sub Socket_DataArrival(ByVal bytesTotal As Long)
Dim RText As String
Socket.GetData RText, vbString
txtLog.Text = txtLog.Text & RText
End Sub
Private Sub SOCKET_ERROR(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)
Status Description
End Sub
Private Sub Socket_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
Status "Sending mail..."
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -