PassLite - быстрая запись аккаунтов в файл

[Hexez]

AutoIt: 3.3.8.1
Версия: 1.0

Категория: Вспомогательные функции

Описание: программа для быстрой записи аккаунтов (логины, пароли...) в файл (.txt). Аккаунты сохраняются в @ScriptDir & "\passwords.txt".

Код/Пример:

Спойлер

#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <File.au3>
#include <Process.au3>

$form1 = GUICreate("PassLite v.1.0 by Hexez", 243, 310)
$menu1 = GUICtrlCreateMenu("Файл")
$menuitem1 = GUICtrlCreateMenuItem("Выход", $menu1)
$menu2 = GUICtrlCreateMenu("Помощь")
$menuitem2 = GUICtrlCreateMenuItem("О программе", $menu2)
GUICtrlCreateLabel("Название сайта:", 16, 16)
GUICtrlCreateLabel("Адрес сайта:", 35, 40)
GUICtrlCreateLabel("Описание сайта:", 16, 64)
GUICtrlCreateLabel("Логин:", 67, 88)
GUICtrlCreateLabel("E-mail:", 70, 112)
GUICtrlCreateLabel("Пароль:", 60, 136)
GUICtrlCreateLabel("Пароль (2):", 45, 160)
GUICtrlCreateLabel("Доп. инфо.:", 42, 184)
$input1 = GUICtrlCreateInput("", 105, 13, 121, 21)
$input2 = GUICtrlCreateInput("", 105, 37)
$input3 = GUICtrlCreateInput("", 105, 61)
$input4 = GUICtrlCreateInput("", 105, 85)
$input5 = GUICtrlCreateInput("", 105, 109)
$input6 = GUICtrlCreateInput("", 105, 133)
$input7 = GUICtrlCreateInput("", 105, 157)
$input8 = GUICtrlCreateInput("", 105, 181)
$btn1 = GUICtrlCreateButton("Добавить пароль", 32, 208, 178, 33)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$btn2 = GUICtrlCreateButton("Clear поля", 161, 248, 65, 25)
$btn3 = GUICtrlCreateButton("Open файл с паролями", 16, 248, 129, 25)
GUISetState(@SW_SHOW)

HotKeySet("{F1}", "Help")
$dir1 = @ScriptDir & "\passwords.txt"

While 1
   $msg1 = GUIGetMsg()
   Switch $msg1
	  Case $GUI_EVENT_CLOSE
		 Exit
	  Case $menuitem1
		 Exit
	  Case $menuitem2
		 MsgBox(0, "О программе PassLite", "PassLite" & @CRLF & "Версия: 1.0.0" & @CRLF & "by Hexez" & @CRLF & "http://hexez.p.ht", 0, $form1)
	  Case $btn1
		 $read1 = GUICtrlRead($input1)
		 $read2 = GUICtrlRead($input2)
		 $read3 = GUICtrlRead($input3)
		 $read4 = GUICtrlRead($input4)
		 $read5 = GUICtrlRead($input5)
		 $read6 = GUICtrlRead($input6)
		 $read7 = GUICtrlRead($input7)
		 $read8 = GUICtrlRead($input8)
		 If $read1 = "" And $read2 = "" And $read3 = "" And $read4 = "" And $read5 = "" And $read6 = "" And $read7 = "" And $read8 = "" Then
			MsgBox(16, "Ошибка - PassLite", "Заполните поля программы!", 0, $form1)
		 Else
			If Not FileExists($dir1) Then _FileCreate($dir1)
			FileSetAttrib($dir1, "-S")
			$file1 = FileOpen($dir1, 1)
			If Not $read1 = "" Then FileWrite($file1, "Название сайта:		" & $read1 & @CRLF)
			If Not $read2 = "" Then FileWrite($file1, "Адрес сайта:		" & $read2 & @CRLF)
			If Not $read3 = "" Then FileWrite($file1, "Описание сайта:		" & $read3 & @CRLF)
			If Not $read4 = "" Then FileWrite($file1, "Логин:			" & $read4 & @CRLF)
			If Not $read5 = "" Then FileWrite($file1, "E-mail:			" & $read5 & @CRLF)
			If Not $read6 = "" Then FileWrite($file1, "Пароль:			" & $read6 & @CRLF)
			If Not $read7 = "" Then FileWrite($file1, "Пароль (2):		" & $read7 & @CRLF)
			If Not $read8 = "" Then FileWrite($file1, "Доп. инфо.:		" & $read8)
			FileWrite($file1, @CRLF & "--------------------------------------------------" & @CRLF)
			FileClose($file1)
			GUICtrlSetState($btn3, $GUI_FOCUS)
			MsgBox(64, "Результат - PassLite", "Успешно!", 1, $form1)
		 EndIf
	  Case $btn2
		 GUICtrlSetData($input1, "")
		 GUICtrlSetData($input2, "")
		 GUICtrlSetData($input3, "")
		 GUICtrlSetData($input4, "")
		 GUICtrlSetData($input5, "")
		 GUICtrlSetData($input6, "")
		 GUICtrlSetData($input7, "")
		 GUICtrlSetData($input8, "")
		 GUICtrlSetState($input1, $GUI_FOCUS)
	  Case $btn3
		 If FileExists($dir1) Then
			_RunDos("start " & $dir1)
		 Else
			_FileCreate($dir1)
			_RunDos("start " & $dir1)
		 EndIf
   EndSwitch
WEnd

Func Help()
   MsgBox(0, "О программе PassLite", "PassLite" & @CRLF & "Версия: 1.0.0" & @CRLF & "by Hexez" & @CRLF & "http://hexez.p.ht", 0, $form1)
EndFunc

Файл: x64. PassLite v.1.0 by Hexez (x64).7z (307 КБ), x86. PassLite v.1.0 by Hexez.7z (280 КБ)

Снимок:






История версий:

Спойлер

1.0 - Первая версия.

Источник: autoit-script.ru
Автор(ы): Hexez

P.S.: Позже сменю ссылки на прямые и стабильные.


Добавлено:

Сообщение автоматически объединено: 31 Май 2013

Строго не судите, моя первая работа.

 

[joiner]

Hexez [?]

Аккаунты сохраняются в @ScriptDir & "\passwords.txt".

тогда лучше в шифрованном виде..


Добавлено:

Сообщение автоматически объединено: 31 Май 2013

при попытке открыть файл с паролями появляется ошибка. смотри скрин. файл с паролями был создан


Добавлено:

Сообщение автоматически объединено: 31 Май 2013

ошибка оказалась в этом

If FileExists($dir1) Then
            _RunDos("start " & $dir1)

чтобы запустить блокнот не нужно привлекать командную строку. достаточно так

ShellExecute($dir1)

 

[AZJIO]

Hexez
Осталось шифровать файл (_Crypt_EncryptData, _Crypt_EncryptFile, _StringEncrypt), сделать генератор пароля (_DecToNum), сделать мастер пароль для входа в аккаунт http://autoit-script.ru/index.php/topic,4802.0.html
Продумать формат базы с поддержкой дерева GUICtrlCreateTreeView. Вроде пока всё.

 

[kolosov]

У Вас получилась отличноя программа. Довно хотел чтото подобное. Постояно забываю пароли. :IL_AutoIt_1:

 

[Mur]

OffTopic:
Хоть как-то приведу всё в порядок, а то в моём *.txt просто список паролей, и попробуй угадать что куда =D

 

[CreatoR]

От подобной программы я ожидаю увидеть как минимум функционал менеджмента аккаунтов, чтобы можно было переключаться между ними и редактировать записи.

 

[eri]

Ребята обновите ссылку на скачивание