gn="justify">}
if (StrToInt (s) lt; 0) {
ShowMessage ( Неприпустимо мале число );
return 3;
}
kof=StrToInt (s);
//------------------ підказка про пароль
s=reads (Form2- gt; Memo1- gt; Lines- gt; Strings [3]);
if (s == error # 2 ) {
ShowMessage ( Відсутні операторні дужки! );
return 1;
}
if (s == error # 1 ) {
ShowMessage ( Відсутня значення! );
return 1;
}
paswdhelp=s;
Form9- gt; Memo1- gt; Text=Form2- gt; Memo1- gt; Text;
file_write ( config.dll );
return 0;
}
//---------------------------------------------------------------------------__fastcall TForm2 :: Button1Click (TObject * Sender)
{
if (write_config ()) exit (1);
else ShowMessage ( імененія успішно внесені );
}
//---------------------------------------------------------------------------
__ fastcall TForm2 :: Button2Click (TObject * Sender)
{
Memo1- gt; Clear ();
Memo1- gt; Lines- gt; Add ( кількість варіантів: lt; 49 gt; );
Memo1- gt; Lines- gt; Add ( пароль адміністратора: lt; 650/32 -, + gt; увагу, пароль знаходиться в защіфрованном вигляді! );
Memo1- gt; Lines- gt; Add ( коеффициент генерації: lt; 56 gt; );
Memo1- gt; Lines- gt; Add ( підказка про пароль: lt; s gt; );
}
//---------------------------------------------------------------------------
__ fastcall TForm2 :: Button3Click (TObject * Sender)
{
if (read_config ()) exit (1);
else Form7- gt; ShowModal ();
}
//---------------------------------------------------------------------------
__ fastcall TForm2 :: Button4Click (TObject * Sender)
{
if (read_config ()) exit (1);
else {
Form8- gt; CSpinEdit1- gt; MaxValue=var;
Form8- gt; ShowModal ();
}
}
//---------------------------------------------------------------------------
__ fastcall TForm2 :: Button5Click (TObject * Sender)
{
Close ();
}
//---------------------------------------------------------------------------
Лістинг файлу Unit3.cpp
//---------------------------------------------------------------------------
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit3.h
# include Unit2.h
# include Unit1.h
# include Unit4.h
//---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource *. dfm * Form3;
//---------------------------------------------------------------------------
__ fastcall TForm3 :: TForm3 (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------
__ fastcall TForm3 :: Button2Click (TObject * Sender)
{
Edit1- gt; Text= raquo ;;
Close ();
}
//---------------------------------------------------------------------------
__ fastcall TForm3 :: Button1Click (TObject * Sender)
{
String s=Edit1- gt; Text, a=paswd;
for (int i=1; i lt;=s.Length (); i ++)
s [i]=(char) (s [i] -i% 5-s [i]% 4-1);
if (s == a) {
