Генератор пароля

Федеральное агентство по образованию
Государственное образовательное учреждение

Высшего профессионального образования

Уральскийгосударственный горный университет

Отчёт

По дисциплине «Методы и средства защиты»

на тему:

Генератор пароля.

Преподаватель: Хамзин Р.Н.
Студент:Насибуллин Д.А. Группа: АСУ-06-2

Екатеринбург 2009
Главное окно Генератора пароля.

В главном окнесодержится все функции для создания и просмотра, созданных паролей ранее пользователем (Рис 1).
Для создания пароля вначале нужно указать имя пользователя для когобудет генерироваться пароль (Рис 2). Далее пользователю для создания пароля нужно выбрать максимальную длину пароля (от 1 до 99) и какого типа он будет (Русский, Английский, Цифры) и генерируется пароль. Послеэтого он может записать последние 10 паролей созданные (Кнопка “Запись”) и просмотреть сохранённый им пароли (Кнопка “10 Паролей”). После выхода в папке с программой пользователь может найти файл сего именем, где содержатся его сохранённые пароли.

Листинг Программы:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button3: TButton;
Edit1: TEdit;
rus1: TCheckBox;
eng1: TCheckBox;
ch1: TCheckBox;Edit2: TEdit;
Button2: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject;var Key: Char);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure...