In Ansicht auf den Treadh "Autoit vs. Keylogger" habe ich mal ein kleines Tool gebastelt um Keylogger wenigstens ein bisschen zu täuschen. Ich weis, _StringEncrypt ist nicht besonders sicher, aber vor normalen Leuten die an deinen PC gehen sind die Passwörter damit sicher.
Einfach auf "Neues Passwort anlegen" gehen, die Sektion eingeben wie z.B. "Autoit.de" und dann das Passwort. Dann das Passwort einstellen auf "Autoit.de" und dann einfach Passwort einsetzen und auf die Passwortleiste im Browser gehen.
Spoiler anzeigen
#include <GuiConstants.au3>
#include <String.au3>
Opt("GuiOnEventMode", 1)
GUICreate("Keylogger Defense", 200, 100)
$go = GUICtrlCreateButton("Passwort einsetzen", 10, 10, 180)
$pw = GUICtrlCreateButton("Passwort einstellen", 10, 40, 180)
$newpw = GUICtrlCreateButton("Neues Passwort anlegen", 10, 70, 180)
GUISetOnEvent($GUI_EVENT_CLOSE, "close")
GUICtrlSetOnEvent($pw, "pw")
GUICtrlSetOnEvent($newpw, "newpw")
GUICtrlSetOnEvent($go, "go")
GUISetState(@SW_SHOW)
$masterkey = "Warlord"
$gokey = ""
Func close()
Exit
EndFunc
Func go()
Sleep(2000)
Send($gokey)
EndFunc
Func pw()
If FileExists("./passwords.ini") Then
$rosections = InputBox("Passwort", "Bitte Section eingeben")
$rosection = _StringEncrypt(1, $rosections, $masterkey)
$gokeys = IniRead("passwords.ini", "passwords", $rosection, "")
$gokey = _StringEncrypt(0, $gokeys, $masterkey)
Else
MsgBox(0, "Fehler", "Keine Passwörter verfügbar")
EndIf
EndFunc
Func newpw()
$section = InputBox("Neues Passwort", "Bitte Section eingeben")
$key = InputBox("Neues Passwort", "Bitte Passwort eingeben")
$sectionend = _StringEncrypt(1, $section, $masterkey)
$keyend = _StringEncrypt(1, $key, $masterkey)
IniWrite("passwords.ini", "passwords", $sectionend, $keyend)
EndFunc
While 1
Sleep(1)
WEnd