forked from HeidiSQL/HeidiSQL
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathchange_password.pas
More file actions
179 lines (153 loc) · 4.98 KB
/
Copy pathchange_password.pas
File metadata and controls
179 lines (153 loc) · 4.98 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
unit change_password;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, extra_controls, gnugettext,
Vcl.Menus, Clipbrd, Vcl.ComCtrls, System.Math;
type
TfrmPasswordChange = class(TFormWithSizeGrip)
lblHeading: TLabel;
lblPassword: TLabel;
lblRepeatPassword: TLabel;
editPassword: TButtonedEdit;
editRepeatPassword: TButtonedEdit;
btnCancel: TButton;
btnOK: TButton;
lblStatus: TLabel;
popupPassword: TPopupMenu;
N6characters1: TMenuItem;
N8characters1: TMenuItem;
N10characters1: TMenuItem;
N12characters1: TMenuItem;
N30characters1: TMenuItem;
menuDummy1: TMenuItem;
menuDummy2: TMenuItem;
menuDummy3: TMenuItem;
menuDummy4: TMenuItem;
menuDummy5: TMenuItem;
btnCopyToClipboard: TButton;
progressbarPasswordStrength: TProgressBar;
procedure editPasswordChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure editPasswordKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure menuPasswordClick(Sender: TObject);
procedure menuPasswordInsert(Sender: TObject);
procedure btnCopyToClipboardClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
procedure CheckPasswordStrength;
public
{ Public-Deklarationen }
end;
var
frmPasswordChange: TfrmPasswordChange;
implementation
uses main, apphelpers;
{$R *.dfm}
procedure TfrmPasswordChange.FormCreate(Sender: TObject);
begin
TranslateComponent(Self);
end;
procedure TfrmPasswordChange.FormShow(Sender: TObject);
begin
// Manually trigger change event on password box
editPassword.OnChange(Sender);
end;
procedure TfrmPasswordChange.menuPasswordClick(Sender: TObject);
var
Parent, Item: TMenuItem;
PasswordLen, i: Integer;
begin
// Create menu items with random passwords
Parent := Sender as TMenuItem;
PasswordLen := MakeInt(Parent.Caption);
for i:=0 to 19 do begin
if Parent.Count > i then
Item := Parent[i]
else begin
Item := TMenuItem.Create(Parent);
Parent.Add(Item);
end;
Item.OnClick := menuPasswordInsert;
Item.Caption := GeneratePassword(PasswordLen);
end;
end;
procedure TfrmPasswordChange.menuPasswordInsert(Sender: TObject);
var
Item: TMenuItem;
begin
// Insert password from menu item
Item := Sender as TMenuItem;
editPassword.Text := Item.Caption;
editRepeatPassword.Text := editPassword.Text;
end;
procedure TfrmPasswordChange.btnCopyToClipboardClick(Sender: TObject);
var
OldImageIndex: Integer;
begin
// Copy new password to clipboard
Clipboard.AsText := editPassword.Text;
OldImageIndex := btnCopyToClipboard.ImageIndex;
btnCopyToClipboard.ImageIndex := 55;
btnCopyToClipboard.Repaint;
Sleep(500);
btnCopyToClipboard.ImageIndex := OldImageIndex;
end;
procedure TfrmPasswordChange.editPasswordChange(Sender: TObject);
var
PasswordsMatch: Boolean;
begin
// User has entered something on one or both password fields
btnOK.Enabled := False;
btnCopyToClipboard.Enabled := False;
progressbarPasswordStrength.Visible := False;
if Sender = editPassword then
editRepeatPassword.Modified := False;
if editPassword.Text = '' then begin
editPassword.PasswordChar := #0;
lblStatus.Caption := _('Please change your password')
end else begin
editPassword.PasswordChar := '*';
PasswordsMatch := editPassword.Text = editRepeatPassword.Text;
if editRepeatPassword.Modified and (not PasswordsMatch) then
lblStatus.Caption := _('Error: Passwords do not match!')
else begin
lblStatus.Caption := _('Password strength:');
btnOK.Enabled := PasswordsMatch;
btnCopyToClipboard.Enabled := True;
progressbarPasswordStrength.Visible := True;
CheckPasswordStrength;
end;
end;
end;
procedure TfrmPasswordChange.editPasswordKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
editPassword.OnChange(Sender);
end;
procedure TfrmPasswordChange.CheckPasswordStrength;
var
i, Distance, LastOrd: Integer;
p: String;
begin
// Simple password-strength checker
// Calculates the distance between all character codes, and give it a bonus for longer passwords
p := editPassword.Text;
Distance := 0;
LastOrd := -1;
for i:=1 to Length(p) do begin
if LastOrd > -1 then
Inc(Distance, Abs(LastOrd - Ord(p[i])));
LastOrd := Ord(p[i]);
end;
Inc(Distance, Length(p)*10);
progressbarPasswordStrength.Position := Round(progressbarPasswordStrength.Max / 500 * Distance);
case progressbarPasswordStrength.Position of
0..20: progressbarPasswordStrength.State := pbsError;
21..50: progressbarPasswordStrength.State := pbsPaused;
51..100: progressbarPasswordStrength.State := pbsNormal;
end;
end;
end.