Смена пароля. - Общие вопросы Delphi - Страница 2

rustorkan · 03.02.2018, 01:05

Возникает ошибка: "Access Violation".

northener · 03.02.2018, 02:41

Эх. Где мои 35 лет!

В те годы я тоже решил хранить пароли в программе в зашифрованном виде. Теперь я понимаю, какой я был дурак-троешник!

Heneken87 · 04.02.2018, 21:15

Цитата:

Сообщение от northener

Эх. Где мои 35 лет!

В те годы я тоже решил хранить пароли в программе в зашифрованном виде. Теперь я понимаю, какой я был дурак-троешник!

Все же от задачи зависит, иногда скрыть пароль от глазиков бешаных юзеров в 1 локальной сети бывает достаточно, чем упоротся там, где собственно радовать будет САМ факт что упоролся))))

rustorkan · 05.02.2018, 01:41

Написал.
Как поступить, если файл с паролем отсутствует?

Heneken87 · 05.02.2018, 18:54

Цитата:

Сообщение от rustorkan

Написал.
Как поступить, если файл с паролем отсутствует?

Если не затруднит, вышлите не весь проект, а кусок кода метода где собственно чтение и происходит.

З.Ы. Если с INI чтение, то if "Ini".ReadString('T','A','&&&&' ) = '&&&&' then
raise Exception.Create('Азазазазаза, не угадал!');
Если с файла то:
if FileExists('C:/PasswordFile.ogogo') = False then
raise Exception.Create('Азазазазаза, не угадал!');
Если с памяти как текст то:
if StringStream.DataString = '' then
raise Exception.Create('Азазазазаза, не угадал!');

Искренне признаюсь качать весь проект ЛЕНЬ! Да и мало -ли, что там в проекте

Serge_Bliznykov · 05.02.2018, 22:43

Цитата:

Сообщение от Heneken87

Искренне признаюсь качать весь проект ЛЕНЬ! Да и мало -ли, что там в проекте

179 Кбайт проблема скачать?!!!!!

да только сама страница с форума весит больше 100 Кб.

ну да ладно, боитесь текстовых файлов, ноу проблем, держите

Цитата:

Сообщение от Heneken87

кусок кода метода где собственно чтение и происходит.

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
IniFile : TIniFile;
old, temp : string;

begin
If ComboBox1.ItemIndex=-1 then
ShowMessage('Выберите пользователя!') else

    begin
    If Edit1.Text='' then
    ShowMessage('Введите старый пароль!') else
    If Edit2.Text='' then
    ShowMessage('Введите новый пароль!') else
    If Edit3.Text='' then
    ShowMessage('Введите второй раз новый пароль!') else
    If Edit2.Text <> Edit3.Text then
    ShowMessage('Новые пароли не совпадают!') else
    If Edit1.Text=Edit2.Text then
    ShowMessage('Старый и новый пароли не должны совпадать!') else

        If ComboBox1.Text='Администратор' then
          begin
          If FileExists(ExtractFilePath(Application.ExeName)+'config.ini') then
          begin
          IniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.ini');
          temp:=IniFile.ReadString('ADMIN', 'pass', '');
          old:=StringCoder(BytesToString(temp));

          If Edit1.Text=old then
              begin
              ShowMessage('Пароль успешно изменен!');
              IniFile.WriteString('ADMIN', 'pass',  StringToBytes(StringCoder(Edit2.text)));
              IniFile.Free;
              end;

                If Edit1.Text <> old then
                    begin
                    ShowMessage('Неверный старый пароль!');
                    end;
          end else ShowMessage('Обратитесь к системному админу!');
          end else

          If ComboBox1.Text='Пользователь' then
            begin
            If FileExists(ExtractFilePath(Application.ExeName)+'config.ini') then
            begin
            IniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.ini');
            temp:=IniFile.ReadString('USER', 'pass', '');
            old:=StringCoder(BytesToString(temp));

            If Edit1.Text=old then
                begin
                ShowMessage('Пароль успешно изменен!');
                IniFile.WriteString('USER', 'pass',  StringToBytes(StringCoder(Edit2.text)));
                IniFile.Free;
                end;

                  If Edit1.Text <> old then
                      begin
                      ShowMessage('Неверный старый пароль!');
                      end;
            end else ShowMessage('Обратитесь к системному админу!');
          end;
    end;
end;

Цитата:

Сообщение от rustorkan

Как поступить, если файл с паролем отсутствует?

Зависит от задачи (от поставленного ТЗ), от Вас.
Варианты.
- Сообщать, что нет необходимого файла и вываливаться (нечего менять, если файла нет)
- Создавать новый файл с паролями (только это огромная дырища - ведь достаточно удалить старый INI, чтобы получить новый с нужными паролями)
- другое....

Heneken87 · 07.02.2018, 15:46

- Другое: Ввести понятие системного пароля хранящегося в исходном коде. При отсутсвии файла конфига спрашивать этот пароль и создавать файл в случаи успеха.
Ну наверное как то так:

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  IniFile : TIniFile;
  old, temp : string;
  UserGroup: string;
  ErrorStr: string;
begin
   try
    ErrorStr := '';
    case ComboBox1.Items.IndexOf(ComboBox1.Text) of
      0:
        UserGroup := 'ADMIN';
      1:
        UserGroup := 'USER';
    end;
    if ComboBox1.Items.IndexOf(ComboBox1.Text) < 0 then
    ErrorStr := ErrorStr + ' - Выберите пользователя!' + #13#10;
    If Edit1.Text = '' then
    ErrorStr := ErrorStr + ' - Введите старый пароль!' + #13#10;
    If Edit2.Text = '' then
    ErrorStr := ErrorStr + ' - Введите новый пароль!' + #13#10;
    If Edit3.Text = '' then
    ErrorStr := ErrorStr + ' - Введите второй раз новый пароль!' + #13#10;
    if ErrorStr = '' then
    begin
      If Edit2.Text <> Edit3.Text then
      ErrorStr := ErrorStr +  ' - Новые пароли не совпадают!';
      If Edit1.Text = Edit2.Text then
      ErrorStr := ErrorStr +  ' - Старый и новый пароли не должны совпадать!';
    end;
    If FileExists(ExtractFilePath(Application.ExeName) + 'config.ini') = False then
    begin
      if Application.MessageBox('Завести файл паролей. Продолжить?',
      'Уведомление', MB_YESNO + MB_ICONWARNING) = IDYES then
      begin
        if Edit2.Text <> '123123123123' then // Можно обернуть в до окно для ввода
        begin
          ErrorStr := 'Пароль администратора не совпадает, добавление файла отклонено';
          Exit;
        end;
        IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini');
        IniFile.WriteString(UserGroup, 'pass',  StringToBytes(StringCoder(Edit2.text)));
        ErrorStr := 'Пароль успешно добавлен!';
        Exit;
      end
        else ErrorStr := ' - Обратитесь к системному админу!';
    end;
    if ErrorStr <> '' then
    Exit;
    IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini');
    temp := IniFile.ReadString(UserGroup, 'pass', '&&!&&!-[]');
    if temp = '&&!&&!-[]' then
    begin
      ErrorStr := 'Пользователь ' + UserGroup + ' не найден в системе!';
      Exit;
    end;
    old := StringCoder(BytesToString(temp));
    If Edit1.Text = old then
    begin
      IniFile.WriteString(UserGroup, 'pass',  StringToBytes(StringCoder(Edit2.text)));
      IniFile.Free;
      ErrorStr := 'Пароль успешно изменен!';
    end
    else ErrorStr := 'Неверный старый пароль!';
  finally
    if ErrorStr <> '' then
    ShowMessage(ErrorStr);
  end;
end;

rustorkan · 16.02.2018, 14:29

Цитата:

Сообщение от Heneken87

Ввести понятие системного пароля, хранящегося в исходном коде. При отсутствии файла конфига спрашивать этот пароль и создавать файл в случае успеха.

Это небезопасно.

rustorkan · 16.02.2018, 14:31

Конечный вариант.

rustorkan · 16.02.2018, 14:34

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  IniFile : TIniFile;
  old, temp : string;
  UserGroup : string;
  ErrorStr : string;
begin
   try
    ErrorStr := '';
    case ComboBox1.Items.IndexOf(ComboBox1.Text) of
      0:
        UserGroup := 'ADMIN';
      1:
        UserGroup := 'USER';
    end;
    If ComboBox1.Items.IndexOf(ComboBox1.Text) < 0 then
    ErrorStr := ErrorStr + ' - Выберите пользователя!' + #13#10;
    If Edit1.Text = '' then
    ErrorStr := ErrorStr + ' - Введите старый пароль!' + #13#10;
    If Edit2.Text = '' then
    ErrorStr := ErrorStr + ' - Введите новый пароль!' + #13#10;
    If Edit3.Text = '' then
    ErrorStr := ErrorStr + ' - Введите второй раз новый пароль!' + #13#10;
    If ErrorStr = '' then
    begin
      If Edit2.Text <> Edit3.Text then
      ErrorStr := ErrorStr +  ' - Новые пароли не совпадают!' + #13#10;
      If Edit1.Text = Edit2.Text then
      ErrorStr := ErrorStr +  ' - Старый и новый пароли не должны совпадать!' + #13#10;
    end;
    If FileExists(ExtractFilePath(Application.ExeName) + 'config.ini') = False then
    begin
        ErrorStr := ' - Обратитесь к системному администратору!';
    end;
    If ErrorStr <> '' then
    Exit;
    IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini');
    temp := IniFile.ReadString(UserGroup, 'pass', '');
    old := StringCoder(BytesToString(temp));
    If Edit1.Text = old then
    begin
      IniFile.WriteString(UserGroup, 'pass',  StringToBytes(StringCoder(Edit2.text)));
      IniFile.Free;
      ErrorStr := 'Пароль успешно изменен!';
    end
    else ErrorStr := 'Неверный старый пароль!';
  finally
    If ErrorStr <> '' then
    ShowMessage(ErrorStr);
  end;
end;

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Смена пароля	Diana528	Linux (Ubuntu, Debian, Red Hat, CentOS, Mint)	3	06.02.2014 10:36
Программная смена пароля SYSDBA	artemavd	БД в Delphi	1	27.09.2012 18:45
Смена пароля на сайте	Weresk	Работа с сетью в Delphi	6	31.01.2012 17:42
Смена пароля средствами SMS	arturkhusnull	Безопасность, Шифрование	2	15.08.2011 12:49
Смена пароля	Magda	Помощь студентам	3	02.06.2010 20:03

03.02.2018, 02:41	#12
northener ПШП Участник клуба Регистрация: 15.07.2013 Сообщений: 1,926	Эх. Где мои 35 лет! В те годы я тоже решил хранить пароли в программе в зашифрованном виде. Теперь я понимаю, какой я был дурак-троешник!