align="justify"> if (read_config ()) exit (1);
else {
Form2- gt; ShowModal ();
Close ();
Edit1- gt; Text= raquo ;;
}
}
else ShowMessage ( пароль хибний! );
}
//---------------------------------------------------------------------------__fastcall TForm3 :: Button3Click (TObject * Sender)
{
Edit1- gt; Text= raquo ;;
Form4- gt; ShowModal ();
}
//---------------------------------------------------------------------------__fastcall TForm3 :: Button4Click (TObject * Sender)
{
Edit1- gt; Text= raquo ;;
ShowMessage ( підказка про пароль: + paswdhelp);
}
//---------------------------------------------------------------------------
Лістинг файлу Unit4.cpp
//---------------------------------------------------------------------------
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit4.h
# include Unit1.h
# include Unit9.h
//---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource *. dfm * Form4;
//---------------------------------------------------------------------------
__ fastcall TForm4 :: TForm4 (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------
__ fastcall TForm4 :: Button2Click (TObject * Sender)
{
Edit1- gt; Text= raquo ;;
Edit2- gt; Text= raquo ;;
Edit3- gt; Text= raquo ;;
Edit4- gt; Text= raquo ;;
Close ();
}
//---------------------------------------------------------------------------
__ fastcall TForm4 :: Button1Click (TObject * Sender)
{
String s=Edit1- gt; Text, a=paswd;
for (int i=1; i lt;=a.Length (); i ++)
a [i]=(char) (a [i] -Power (i, 2));
if (s == a)
if (Edit2- gt; Text!=Edit3- gt; Text) ShowMessage ( паролі не збігаються! );
else
if (Edit2- gt; Text == ) ShowMessage ( Заповніть поле новий пароль! );
else
if (Edit4- gt; Text == ) ShowMessage ( Введіть підказку про пароль! );
else {
String newpas=Edit2- gt; Text;
for (int i=1; i lt;=newpas.Length (); i ++)
newpas [i]=(char) (newpas [i] -i% 5-newpas [i]% 4-1);
file_read ( config.dll );
Memo1- gt; Text=Form9- gt; Memo1- gt; Text;
paswd=newpas;
paswdhelp=Edit4- gt; Text;
Memo1- gt; Lines- gt; Strings [1]= пароль адміністратора: lt; + Newpas + gt; увагу, пароль знаходиться в защіфрованном вигляді! raquo ;;
Memo1- gt; Lines- gt; Strings [3]= підказка про пароль: lt; + Edit4- gt; Text + gt; raquo ;;
Form9- gt; Memo1- gt; Text=Form4- gt; Memo1- gt; Text;
file_write ( config.dll );
ShowMessage ( пароль успішно змінений );
Edit1- gt; Text= raquo ;;
Edit2- gt; Text= raquo ;;
Edit3- gt; Text= raquo ;;
Edit4- gt; Text= raquo ;;
Close ();
}
else ShowMessage ( пароль хибний! );
}
//---------------------------------------------------------------------------
Лістинг файлу Unit5.cpp
//---------------------------------------------------------------------------
# include lt; vcl.h gt;
# pragma hdrstop
