thumbprint reader for firefox

[evk86]

So i just got a new hp tx2500 with a thumbprint reader but it only works with internet explorer. Im a firefox kinda guy so i wrote a kind of inbetween password dialogue box to send my password to firefox on a thumbprint scan. Its pretty simple but it works :-)

expandcollapse popup

;passwordsender
#NoTrayIcon
#include<String.au3>

$thumb = ""
$master = ""

While 1
Reader()
if WinExists("[TITLE:Password Required; CLASS:MozillaDialogClass]") Then
    $input = inputbox("Master Password","Enter Password" & @CRLF & "  TYPE: RESET to reset passwords","","*")
    if $input = _StringEncrypt(0,$thumb,"fdjasiklfewlidk29f83nd",5) Then
        SendKeepActive("[TITLE:Password Required; CLASS:MozillaDialogClass]")
        send(_StringEncrypt(0,$master,"fdjasiklfewlidk29f83nd",5)&"{enter}")
        SendKeepActive("")
    EndIf
    if $input = "RESET" or $input = "reset" or $input = "Reset" Then
        IniDelete(@ScriptDir & "\data.ini","word")
        Reader()
    EndIf
EndIf
sleep(1000)
WEnd

Func Reader()
    $thumb = IniRead(@ScriptDir & "\data.ini","word","thumb","")
    if $thumb = "" Then
        CreateNew("thumb")
    EndIf
    $master = IniRead(@ScriptDir & "\data.ini","word","master","")
    if $master = "" Then
        CreateNew("master")
    EndIf 
EndFunc

Func CreateNew($param)
    $new = InputBox("Enter New " & $param & " password","Enter New " & $param & " password","","*")
    $ree = InputBox("CONFIRM PASSWORD","CONFIRM PASSWORD","","*")
    if $new = $ree and $new <> "" Then
        iniwrite(@ScriptDir & "\data.ini","word",$param,_StringEncrypt(1,$new,"fdjasiklfewlidk29f83nd",5))
    EndIf
EndFunc