Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate
Photo

klik2assist, website login tool/password manager


  • Please log in to reply
11 replies to this topic
speedster
  • Members
  • 11 posts
  • Last active: Feb 02 2007 11:38 AM
  • Joined: 05 Sep 2005
Hi there,
I created this tool with autohotkey after I was fed up with remembering all my logins for the websites I'm used login.

I'm reluctant to release the code as I spent quit some time creating this, altough it's no rocket-science :wink:

Anyways, hope you'll find it usefull and will give me feedback.

English version:
http://www.klik2matc...d&file=index-en

Dutch version:
http://www.klik2matc...load&file=index

regards, Bart
(Almost forgot: I used Rajat's encrypting code, thanks for that Rajat!)

bahri
  • Members
  • 120 posts
  • Last active: Feb 12 2016 07:08 PM
  • Joined: 24 Jun 2004
Hi!
I downloaded your app but I get an error.
Looks like you have used the same variable in more than one control.

PS
I appreciate your time spent on the project and your protecting the code, but have a look at the scripts showcase, some great scripts there and all sharing the code. This (I thought) is what the forum is all about.

bahri

kbross
  • Members
  • 3 posts
  • Last active: Jun 01 2006 04:39 PM
  • Joined: 19 Sep 2005
What if some enterprising programmer with only 2 posts in this forum wrote a script that people are supposed to feed their passwords into, and the purpose of that script is to ftp all of the passwords to the programmer in addition to performing its advertised function? Not that you are doing that, but it would be to risky for me to try without knowing the programmer or seeing the code.

Regards,

Kevin

Hi there,
I created this tool with autohotkey after I was fed up with remembering all my logins for the websites I'm used login.

I'm reluctant to release the code as I spent quit some time creating this, altough it's no rocket-science :wink:

Anyways, hope you'll find it usefull and will give me feedback.

http://www.klik2matc...d&file=index-en

regards, Bart
(Almost forgot: I used Rajat's encrypting code, thanks for that Rajat!)



aarondellis
  • Members
  • 57 posts
  • Last active: Feb 11 2013 02:18 PM
  • Joined: 15 Aug 2005
@kbross
You are on the money with that point!

I tried the program and it did not work anyway! Went and changed my password just in case!

garath
  • Members
  • 398 posts
  • Last active: Feb 05 2011 10:31 PM
  • Joined: 24 Mar 2005
I would suggest to not use this software, never use software, you don`t know the source, especially for Passwords. :(

speedster
  • Members
  • 11 posts
  • Last active: Feb 02 2007 11:38 AM
  • Joined: 05 Sep 2005
Well, that is one of the reasons I'm reluctant to release the code:

I have a datingsite on which I'm presenting this software, if someone releases the same in a modified version it's very bad advertisement.

Still if you have a decent firewall there should be no reason to worry that your passwords travel should there be?

Also, the passwords are encrypted with your pc as variable. Still everything can be hacked in the end.

But still I might release it anyway as there have been a few comments now that it's not working :-(

speedster
  • Members
  • 11 posts
  • Last active: Feb 02 2007 11:38 AM
  • Joined: 05 Sep 2005
Ok, here it is, be aware the code is a bit of a mess.
I hope that the ones for which it didn't work have some clues for me so I can improve the script.

Also if someone has a ideas on how to increase the number of entries on the gui (after about 19 entries the gui gets to big) I welcome that very much.

All other suggestions for improvement are welcome ofcourse.

#SingleInstance force
#Persistent
version=1.4
TrayTip, klik2assist reload for %username%, Use WIN Z to log in on a website`n Use WIN A to add a new website,4,1
SetTimer, RemoveTrayTip, 2000
SetTimer, destroi, 300000
SetTitleMatchMode,2
RemoveTrayTip:
SetTimer, RemoveTrayTip, Off
TrayTip
logtxt=login/refresh

Menu, Tray, Click, 1
Menu, Tray, Add, klik2assist, add_db 
Menu, Tray, Default, klik2assist 
return


#a::
add_db:


;/////////////////gui verwijderen indien actief
ifwinexist, retrieve
{
return
}
gui, destroy
sleep, 300
;///////////////////uitlezen register om textfile op te sporen
RegRead, scriptA, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Run,  pass
if scriptA <>
{
SplitPath, scriptA, PathName, PathDir
path = %PathDir%
}
else
{
path = %A_WorkingDir%
}



file = %username%-klik2assist.txt


;///////////////////////////////////gosub firefox 

	Title=Explorer
	IfWinExist, %Title% 
		{
		
	Winwait, Explorer
	WinActivate, Explorer
      http = http
      ControlGetText, url, Edit1 , A
    IfNotInString, url, %http%
      ControlGetText, url, Edit2 , A
         IfNotInString, url, %http%
       ControlGetText, url, Edit3 , A
	
      WinGetTitle, urllong, %Title%
      StringGetPos, pos, urllong,  - Microsoft Internet Explorer  ,
      StringLen,Length1,urllong
      aftrek:=Length1-pos
;msgbox, %Length1% en afterk = %aftrek%
 		StringTrimRight, site1, urllong, %aftrek%
      
        StringSplit, site, site1, [|(,
        StringLen,Length,site1
       
        if Length > 30
        {
	   kort:=Length-30   
	   ;msgbox, %kort%  
 		StringTrimRight, site1, site1, %kort%
		}
      sitenaam = %site1%
      
      titel = Microsoft Explorer
      kleur = CCFFFF
      urlnaam = url website
      af = IE
 		} 
else IfWinExist,  Mozilla Firefox 
	{
WinWait, Firefox    
WinActivate, Firefox
gosub, firefox   
  }



t=1

Yw = 30

Gui, +resize
Gui, Color, %kleur%

 pathfile = %path%\%file%

 ;/////////////////////////////////////uitlezen password file en gui opbouwen
Loop, read, %pathfile%
{
StringReplace, Newstring, A_loopreadline, %a_tab%, ``, All 
stringsplit, regel, Newstring, ``


if A_loopreadline <>
 {
	if t=1
	{

	Gui, Add, Text, x66 y10 w70 cBlue , Website
	Gui, Add, Text, x316 y10 w70 cBlue , Username
	Gui, Add, Text, x516 y10 w70 cBlue , Password

 	}


	  Yw := t * 30

Nummer := %a_index% + 1





Gui, Add, Button, x10 y%Yw% h20 w30 gMyButtons v%A_Index%, Del
   VarB%A_Index% = 0
Gui, Add, Button,x66 y%Yw% cGreen gKlik v%Linep% , %regel1%
Gui, Add, Button,x256 y%Yw% cGreen gUrl vT%A_index% , url

Gui, Add, text,x316 y%Yw% , %regel3%

Gui, Add, text,x516 y%Yw% , ******



t += 1
  }

}



Y0 := Yw + 30
Y1 := Yw + 50
Y2 := Yw + 80
Y3 := Yw + 110
Y4 := Yw + 140
Y5 := Yw + 170
y6 := Yw + 200
Gui, font, bold,,
Gui, Add, Text, x16  y%y0% w400 h20, Add Website with account-login details
Gui, font, norm,,
Gui, Add, Text, x16  y%y1% w100 h20, name website
Gui, Add, Text, x16  y%y2% w300 h20, %urlnaam%

Gui, Add, Text, x16  y%y3% w100 h20, username
Gui, Add, Text, x16  y%y4% w80 h20, password

 Gui, Add, Text, x116  y%y1% w200 h20, %sitenaam%
;Gui, Add, Text, x280  y%y1% w300 h20, Edit for own convenience

Gui, Add, Edit, x116  y%y2% w450 h20  vPar1, %url%
Gui, Add, Edit, x116  y%y3% w150 h20   vPar2,
Gui, Add, Edit, x116  y%y4% w100 h20  vPar3 Password,



Gui, Add, Button, x16 y%y5% w240 h40, Add 
Gui, Show, x16 y20  w620,  Klik2assist v%version% Add and retrieve login details for %titel%


App = %A_WorkingDir%\pass.exe
SplitPath, App, PathName, PathDir
RegRead, scriptA, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Run,  pass

Gui, Add, Text, x300 y%y4%  w250 cBlack, Load Klik2assist automaticaly with starting PC?
Gui, Font, underline
Yb:=y4-10
;If scriptA <>
;{
Gui, Add, Button, x570 y%yb%   , No

Gui, Add, Button, x530 y%yb%    , Yes
;}
;Gui, Add, Text, x400 y%y5%  w357 cBlue gLaunchklik,  %reclame2% 
Gui, Font, norm
Gui, Add, Text, x300 y%y5% cPurple, Check our sponsor:  
Gui, Font, underline
Gui, Add, Text, x445 y%y5%   cBlue gLaunchklik,www.hydrogencell.org
Gui, Add, Text, x300 y%y6%  w357 cRed gBelangrijk, Important !
;Gui, Add, Text, x460 y%y6%   cBlue gDownload, klik2assist versie controle



return




Belangrijk:
Gui, Color, FBEF8F
Gui, 2:Add, Text,, This script creates a text-file in the same map as where klik2assist.exe rests `n In this file your login details are saved`n So after restarting windows you still have your login details nearby. `n The passwords are saved encrypted and can only be decrypted on your pc,`n but, in the end everything can be hacked. `nSo make sure you always use a good firewall and do not use this program for bussiness purposes.`n`nThe creators of this script are not liable for any damages that are the result of using this application.
Gui, 2:show, x16 y%y6%  w520, Important remarks
return

Launchklik: 
Run  www.hydrogencell.org 
return

Opstart:
Gui, 3:Color, FBEFF0
Gui, 3:Add, Text,,Klik2assist.exe is now saved to your register. This means that klik2assist will be active
Gui, 3:Add, Text,,everytime you startup windows and provides you direct access to your login-details.
Gui, 3:Add, Text,,When you change your mind and want to prevent that klik2assist is actiated automatically just click 
Gui, 3:Add, Text,,the link: "Do not start script automatically with starting windows".
Gui, 3:Add, Text,,Curious where the program is saved to your register?
Gui, 3:Add, Text,,Go to start-->(run) type "regedit"
Gui, 3:Add, Text,,Navigate to: HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
Gui, 3:Add, Text,,At "pass" you can find Klik2assist.exe.
Gui, 3:Add, Button, x400 w140 h20, Close
Gui, 3:show, x16 y300  w560, Load klik2assist automatically
return

ButtonYes:
App = %A_WorkingDir%\klik2assist.exe
IfExist, %App%
{
    SplitPath, App, PathName, PathDir


    RegWrite, REG_SZ, HKLM, Software\Microsoft\Windows\CurrentVersion\Run, pass, %App%
 gosub,Opstart
}
return

ButtonNo:

RegDelete, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Run, pass
gosub, verwijder
return


Klik:
num = %A_GuiControl%
;msgbox, %num%
Loop, read, %pathfile%
{
StringReplace, Newstring, A_loopreadline, %a_tab%, ``, All 
stringsplit, regel, Newstring, ``
if regel1 = %num%
  {
dbvar2 = %regel2%
dbvar3 = %regel3%
dbvar4 = %regel4%
if dbvar2 = http://www.klik2match.nl/index.php
	{
		dbvar2 = http://www.klik2match.nl/index_a.php
	}
  }
}

run %dbvar2%
return

Url:
lineurl = %A_GuiControl%
line_url = %Lineurl%

Loop, read, %pathfile%
{
	nr = T%a_index%
	if nr = %line_url%
	{
StringReplace, Newstring, A_loopreadline, %a_tab%, ``, All 
stringsplit, regel, Newstring, ``
urltot = %regel2%
}

}
msgbox, %urltot%
return

MyButtons:
line = %A_GuiControl%
Gosub, ShowValues
return

ShowValues:
SetBatchLines, -1
line_to_delete = %Line%
Loop, read, %pathfile% , passtmp.txt
{

     if a_index <> %line_to_delete%
         FileAppend, %A_LoopReadLine%`n
}
FileMove, passtmp.txt, %pathfile%, 1

gui, destroy
goto, add_db
return


msgbox, Script will start automatically next time
goto, reload
return



verwijder:
Gui, 4:Color, FBEFF0
Gui, 4:Add, Text,,Klik2assist.exe will not load automatically next time when starting windows
Gui, 4:Add, Text,,You will have to load klik2assist manually from now on.

Gui, 4:Add, Button, x260 w140 h20, Close
Gui, 4:show, x16 y400  w400, Do not load klik2assist automatically
return

ButtonAdd:
Gui, submit
goto check_db
Gui, destroy

4ButtonSluiten:
3ButtonSluiten:
3GuiClose:
3GuiEscape:
goto, reload
return

GuiClose:
GuiEscape:
Gui, destroy
goto, reload

return

destroi:
;IfWinActive,Ahk_Class AutoHotkeyGUI
;{
;gui, destroy
;goto, add_db
;}
;else
reload
return



check_db:


if Par1=
{
  msgbox, you did not enter a website name
  goto add_db
}

notindb:


PW = %A_ComputerName%
Data = %Par3%
RegRead, scriptA, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Run,  pass
if scriptA <>
{
SplitPath, scriptA, PathName, PathDir
path = %PathDir%
}
else
{
path = %A_WorkingDir%
}
 pathfile = %path%\%file%

Loop, read, %pathfile%
{
	stringsplit, dbvar, A_loopreadline, %a_tab%%a_tab%
	if sitenaam = %dbvar1%
	{
	
	if Par2 = %dbvar3%
	{
	msgbox, This username is already present for %dbvar2%
	goto, add_db
	}
	}
}



Gosub, RC4
FileAppend,`n%sitenaam%%a_tab%%Par1%%a_tab%%Par2%%a_tab%%Result%%a_tab%,%pathfile%
sleep, 200




goto, add_db

return



#z::

searchdb:

file = %username%-klik2assist.txt
Title=Mozilla Firefox 

url =
;dbvar3 =
SetTitleMatchMode,2
;////////////////////////////////////indien vanuit gui geklikt
if dbvar2 <>
goto invullen
     
;//////////////////////////////////////////////////////////////explorer

IfWinActive, ahk_class IEFrame
explor = 1
IfWinActive, ahk_class CabinetWClass
explor = 1
http = http
if explor = 1
gosub, explorer


else IfWinActive,  %Title%
{
gosub, fire 
}
 
       
       

RegRead, scriptA, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Run,  pass
if scriptA <>
{
SplitPath, scriptA, PathName, PathDir
path = %PathDir%
}
else
{
path = %A_WorkingDir%
}
 pathfile = %path%\%file%

findurl = 0
findsite = 0
Loop, read, %pathfile%
{
	StringReplace, Newstring, A_loopreadline, %a_tab%, ``, All 
	stringsplit, dbvar, Newstring, ``
	
	dbvar1 = %dbvar1%
	sitetitel = %sitetitel%
 	if A_LoopReadLine  <>
 	{
	ifequal,dbvar2,%url% 
	{
	findurl += 1
	site%findurl%:= dbvar2
	user%findurl%:= dbvar3
	pass%findurl%:= dbvar4
	}
	;msgbox, %dbvar1%
	;msgbox,"%sitenaam%"uit bestand
	ifequal,dbvar1,%sitenaam% 
	{
		
	findsite += 1
	site%findsite%:= dbvar2
	user%findsite%:= dbvar3
	pass%findsite%:= dbvar4
	}
  	}
}
if findsite = 0
{
if findurl = 0
 {
gosub, #A
return
}
}

if findurl = 1
{
dbvar3 = %user1%
dbvar4 = %pass1%
goto, invullen
}

else if findsite = 1
{	
dbvar3 = %user1%
dbvar4 = %pass1%
goto, invullen
}



else
{
if findurl > 1 
loop = %findurl%

else if findsite > 1
loop = %findsite%

	
	
meerdere:
gui, destroy
Gui, 5:Color, FBEFF0
w=0
loop,%loop%
{
	w += 1
	Yg := w * 30
	sitek:=site%w%
	userk:=user%w%
	passw:=pass%w%
if w = 1
{		
StringLen,Lengtelaatst,site1
;msgbox, %Lengtelaatst%
}
StringLen,Lengte,sitek
breed := (Lengtelaatst * 4) + 300
;msgbox, %breed%
if Lengte > %lengtelaatst%
{
	breed := (Lengte * 4) + 300
	lengtelaatst = %Lengte%
} 


Gui, 5:Add, Button,	x10 y%Yg% h20 gKiest v%A_Index%, login
Gui, 5:Add, Text, x110 y%Yg% , %userk% 
Gui, 5:Add, Text, x200 y%Yg% , %sitek% 

}
Gui, 5:show,x100 y200 w%breed%, Which login do you mean?

return


}



5GuiClose:
5GuiEscape:
goto, reload
return

Kiest:
Gui, submit
keuze = %A_GuiControl%

	StringTrimLeft, dbvar3, user%keuze%, 0
	StringTrimLeft, dbvar4, pass%keuze%, 0

;msgbox, %naam%
Gui, destroy
goto invullen
return



;msgbox, %find%	
goto invullen


if dbvar3 =
{
  goto, add_db
}

invullen:
ATrim = %A_AutoTrim%
	AutoTrim, Off
	BLines = %A_BatchLines%
	SetBatchlines, -1

	StringLen, PWLen, PW
PW = %A_ComputerName%

Data = %dbvar4%
Gosub, RC4

send, %dbvar3%
sleep, 200
send, {tab}
send, {home}
send, {shiftdown}
sleep, 200
send,{end}
send,{shiftup}
sleep, 200
send, {delete}
sleep, 200
send, %Result%

dbvar1 =
dbvar2 =
dbvar3 =
result =

return




firefox:
 url =
   Loop, 2 
	{ 
	Send, {F6} 
	ControlGetFocus, CurrentFocus, A 
	If CurrentFocus = MozillaWindowClass1 
	send, {ctrldown}c{ctrlup}
	url = %clipboard%
	} 
fire:
	Title=Mozilla Firefox 
	WinGetTitle, urllong, %Title%
StringGetPos, pos, urllong,  - Mozilla Firefox  ,
      StringLen,Length1,urllong
      aftrek:=Length1-pos
;msgbox, %Length1% en afterk = %aftrek%
 		StringTrimRight, site1, urllong, %aftrek%
 		StringLen,Length,site1
       
        if Length > 30
        {
	   kort:=Length-30   
	   
 		StringTrimRight, site1, site1, %kort%
		}
      sitenaam = %site1%
     ; sitenaam = %site%
	 titel = Mozilla Firefox
	 kleur = FFCC99
	 urlnaam = titel website
	 af = FF
 return

explorer:

      
       Title=Explorer
	IfWinExist, %Title% 
		{
		
	Winwait, Explorer
	WinActivate, Explorer
      http = http
      ControlGetText, url, Edit1 , A
    IfNotInString, url, %http%
      ControlGetText, url, Edit2 , A
         IfNotInString, url, %http%
       ControlGetText, url, Edit3 , A
	
      WinGetTitle, urllong, %Title%
      StringGetPos, pos, urllong,  - Microsoft Internet Explorer  ,
      StringLen,Length1,urllong
      aftrek:=Length1-pos
;msgbox, %Length1% en afterk = %aftrek%
 		StringTrimRight, site1, urllong, %aftrek%
      
        StringSplit, site, site1, [|(,
        StringLen,Length,site1
       
        if Length > 30
        {
	   kort:=Length-30   
	   ;msgbox, %kort%  
 		StringTrimRight, site1, site1, %kort%
		}
      sitenaam = %site1%
      
      titel = Microsoft Explorer
      kleur = CCFFFF
      urlnaam = url website
      af = IE
  }
 return		 
 
 
^!r::
reload:
reload
RETURN


garath
  • Members
  • 398 posts
  • Last active: Feb 05 2011 10:31 PM
  • Joined: 24 Mar 2005
Sorry, too much goto`s in your skript, no chance, to find errors for me. But nice idea.
Hoped, that you might have used Javaskript, to enter the Login-Datas. I use a Javaversion, because it has no problem with keyboard-focus and User-Input.

  • Guests
  • Last active:
  • Joined: --
Sorry, my knowledge of javascript is limited.
Is it possible to combine javascript and autohotkey in one script?

garath
  • Members
  • 398 posts
  • Last active: Feb 05 2011 10:31 PM
  • Joined: 24 Mar 2005
You could post javascript to the URL-Adress-field.

E.g.: Skript to show all datafields in one Form
javascript:function ROIoiW() { var i=0,j,A='anonymous',D,E,F=document.forms; while (i<F.length) { E=F[i].elements; for (j=0;j<E.length;j++) { D=E[j]; alert(i+'/'+j+'/'+D.type+'-'+E.name+'-'+D.name+'-'+D.value) } i++ } } ROIoiW(); void(null)

Skript to add a value(33) to a field:
javascript:void(document.forms[1].elements[2].value="33")

Get focus on a field:
javascript:document.forms(1).elements[2].focus()


speedster
  • Members
  • 11 posts
  • Last active: Feb 02 2007 11:38 AM
  • Joined: 05 Sep 2005
Hello, I have a new release of klik2assist v1.6:

new features:
-55 entries of urls with logins
-language selection via the gui (dutch and english available, seeking volunteers for other languages)
-choose your own hotkey combination for activation

English download page

Dutch download page



For those that would like to volunteer for translation, here is the language file in which the English
needs to be substituted into the other language.
On P41 you can put your own name or website so you can get famous ;-)

Please send me a pm if you'd like to translate so there will be no double efforts on a certain language.
[lang]
P1= klik2assist reload voor
P2= Use
P3= to log in on a website,
P4= to add a new website
P5= hotkeys
P6= Shortkey to add a website
P7= Shortkey to auto-fill your login information
P8= Website
P9= Username
P10= Password
P11= Add Website with account-login details
P12= name website
P13= Add login details
P14= Add and retrieve login details for
;keep the text of P15 below 43 characters
P15= Load Klik2assist automaticaly at PC startup?
P16= Yes
P17= No
P18= Check our sponsor:  
P19= empty
P20= Important !
P21= klik2assist version check
P22= Next time you can use
P23= to activate klik2assist! 
P24= to auto-fill your login details!
P25= This script creates a text-file in the same folder as where klik2assist.exe rests. `nYour login details are saved in this file`nSo after restarting your pc you will still have your login details nearby. `nThe passwords are encrypted and saved in a file which can only be decrypted on same pc they were created,`nbut, in the end everything can be hacked. `nSo make sure you always use a good firewall and do not use this program for bussiness purposes.`n`nThe creators of this script are not liable for any damages that are the result of using this application.
P26= Important remarks
P27= Klik2assist.exe is now saved to your register. `nThis means that klik2assist will be active `neverytime you startup windows and provides you direct access to your login-details.`nWhen you change your mind and want to prevent that klik2assist is actiated automatically just click `n the link: [Do not start script automatically with starting windows]`n Curious where the program is saved to your register?`n Go to start-->(run) type [regedit]`n Navigate to: HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run`n At [pass] you can find Klik2assist.exe
P28= Close
P29= Load klik2assist automatically
P30= Klik2assist is already started automatically!
P31= Klik2assist is already cleared from your register!
P32= Script will start automatically next time
P33= Klik2assist.exe will not load automatically next time when starting windows
P34= You will have to load klik2assist manually from now on
P35= Do not load klik2assist automatically
P36= This website has no name
P37= This username is already present for
P38= Which login do you mean?
P39= By default holding down your right mouse button will also always work
P40= By default double clicking your right mousebutton will also always work
P41= is translated by Bart Pronk

For those interested in the code, send me a pm too, I will mail it to you!

  • Guests
  • Last active:
  • Joined: --
I love these little AHK scripts, but sometimes it's just sensible to use a dedicated program. Anyway, just so you know, there's a little open source program called "KeePass Password Safe" that does all this and more. It's very compatible and portable as everything is contained in its directory (nothing in the Registry) so you can put it on a USB stick or whatever.

http://keepass.sourceforge.net