[6666]

сделал пароль:

Код:

Procedure TForm5.SpeedButton1Click(Sender: TObject);
begin
 
begin
if edit3.Text='123' then
begin
form2.SpeedButton4.Enabled:=true;
form2.SpeedButton5.Enabled:=true;
Form2.SpeedButton7.Enabled:=true;
Form2.SpeedButton8.Enabled:=true;
Form2.SpeedButton1.Enabled:=false;
 Form2.SpeedButton9.Enabled:=true;
   Form2.SpeedButton10.Enabled:=true;
 
   Form2.SpeedButton12.Enabled:=true;
   SpeedButton2.Visible:=true;
   SpeedButton1.Visible:=false;
end
else Label6.Caption:='Не верно указано имя пользователя или пароль';
exit;
 begin
 begin
if edit2.Text='admin' then
begin
polzovatel:=Edit2.Text;
//form1.StatusBar1.Panels.Items[2].Text:='Преподаватель:  '+edit2.Text+' ;
form2.SpeedButton4.Enabled:=true;
form2.SpeedButton5.Enabled:=true;
Form2.SpeedButton7.Enabled:=true;
Form2.SpeedButton8.Enabled:=true;
Form2.SpeedButton1.Enabled:=false;
 Form2.SpeedButton9.Enabled:=true;
 Form2.SpeedButton10.Enabled:=true;
 Form2.SpeedButton12.Enabled:=true;
 
 Form2.SpeedButton12.Enabled:=false;
 Edit2.Text:='';
 Button1.Enabled:=false;
end
else Label6.Caption:='Не верно указано имя пользователя или пароль';
exit;
  end;
 
  close;
 
end;

подскажите пожалуйста как для этой процедуры сделать смену пароля. может у кого примеры есть или советы. заранее спасибо

[Pilot_Red]

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

сделал пароль:



подскажите пожалуйста как для этой процедуры сделать смену пароля. может у кого примеры есть или советы. заранее спасибо

Ааааа...........пфффффффффффффффффффффф ..........фывдлоькнптдлжыьарябждшпьрихдлпаьтчждвым лпбьждияпальрмздвшсзптнщеакплизщамхидызшотечвзщрас лкопхзщшвыотризящвуошкп8хрчз

[6666]

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

Ааааа...........пфффффффффффффффффффффф ..........фывдлоькнптдлжыьарябждшпьрихдлпаьтчждвым лпбьждияпальрмздвшсзптнщеакплизщамхидызшотечвзщрас лкопхзщшвыотризящвуошкп8хрчз

это вообще к чему щас было?

[Pilot_Red]

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

это вообще к чему щас было?

просто я хотел уточнить задание, и у меня замкнуло в мозгу что-то
попытка № 2
Вы говорите сделали пароль- какой пароль, где он...?
В чем проблема в коде?
В общем не понятно что нужно сделать, вообще!!!!!

[6666]

пароль на разблокирование кнопок. пароль в цитате т.е. процедура. на форме 2 edita первый пароль в данном случае "123" и имя в данном случае "admin". возникла проблема не могу понять как сделать смену пароля, чтобы "123" поменять. не могли бы подсказать процедуру?

[Pilot_Red]

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

пароль на разблокирование кнопок. пароль в цитате т.е. процедура. на форме 2 edita первый пароль в данном случае "123" и имя в данном случае "admin". возникла проблема не могу понять как сделать смену пароля, чтобы "123" поменять. не могли бы подсказать процедуру?

ну... сначала нужно выяснить одну вещь.
Новый пароль будет действовать после следующего запуска программы?
Если да, то его нужно где-то хранить. В реестре, в файле.

[6666]

да нужно чтобы действовал. и наверное чтобы в реестре а то файл придется шифровать а это лишняя проблема

[Pilot_Red]

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

да нужно чтобы действовал. и наверное чтобы в реестре а то файл придется шифровать а это лишняя проблема

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

Шифрование\дешифрование попробуй сначала тупо xor-ом сделать

[6666]

так все готово. txt маскирую как org. вот код

procedure TForm1.Button1Click(Sender: TObject);
var
myFile : TextFile;
text, pass, log : string;

begin
log:=Edit1.Text;
pass:=Edit2.Text;
// Ïîïûòêà îòêðûòü ôàéë Test.txt äëÿ çàïèñè
AssignFile(myFile, 'Test.org');
append(myFile);

// Çàïèñü íåñêîëüêèõ èçâåñòíûõ ñëîâ â ýòîò ôàéë
WriteLn(myFile,log);
WriteLn(myFile, pass);

// Çàêðûòèå ôàéëà
CloseFile(myFile);
form2.show;

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

Var myFile: TextFile;
pass,log,text: String;
begin
CanClose:=false;//ïîêà çàïðåùàåì çàêðûòèå
AssignFile(myFile, extractfilepath(paramstr(0))+'test. org');
Reset(myFile);
while not Eof(myFile) do //öèêë áóäåò äî òåõ ïîð, ïîêà íå äîñòèãíåì êîíöà ôàéëà
begin
ReadLn(myFile,log);
ReadLn(myFile, pass);
if (Edit1.Text = log) and (lowerCase(edit2.Text) = pass)
then begin
CanClose:=true;
//breake; //ïðåðûâàåì öèêë
end;
end;

CloseFile(myFile);
if not CanClose then Application.Terminate;
end;

end.

а как теперь сделать чтобы менять пароль и сохранялся в файле?

[Pilot_Red]

дк а что у тебя разве это TForm1.Button1Click не выполняет???
там единственное, в файл не добавляешь а перезаписываешь записи.. то есть вместо append делаешь rewrite.

[6666]

поменял теперь ошибку выдает

[Hint] Unit3.pas(34): Variable 'text' is declared but never used in 'TForm3.Button1Click'

[Hint] Unit3.pas(57): Variable 'text' is declared but never used in 'TForm3.FormCloseQuery'

[Pilot_Red]

это не ошибка а предупреждение, которое говорит нам о том что пременная нигде не используется

[6666]

все разобрался спасибо

[Konrad]

Вобщем не лучшее решение.
Но для учебных целей сойдет.

Подумай о хеше паса.
На худой конец мд5+соль.

Та и вобщем случае нужно смотреть что ты хочешь так защитить.
Какую программу?

[6666]

а есть какие нибудь предложения?