Защита ключом

[Xeon332]

Ребята, такой вопрос. Как реализовать проверку на подлинность с помощью ключа? (вообщем вставляю дискетку в флоппик, на ней находится ключ - файл с определённым расширением, и когда нажимаю на кнопку ОК, проверяется правильность ввода имени и пароля и наличие на дискетки ключевого файла и после этого, если всё совпадает, доступ открывается. )

подскажите как реализовать проверку на наличие ключа...

[Arigato]

А в чём сложность? Читаем ключ с дискеты (диск A, проверяем пароль, логин и ключ. Если все соответствует эталону, то продолжаем работать, иначе закрываем программу.

[Xeon332]

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

[Arigato]

как именно считать данные с носителя

Я вопрос не совсем понял, читаем любым из методов чтения файлов.

[pu4koff]

Только храним логин/пароль в зашифрованном виде. То, что ввёл пользователь шифруем и проверяем с тем, что в файле. Расшифровывать ничего нельзя. Только шифруем. Никакой расшифровки

[Xeon332]

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

[Arigato]

Раздел interface модуля.

[Kotofff]

unit GlobalVars;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
// сами переменные
var
  Глобальная_переменная_1: integer;
  Глобальная_переменная_2: word;
  Глобальная_переменная_3: string;
  .....
  ..... и т.д. сколько нужно 

implementation
end.

И потом этот модуль GlobalVars подключай в остальных модулях где должны использоваться эти переменные

[Xeon332]

всё понял. спс!

[Xeon332]

вопросик ещё есть...
вот код:

procedure TForm1.Button1Click(Sender: TObject);
begin
{login:='Чебурашка';
password:='12345';}
x := Edit1.Text;
y := Edit2.Text;
if (x=login) and (y=password) then
   form2.Show
else
   showmessage('Неправильное имя или пароль. Проверьте ещё раз!!!');
end;

в нём проверяется чисто по логину и паролю... всё простенько, без шифрования - но не это важно.... не пойму как в условие впихнуть проверку на наличие файла???

вроде надо использовать функицию для работы с файлами FileExist.

(function FileExists - Возвращает True если файл существует и найден)

куда её запихнуть?????