M
masel
Помогите пожалуйста!
Сделал генератор паролей, теперь надо сделать так. чтобы он генерировал пароль в зависимости от того какое имя я введу в поле Edit2.Text
Не догоняю как это можно сделать =(
Помогите кто может, плиз. Горю перед сессией =(
Вот код который у меня есть:
________________________________________________________________________________
_______
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
function RandomPwd(PWLen: integer): string;
// таблица символов, используемых в пароле
const StrTable: string =
'!#$%&/()=?@<>|{[]}\*~+#;:.-_' +
'ABCDEFGHIJKLMabcdefghijklm' +
'0123456789' +
'ДЦЬдцьЯ' +
'NOPQRSTUVWXYZnopqrstuvwxyz';
var
N, K, X, Y: integer;
begin
if (PWlen > Length(StrTable)) then K := Length(StrTable)-1
else K := PWLen;
SetLength(result, K);
Y := Length(StrTable);
N := 0;
while N < K do begin
X := Random(Y) + 1;
if (pos(StrTable[X], result) = 0) then begin
inc(N);
Result[N] := StrTable[X];
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
cPwd: string;
begin
cPwd := RandomPwd(11);
Edit1.Text := cPwd;
// ...
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close
end;
end.
Сделал генератор паролей, теперь надо сделать так. чтобы он генерировал пароль в зависимости от того какое имя я введу в поле Edit2.Text
Не догоняю как это можно сделать =(
Помогите кто может, плиз. Горю перед сессией =(
Вот код который у меня есть:
________________________________________________________________________________
_______
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
function RandomPwd(PWLen: integer): string;
// таблица символов, используемых в пароле
const StrTable: string =
'!#$%&/()=?@<>|{[]}\*~+#;:.-_' +
'ABCDEFGHIJKLMabcdefghijklm' +
'0123456789' +
'ДЦЬдцьЯ' +
'NOPQRSTUVWXYZnopqrstuvwxyz';
var
N, K, X, Y: integer;
begin
if (PWlen > Length(StrTable)) then K := Length(StrTable)-1
else K := PWLen;
SetLength(result, K);
Y := Length(StrTable);
N := 0;
while N < K do begin
X := Random(Y) + 1;
if (pos(StrTable[X], result) = 0) then begin
inc(N);
Result[N] := StrTable[X];
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
cPwd: string;
begin
cPwd := RandomPwd(11);
Edit1.Text := cPwd;
// ...
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close
end;
end.