• Registered: 2016-01-17
  • Posts: 151

Topic: set password

Hi
In my project I have used a password to enter the main form but the user can't change that password set another password.
Is there any way for a user to set his own password for a project.
my script is like this:

procedure frmLogin_bLogin_OnClick (Sender: string; var Cancel: boolean);
begin
    if frmLogin.edPassword.Text = '1' then
    begin
        frmLogin.Hide;
        frmMain.Show;
    end else MessageDlg('Wrong Password', mtError, mbOk, 0); // Displays a red 'X', header is: Error;
end;

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,608

Re: set password

Store the password not in the script, but in the database or in the configuration file. For reliability, you can store it in encrypted form.


Alternatively, you can use the standard access control system that is in MVDB.

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2016-01-17
  • Posts: 151

Re: set password

thank you for your reply
that's exactly what I like o do, but I don't know how to store the password in database or in the configuration file.
How can I do that?

4 Reply by k245 (edited by k245 2022-07-04 09:12:21)

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,608

Re: set password

  procedure SetStrIni(ASection: string; AKey: string; AVal: string);
  // запись единичного строкового значения в настройки
  var
    tmpIniFile: TIniFile;
  begin
    tmpIniFile := TIniFile.Create(Application.SettingsFile);
    tmpIniFile.WriteString(ASection, AKey, AVal);
    tmpIniFile.Free;
  end;

  function GetStrIni(ASection: string; AKey: string; ADefVal: string = ''): string;
  // чтение единичного строкового значения из настройки
  var
    tmpIniFile: TIniFile;
  begin
    tmpIniFile := TIniFile.Create(Application.SettingsFile);
    Result := tmpIniFile.ReadString(ASection, AKey, ADefVal);
    tmpIniFile.Free;
  end;

procedure frmLogin_bLogin_OnClick (Sender: string; var Cancel: boolean);
begin
    if frmLogin.edPassword.Text = DecryptRC5( GetStrIni('USER','Password'), 'Enigma') then
    begin
        frmLogin.Hide;
        frmMain.Show;
    end else MessageDlg('Wrong Password', mtError, mbOk, 0); // Displays a red 'X', header is: Error;
end;

procedure SetNewPassword;
begin
  SetStrIni('USER','Password',  EncryptRC5( frmNewPassword.edPassword.Text  , 'Enigma')  );
end;
Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2016-01-17
  • Posts: 151

Re: set password

thanks for the script but it shows an error for this line:

if frmLogin.edPassword.Text = DecriptRC5( GetStrIni('USER','Password'), 'Enigma') then

Can you please attach a sample?
thank you so much for your help

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,608

Re: set password

I can add an example directly to your project

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2016-01-17
  • Posts: 151

Re: set password

Thanks for your time
this sample is like my project.

Post's attachments

Attachment icon Students.rar 300.42 kb, 233 downloads since 2022-07-03 

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,608

Re: set password

Added a form for change password and a button on the main form. Current password - 123

Post's attachments

Attachment icon Students.rar 301.68 kb, 310 downloads since 2022-07-04 

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2016-01-17
  • Posts: 151

Re: set password

thank you so much for your help
I can't enter the project, What is the password for the login page?

and also what if you forget the password? is there any way that if you forget the password, you can sett another password?

thanks

  • From: Crozon
  • Registered: 2021-05-05
  • Posts: 305

Re: set password

123

Destiny
  • Registered: 2016-01-17
  • Posts: 151

Re: set password

Hi
I have posted this topic a long time ago.
" K245 " inserted a button in the MainForm to change the password.
in the role-based you can change the password from the toolbar.
is it possible that in this sample which is not a role-based access control, the change password is shown on the toolbar?
there is also another problem:
there are two users in this sample , when I change password for one user, the other user's password is also changed

Post's attachments

Attachment icon Students new.rar 301.44 kb, 143 downloads since 2023-07-11 

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,608

Re: set password

In your example, there is only one user. Do you happen to confuse program users and students in the database? These are two different concepts.


You can continue to store passwords and users in the initialization file (see example: login 1, password 333, login 2 password 123), but this is not a good solution.


Why don't you want to use the built-in rights management system?

Post's attachments

Attachment icon Students 2.rar 301.72 kb, 165 downloads since 2023-07-11 

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2016-01-17
  • Posts: 151

Re: set password

thank you for your help
this is the sample with two different users. please check this one

Post's attachments

Attachment icon Students3.rar 301.68 kb, 154 downloads since 2023-07-12 

  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 1,106

Re: set password

1. Why do you need a list of users if the password does not depend on the selected user, even if the user is not selected?
2. If the login is successful, the login form is hidden. When "shut down", closing the FrmMain form,
    the process remains hanging in memory, since the login form is not closed.

15 Reply by k245 (edited by k245 2023-07-12 12:41:00)

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,608

Re: set password

identity wrote:

thank you for your help
this is the sample with two different users. please check this one

Formulate your request correctly. Are you asking to write the script you need?


Do you still want to store passwords in a text file next to the program? They are not very safe in the SQLite database either, but here they just lie in plain sight and say "hack me"  )))

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2016-01-17
  • Posts: 151

Re: set password

thanks sparrow and k245
I explained my problem incorrectly.
in the sample that I have attached we have 2 different users with 2 different passwords.
What I'm trying to do is to change password for each user using Button1 frmMain and obviously  the password should be depended on the selected user. I should be able to set different passwords for different users
this sample is not  role-based

username: Admin     Password: admin
username: User        Password: user

Post's attachments

Attachment icon ChangePass.rar 297.87 kb, 153 downloads since 2023-07-13 

  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 1,106

Re: set password

You fixed the exit error.

Here is your users table


+----+-------+----------+------+-------+--------+--------+---------------+-------+
| id | login | password | read | write | remove | search | administrator | lunch |
+----+-------+----------+------+-------+--------+--------+---------------+-------+
| 1  | admin | admin    | 1    | 1     | 1      | 1      | 1             | NULL  |
| 2  | user  | user     | 0    | 0     | 0      | 0      | 0             | 0     |
+----+-------+----------+------+-------+--------+--------+---------------+-------+



Make conclusions.

  • Registered: 2016-01-17
  • Posts: 151

Re: set password

What conclusions can I make by this table?
My question still stands
How can I change password using Button1 frmMain?
the button does not work and it doesn't change the password for admin
what i need to do is that when I enter the program with admin I should be able to change admin password
and when I enter as a user I should be able to change user password
I think the script that I used is incomplete.
help me with the script please

  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 1,106

Re: set password

Your project works like this:
On startup, you enter the password for the user. When you click on the button,
the password is compared with the password that is stored in the database (sqlite.db) in clear text.
If the password is correct, you enter the program.


When changing the password, you enter the new password and click on the Change button.
In this case, the new encrypted password is written to the INI file.


Nothing bothers you in the described actions??

  • Registered: 2025-01-10
  • Posts: 1

Re: set password

Please, I need someone to help me create a form and the general crypt for a single user and default password, that is, I want the project to only be accessed with one user account and its password. I look forward to your collaboration. Thank you.

    • derek
    • derek
    • Moderator
    • Offline
    • Registered: 2015-02-16
    • Posts: 2,814

    Re: set password

    Hi,
    As a suggestion, try it as follows
    1.  Use standard MVD user authorisation - this will create a default user of 'admin' with a default password of 'admin'.
    2.. The option to create new users is removed from Form1 so no more users can be added after the initial creation of the 'admin' user.
    3.  The password can be changed by using alt + shift + p (you can use whatever key sequence you want but you really need an option to reset the password if your application's security becomes compromised.  Obviously you could just have this action associated with a button but perhaps you want to make this option less accessible to most people using your application.
    In the attached example, the current password is 'derek'
    Any questions, just shout.
    Derek.

    Post's attachments

    Attachment icon one user only.zip 445.43 kb, 25 downloads since 2025-01-11