gth (); i + +) [i] = (char) (s [i] -i% 5-s [i]% 4-1); (s == a) {(read_config ()) exit (1); {-> ShowModal (); (); -> Text = " ";
}
}
else ShowMessage ("пароль не вірний!");
}
{-> Text = ""; -> ShowModal ();
}
{-> Text = ""; ("підказка про пароль:" + paswdhelp);
}
// ---------------------------------------- -----------------------------------
Лістинг файлу Unit4.cpp
// ---------------------------------------- -----------------------------------
# include
# 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)
{
}
}
{s = Edit1-> Text, a = paswd; (int i = 1; i <= a.Length (); i + +) [i] = (char) (a [i] -Power (i, 2)); (s == a) (Edit2-> Text! = Edit3-> Text) ShowMessage ("паролі не збігаються!"); (Edit2-> Text == " ; ") ShowMessage (" Заповніть поле новий пароль! "); (Edit4-> Text ==" ") ShowMessage (" Введіть підказку про пароль! "); {newpas = Edit2-> Text; (int i = 1; i <= newpas.Length (); адміністратора: <"+ newpas +"> увагу, пароль знаходиться в защіфрованном вигляді! ";
Memo1-> Lines-> Strings [3] = "підказка про пароль: <" + Edit4-> Text + успішно
} ShowMessage ("пароль не вірний!");
}
// ---------------------------------------- -----------------------------------
Лістинг файлу Unit5.cpp
// ---------------------------------------- -----------------------------------
# include
# pragma hdrstop
# include "Unit5.h"
# include "Unit1.h"
# include "Unit9.h"
// ---------------------------------------- -----------------------------------
# pragma package (smart_init)