Dear all reader,

Dah lama juga rasanya gw nggak update isi dari blog gw yang katrok ini, Setelah disibukan dengan beberapa kegiatan di dunia nyata, malem ini gw coba buat share sedikit tentang programming. Untuk kali ini gw akan coba membahas tentang pembuatan sebuah fake mailer dengan menggunakan visual basic. Yah langsung aja berhubung udah malem juga and besok gw juga musti masuk kerja. Fake mailer adalah sebuah program komputer yang berfungsi untuk mengirim fake email. Dalam pembuatan program ini gw menggunakan sebuah dll yaitu YaDoYMailSender.dll yang code nya gw dapet dari internet and udah gw modip dikit disesuaikan dengan kebutuhan.

Langsung aja, buat sebuah project baru tambahkan sebuah form dan add reference ke YaDoYMailSender.dll, setelah itu susun GUI nya seperti gambar berikut, atau sesuka hati kalian masing-masing

Lalu kopi paste kan code berikut

Dim WithEvents oMailer As YaDoYMailSender.clsSendMail

Private Sub Command1_Click()
On Error GoTo errHDL

If ValidateMe = True Then
tbStatus.Text = “”
With oMailer
.SMTPHostValidation = VALIDATE_HOST_NONE
.EmailAddressValidation = VALIDATE_SYNTAX
.SMTPHost = “fill with ur smtp host” ‘SMTPHOST
.From = tbMailer(0)
.FromDisplayName = tbMailer(1)
.Recipient = tbMailer(2)
.RecipientDisplayName = tbMailer(3)
.ReplyToAddress = tbMailer(1)
.Subject = tbMailer(4)
.Message = tbMailer(5)
.Priority = HIGH_PRIORITY
.UseAuthentication = True
.Username = “fill with your smtp username” ‘Username SMTP
.Password = “fill with your smtp password” ‘Password SMTP
.MaxRecipients = 100
.ConnectTimeout = 20
.ConnectRetry = 5
.MessageTimeout = 60
.Send
sSMTPServer = .SMTPHost
End With
End If

Exit Sub
errHDL:
MsgBox Err.Description
End Sub

Private Sub Command2_Click()
Dim i As Integer

For i = 0 To 5
tbMailer(i).Text = “”
Next

tbStatus.Text = “”

End Sub

Private Sub Form_Load()
On Error GoTo errHDL
Set oMailer = New clsSendMail

Exit Sub
errHDL:
MsgBox Err.Description
End Sub

Private Function ValidateMe() As Boolean
On Error GoTo errHDL
Dim i As Integer

i = 0

For i = 1 To 5
If tbMailer(i).Text = “” Then
MsgBox “Invalid Value”
tbMailer(i).SetFocus
ValidateMe = False
End If

If InStr(Trim(tbMailer(0).Text), “@”) = 0 Then
MsgBox “Invalid Value”
tbMailer(0).SetFocus
ValidateMe = False
End If
If InStr(Trim(tbMailer(2).Text), “@”) = 0 Then
MsgBox “Invalid Value”
tbMailer(2).SetFocus
ValidateMe = False
End If
Next
ValidateMe = True
Exit Function
errHDL:
MsgBox Err.Description
ValidateMe = False
End Function

Private Sub oMailer_SendFailed(Explanation As String)
Dim sExplanation As String
sExplanation = tbStatus.Text & vbCrLf & sExplanation
tbStatus.Text = sMessage
End Sub

Private Sub oMailer_Status(Status As String)
Dim sMessage As String
sMessage = tbStatus.Text & vbCrLf & Status
tbStatus.Text = sMessage
End Sub

Setelah itu coba jalankan dengan menekan tombol F5 pada keyboard, isi sender dengan alamat fake email pengirim, sender display name dengan fake name pengirim, recipient dengan alamat email target, Recipient display name dengan nama target, subject dengan subject yang akan dikirim, dan message dengan isi pesan yang akan dikirim ke target, kemudian klik tombol send. Lihat pada textbox status pada bagian bawah untuk mengetahui status pengiriman email tersebut. Apabila pengiriman berhasil maka akan terdapat message sebagai berikut

Connecting to SMTP Server (mail.xxxxxxx.com)…
Initializing Communications…
Sending Login Authentication…
Host Login OK!
Sending Sender Information…
Sending Recipient Information…
Sending Message…
Transmission Complete…
Closing Connection…

Dll beserta source code dapat di download pada