Примечание

Надеюсь все объяснил доступно =). А теперь приступим к делу и начнем мы с серверной части. Для этого создадим проект и скинем на форму компонент ServerSocket. В настройках компонента ServerSocket укажем следующее:

А также для удобства скинем компонент Memo, в который будем выводить всякую инфу. Дадим имя компоненту log.

Далее, для компонента ServerSocket определяем метод onClientConnect, чтобы определять момент подключения клиентов. Вставим следующий код:

procedure TForm1.ssClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  myDate : TDateTime;
  formattedDateTime : string;
begin
  mydate:=Now;
  DateTimeToString(formattedDateTime, 'c', myDate);
  log.Lines.Add(formattedDateTime+': Есть коннект c '+Socket.RemoteAddress);
  { далее вы можете вставить свой код }
end;

А теперь определим метод onClientRead, в котором будем обрабатывать получаемые сообщения от клиентов:

procedure TForm1.ssClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  s:string;
begin
  s:=Socket.ReceiveText;
  log.Lines.Add(s);
end;

Определим метод onClientDisconnect, чтобы фиксировать факт отключения клиента:

procedure TForm1.ssClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  myDate : TDateTime;
  formattedDateTime : string;
begin
  mydate:=Now;
  DateTimeToString(formattedDateTime, 'c', myDate);
  log.Lines.Add(formattedDateTime+': Клиент '+socket.RemoteAddress+' отключился.');
end;

На этом с серверной частью покончено =).

Приступим к клиентской части. Для этого создадим новый проект, скинем на форму компонент ClientSocket и таймер. В настройках компонента укажем следующее:

Для простоты пояснения я в Address указал «петлю». Но для гибкости приложения рекомендую это поле обрабатывать программно, во время CreateForm при обработке конфигурационного файла, в котором можно указывать нужный IP-адрес сервера.

Здесь также для удобства скинем на форму компонент Memo, в который будем выводить техническую инфу. Имя дадим соответствующее log.

Для компонента ClientSocket определяем метод onError для того, чтобы обрабатывать исключения, возникшие в момент подключения клиента к серверу. Вставим следующий код:

procedure TForm1.csError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
var
  myDate : TDateTime;
  formattedDateTime : string;
begin
 if ErrorEvent= eeConnect  then
  begin
    cs.Active:=false;
      {добавить запись в журнал};
    mydate:=Now;
    DateTimeToString(formattedDateTime, 'c', myDate);
    log.lines.Add(formattedDateTime+': Невозможно установить соединение с сервером - '+cs.Address);
  end;
  ErrorCode:=0;
  { далее вы можете вставить свой код }
end;

Теперь определим метод onConnect. Вставим следующий код:

procedure TForm1.csConnect(Sender: TObject; Socket: TCustomWinSocket);
var
  myDate : TDateTime;
  formattedDateTime : string;
begin
  mydate:=Now;
  DateTimeToString(formattedDateTime, 'c', myDate);
  log.lines.Add(formattedDateTime+': Соединение с сервером - '+socket.RemoteAddress+' установлено.');
end;

И чтобы фиксировать момент потери связи с сервером, определим метод onDisconnect:

procedure TForm1.csDisconnect(Sender: TObject; Socket: TCustomWinSocket);
var
  myDate : TDateTime;
  formattedDateTime : string;
begin
  mydate:=Now; //получим текущее время
  DateTimeToString(formattedDateTime, 'c', myDate); //преобразуем в строку
  log.Lines.Add(formattedDateTime+': Соединение с сервером '+socket.RemoteAddress+' потеряно.');
end;

Таймер настроим так:

И определяем метод onTimer. Вставим следующий код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not cs.Active then
  begin
    cs.Active:=true;
  end;
  cs.Socket.SendText('ping client');
end;

Данный код проверяет наличие соединения с сервером и в случае его отсутствия пытается его установить.
И каждые 5 секунд отправляет серверу сообщение «ping client».

Вот примерно так выглядит типовой шаблон приложения «клиент-сервер».

Примечание

Рабочий пример можно скачать отсюда.

Если есть кому что добавить или задать вопрос по теме — прошу отписываться в комментах ;)

Где первый параметр указывает на компьютер в сети. Если в качестве этого параметра указать nil, то система определит локальное имя компьютера.
Параметр level указывает системе о том, какого уровня требуется информация об аккаунте, более подробно их мы рассмотрим позже, но кому не терпится, могут почитать на MSDN’e. Но в примере мы рассмотрим уровень – 10. Он нам вернет имя аккаунта, информацию об аккаунте.
Далее используется параметр, в котором нужно указать по какому признаку фильтровать системную информацию. Как гласит справка MSDN их всего 6:

Подробней о них в следующей статье, а в примере мы будем использовать FILTER_NORMAL_ACCOUNT.
В следующий параметр будет возвращен результат работы функции.
В следующем параметре указываем размер буфера.
В entriesread будет возвращено количество актуальных прочтенных записей, а в параметре totalentries – общее количество записей(зарегистрированных пользователей).
В последнем параметре будет возвращен указатель для возможности продолжения работы.
В лсдучае успешной отработки данной функции будет возвращено нулевое значение. В случае же ошибки будет возвращен один из следующих кодов ошибок:

В связи с выбранным уровнем 10, будем исследовать следующую структуру, которая описана в справке MSDN:

Так как наш язык программирования Delphi, все вышеописанное следует переделать под него, ну и недолго тянув кота за яйки, рассмотрим исходник получения списка пользователей в ОС Windows:

Delphi
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Stdctrls, Comctrls;

{$EXTERNALSYM NetUserEnum}
function NetUserEnum(servername: LPWSTR;
  level,
  filter: DWORD;
  bufptr: Pointer;
  prefmaxlen: DWORD;
  entriesread,
  totalentries,
  resume_handle: LPDWORD): DWORD; stdcall;
external 'NetApi32.dll' Name 'NetUserEnum';
function NetApiBufferFree(Buffer: Pointer): DWORD; stdcall;
external 'NetApi32.dll' Name 'NetApiBufferFree';

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
     private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
const
  NERR_SUCCESS = 0;
  FILTER_TEMP_DUPLICATE_ACCOUNT = $0001;
  FILTER_NORMAL_ACCOUNT = $0002;

  FILTER_PROXY_ACCOUNT = $0004;
  FILTER_INTERDOMAIN_TRUST_ACCOUNT = $0008;
  FILTER_WORKSTATION_TRUST_ACCOUNT = $0010;
  FILTER_SERVER_TRUST_ACCOUNT = $0020;
type
  TUSER_INFO_10 = record
    usri10_name,
      usri10_comment,
      usri10_usr_comment,
      usri10_full_name: PWideChar;
  end;
  PUSER_INFO_10 = ^TUSER_INFO_10;
var
  dwERead, dwETotal, dwRes, res: DWORD;
  inf: PUSER_INFO_10;
  info: Pointer;
  p: PChar;
  i: Integer;
begin
  info := nil;
  dwRes := 0;
  res := NetUserEnum(nil,
    10,
    FILTER_NORMAL_ACCOUNT,
    @info,
    65536,
    @dwERead,
    @dwETotal,
    @dwRes);
  if (res <> NERR_SUCCESS) or (info = nil) then
    Exit;
  p := PChar(info);
  for i := 0 to dwERead - 1 do
  begin
    inf := PUSER_INFO_10(p + i * SizeOf(TUSER_INFO_10));
    memo1.Lines.Add(WideCharToString(PWideChar((inf^).usri10_name)));
    memo1.Lines.Add(WideCharToString(PWideChar((inf^).usri10_comment)));
    memo1.Lines.Add(WideCharToString(PWideChar((inf^).usri10_usr_comment)));
    memo1.Lines.Add(WideCharToString(PWideChar((inf^).usri10_full_name)));
  end;
  NetApiBufferFree(info);
end;

Когда вы взгляните на результат работы функции, у вас появиться вопрос, а зачем нам нужны технические пользователи созданные системой автоматически для своих нужд? Абсолютно с вами соглашусь, возвращенный результат содержит много побочной и ненужной инфы, однако, стоит знать все, что известно о пользователе, зарегистрированном в системе, все может пригодиться ;). А в следующей статье мы рассмотрим более подробно используемые структуры, другие системные функции для работы с пользователями и, естественно, возможность отсеивания ненужной инфы.Ну а пока, предлагаю вам возможность поковырять исходник =).

1. CreateFile
2. OpenFile
3. ReadFile
4. WriteFile
5. CloseFile
6. DeleteFile
7. CopyFile
8. FindFirstFile
9. FindNextFile
10. GetFileSize

Замечание

Но прежде чем  приступить к делу, замечу для случая, когда действия над файлами происходят удаленно.  За счет реализации в ОС Windows механизма прозрачного доступа к файлам,  данные функции работают и с удаленными файлами, отличием является задание сетевого пути к файлу, а именно для С/С++ необходимо указывать путь в следующем формате:   «\\\\имя_удаленного_компа\\путь_к_ файлу\\ имя_файла».
Пример:

DeleteFile("\\\\comp1\\user1\\test\\test1.txt");

Для Delphi необходимо указывать путь в следующем формате:   «\\имя_удаленного_компа\путь_к_ файлу\имя_файла».

Пример:

DeleteFile('\\comp1\user1\test\test1.txt');

Функция CreateFile

Функция создаёт указатель на новое устройство типа:

• Файл
• Канал
• mailslot (почтовый канал)
• комуникационный ресурс (например COM порт)
• дисковые устройства (только для Windows NT)
• консоли
• директории (открывает их)

Все эти функции описаны в одном файле. Для С/С++ в хедере (заголовочный файл) winbase.h, для Delphi в модуле windows.pas.  Чтобы использовать в своей программе эти функции, достаточно подключить их к своему проекту и вперед. Замечу для тех, кто кодит на С/С++ — кроме winbase.h надо подключить еще windows.h.

Описание:
С/С++

HANDLE CreateFile(
   LPCTSTR lpFileName,        // Указатель на имя файла (устройства)
   DWORD dwDesiredAccess,  //Параметры доступа
   DWORD dwShareMode,        //Разделяемый доступ
   LPSECURITY_ATTRIBUTES lpSecurityAttributes,    //безопасность
   DWORD dwCreationDistribution,// Описание
   DWORD dwFlagsAndAttributes,     // Атрибуты файла
   HANDLE hTemplateFile      // Файл шаблона
);

Delphi

function CreateFile(
   lpFileName: PChar;   // Указатель на имя файла (устройства)
   dwDesiredAccess,     //Параметры доступа
   dwShareMode: DWORD;  //Разделяемый доступ
   lpSecurityAttributes: PSecurityAttributes; //безопасность
   dwCreationDisposition,       // Описание
   dwFlagsAndAttributes: DWORD; // Атрибуты файла
   hTemplateFile: THandle       // Файл шаблона
): THandle; stdcall;

Теперь к главному — как создать файл? Делается это так:
C/C++

{
   Handle FileHandle;
   FileHandle=CreateFile("file1.txt",GENERIC_READ |
      GENERIC_WRITE, FILE_SHARE_WRITE | FILE_SHARE_READ, NULL, CREATE_NEW,
      FILE_ATTRIBUTE_NORMAL | FILE_FLAG_OVERLAPPED, 0);
   CloseHandle(FileHandle);
}

Delphi

var
  FileHandle:THandle;
begin
   FileHandle:=CreateFile(PChar('file1.txt'),GENERIC_READ or
      GENERIC_WRITE, FILE_SHARE_WRITE or FILE_SHARE_READ, nil, CREATE_NEW,
      FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED, 0);
   CloseHandle(FileHandle);
end;

Теперь расмотрим используемые параметры:

• параметры GENERIC_READ и GENERIC_WRITE определяют доступ на чтение и запись. Однако, можно указать что то одно в зависимости от ваших потребностей. Если в качестве этого параметра указать 0, то в этом случае функция отработает успешно, однако никакого доступа к файлу не получит. Этот вариант удобно использовать для теста существования файла.
• параметры FILE_SHARE_WRITE or FILE_SHARE_READ — общий доступ на чтение и запись к данному файлу. То есть файл будет доступен при одновременном использовании несколькими процессами.
• следующий параметр — атрибут безопасности неопределен. То есть все дескрипторы будут доступны дочерним процессам вашего приложения.
• параметр CREATE_NEW указывает на создание нового файла. Если файл с заданным именем существует, то будет возвращен код ошибки. Если использовать параметр CREATE_ALWAYS, то в этом случае, если файл существует, то он будет перезаписан.
• параметр FILE_ATTRIBUTE_NORMAL определяет файлу стандартные атрибуты. А если указывать флаг FILE_FLAG_OVERLAPPED, то файл будет доступен в асинхронном режиме.
• так как мы не используем шаблоны, то в качестве этого параметра указываем ноль.

Функция OpenFile

Данная функция, по сути своей, предназначена для открытия файлов или устройств. Функция OpenFile в случае успеха возвращает дескриптор (указатель) открываемого файла. В случае неудачи мы получим в качестве дескриптора значение INVALID_HANDLE_VALUE.
C/C++

 HFILE WINAPI OpenFile(
  LPCSTR lpFileName,
  LPOFSTRUCT lpReOpenBuff,
  UINT uStyle
);

Delphi

function OpenFile(
   lpFileName: LPCSTR,   //имя файла (устройства)
   lpReOpenBuff: TOFStruct,  //специальная структура открываемого файла
   uStyle: UINT //флаги доступа к файлу
): HFILE; stdcall;

Теперь рассмотрим используемые параметры:

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

Собственно, как открыть файл:
C/C++

{
   Handle FileHandle;
   FileHandle= OpenFile("Settings.ini", Buf, OF_Create |
                            OF_READWRITE | OF_SHARE_EXCLUSIVE);
   CloseHandle(FileHandle);
}

Delphi

var
  FileHandle:THandle;
begin
   FileHandle:=OpenFile(PChar('Settings.ini'), Buf, OF_Create
                     Or OF_READWRITE Or OF_SHARE_EXCLUSIVE);
   CloseHandle(FileHandle);
end;

В данном примере стоит уделить внимание флагам. Первые 2 из которых определяют доступ к файлу, а флаг OF_SHARE_EXCLUSIVE сообщает системе, что доступ к этому файлу запрещен до тех пор, пока указатель на этот файл не освободится.

Функция ReadFile

Данная функция предназначена для чтения файлов или с устройств ввода/вывода. В случае успешного выполнения операции  чтения, возвращается логическое значение true, иначе false. А функция GetLastError вернет ERROR_HANDLE_EOF.
C/C++

BOOL ReadFile(HANDLE hFile, //собственно указатель на файл
         LPVOID lpBuffer,  // указатель на буфер - куда записываем считанные данные
         DWORD nNumberOfBytesToRead, //объем считываемых данных, не может превышать размер буфера
         LPDWORD lpNumberOfBytesRead, //фактический размер считанных данных
         LPOVERLAPPED lpOverlapped   // флаг режима доступа к файлу: асинхронный(FILE_FLAG_OVERLAPPED)
                                    //или синхронный(NULL)
);

Delphi

function ReadFile(
         hFile: THandle;   //собственно указатель на файл
         var Buffer;       // указатель на буфер - куда записываем считанные данные
         nNumberOfBytesToRead: DWORD;  //объем считываемых данных, не может превышать размер буфера
         var lpNumberOfBytesRead: DWORD; //фактический размер считанных данных
         lpOverlapped: POverlapped// флаг режима доступа к файлу: асинхронный(FILE_FLAG_OVERLAPPED)
                                    //или синхронный(nil)
): BOOL; stdcall;

Теперь поглядим рабочий пример:
C/C++

{
Handle FileHandle;
char Buf[1000];
...
     ReadFile(FileHandle, Buf, sizeof(buf),NULL);
...
}

Delphi

var
  FileHandle:THandle;
  Buf:array[1..1000] of char;
begin
...
   ReadFile(FileHandle, Buf, sizeof(buf),NULL);
...
end;

Функция WriteFile

Данная функция предназначена для записи в файл или устройство ввода/вывода. С ней все аналогично что и с функцией ReadFile(). В случае успешного выполнения операции  чтения, возвращается логическое значение true, иначе false. А функция GetLastError вернет ERROR_HANDLE_EOF.
C/C++

BOOL WriteFile(HANDLE hFile, //собственно указатель на файл
         LPVOID lpBuffer,  // указатель на буфер - откуда записываем данные в  файл
         DWORD nNumberOfBytesToWrite, //объем записываемых данных
         LPDWORD lpNumberOfBytesWrite, //фактический размер записанных данных
         LPOVERLAPPED lpOverlapped   // флаг режима доступа к файлу: асинхронный(FILE_FLAG_OVERLAPPED)
                                    //или синхронный(NULL)
);

Delphi

function WriteFile(
         hFile: THandle;   //собственно указатель на файл
         var Buffer;       // указатель на буфер - откуда записываем данные в  файл
         nNumberOfBytesToWrite: DWORD;  //объем записываемых данных
         var lpNumberOfBytesWrite: DWORD; //фактический размер записанных данных
         lpOverlapped: POverlapped// флаг режима доступа к файлу: асинхронный(FILE_FLAG_OVERLAPPED)
                                    //или синхронный(nil)
): BOOL; stdcall;

Теперь поглядим рабочий пример:
C/C++

{
Handle FileHandle;
char Buf[1000];
...
     ReadFile(FileHandle, Buf, sizeof(buf),NULL);
...
}

Delphi

var
  FileHandle:THandle;
  Buf:array[1..1000] of char;
begin
...
   ReadFile(FileHandle, Buf, sizeof(buf),NULL);
...
end;

Функция CloseFile

Эта функция достаточно проста. Выполняет действия по освобождению указателя на файл. Ее необходимость очевидна — чтобы не засорять память ненужными указателями и позволять работу с файлами другим процессам. В качестве ее единственного параметра передается указатель на ранее открытый файл.

Теперь поглядим рабочий пример:
C/C++

{
   Handle FileHandle;
   FileHandle= OpenFile("Settings.ini", Buf, OF_Create |
                            OF_READWRITE | OF_SHARE_EXCLUSIVE);
...
   CloseHandle(FileHandle);
}

Delphi

var
  FileHandle:THandle;
begin
   FileHandle:=OpenFile(PChar('Settings.ini'), Buf, OF_Create
                     Or OF_READWRITE Or OF_SHARE_EXCLUSIVE);
...
   CloseHandle(FileHandle);
end;

Функция DeleteFile

Эта функция так же не отличается особой сложностью. Данная функция удаляет файл, который указан в параметре.  Функция возвращает значение true если выполняется успешно. Иначе возвращает false, а код ошибки можно получить с помощью GetLastError.
C/C++

BOOL WINAPI DeleteFile(
      LPCTSTR lpFileName // имя файла, который надо удалить
);

Delphi

function DeleteFile(
      lpFileName: PChar; // имя файла, который надо удалить
 ): BOOL; stdcall;

Теперь поглядим рабочий пример:
C/C++

{
...
     DeleteFile("C:\Temp\test.txt");// если указать только
// имя файла, то будет осуществлена попытка удалить файл из папки, откуда была запущена программа

...
}

Delphi

begin
...
     DeleteFile('C:\Temp\test.txt');// если указать только
// имя файла, то будет осуществлена попытка удалить файл из папки, откуда была запущена программа
...
end;

Функция CopyFile

Основное назначение этой функции — копирование файла. В случае успеха возвращает true, иначе — false. Код ошибки можно получить с помощью GetLastError.
C/C++

BOOL CopyFile(
     LPCTSTR lpExistingFileName,// Указатель на файл, который надо копировать
     LPCTSTR lpNewFileName, // Указатель на имя файла, куда надо копировать
     BOOL bFailIfExists //если указать true, то в случае существования такого файла,
      // произойдет ошибка, если false - то существующий файл будет перезаписан.
);

Delphi

function CopyFile(
     lpExistingFileName, // Указатель на файл, который надо копировать
     lpNewFileName: PChar; // Указатель на имя файла, куда надо копировать
     bFailIfExists: BOOL //если указать true, то в случае существования такого файла,
      // он будет перезаписан, если false - то произойдет ошибка.
): BOOL; stdcall;

Теперь поглядим рабочий пример:
C/C++

{
...
     CopyFile("C:\Temp\test1.txt","C:\Temp\test2.txt", true); // если указать только
// имя файла, то все действия будут выполнены в папке из которой запущена прога
...
}

Delphi

begin
...
     CopyFile('C:\Temp\test1.txt','C:\Temp\test2.txt', false);// если указать только
// имя файла, то все действия будут выполнены в папке из которой запущена прога...
end;

Функция FindFirstFile

Данная функция запускает поиск в указанной директории. Функция возвращает указатель на найденный файл, если нет, то возврат будет типа ERROR_NO_MORE_FILES.
C/C++

HANDLE FindFirstFile(
    LPCTSTR lpFileName,	// Строка, содержащая путь для поиска файлов.
    LPWIN32_FIND_DATA lpFindFileData // Информация о найденном файле
);

Delphi

function FindFirstFile(
   lpFileName: PChar; // Строка, содержащая путь для поиска файлов.
   var lpFindFileData: TWIN32FindData // Информация о найденном файле
): THandle; stdcall;

Теперь рассмотрим параметры подробней:

• lpFileName — строка, содержащая путь для поиска файла. Эта строка может указывать наконкретный файл типа ‘c:\filename.txt’ или может хранить шаблон ‘c:\*.*’. Если указывать шаблон, то это даёт возможность перечислить все файлы удовлетворяющие шаблону.

• lpFindFileData — структура WIN32_FIND_DATA, в которую будет записана инфа о найденом файле.

Расмотрим структуру WIN32_FIND_DATA немного подробнее:

typedef struct _WIN32_FIND_DATA {
          DWORD dwFileAttributes;  // Атрибуты файла
          FILETIME ftCreationTime; // Время создания
          FILETIME ftLastAccessTime;  //Время последнего доступа
          FILETIME ftLastWriteTime;   //Время последней записи в файл
          DWORD    nFileSizeHigh;     //Верхний байт размера файла
          DWORD    nFileSizeLow;      //Нижний байт размера файла
          DWORD    dwReserved0;       //Зарезервировано
          DWORD    dwReserved1;       //Зарезервировано
          TCHAR    cFileName[ MAX_PATH ];    //Имя файла
          TCHAR    cAlternateFileName[ 14 ]; //Имя файла для отображения в DOS (8:3)
} WIN32_FIND_DATA;

Атрибутами файла может быть комбинация из флагов:

• FILE_ATTRIBUTE_ARCHIVE — архивный

• FILE_ATTRIBUTE_COMPRESSED — сжатый

• FILE_ATTRIBUTE_HIDDEN — скрытый

• FILE_ATTRIBUTE_NORMAL — нормальный

• FILE_ATTRIBUTE_OFFLINE — данные файла недоступны

• FILE_ATTRIBUTE_READONLY — только для чтения

• FILE_ATTRIBUTE_SYSTEM — системный

• FILE_ATTRIBUTE_TEMPORARY — временный

Размер файла разложен на два байта. Чтоб получить полный размер файла нужно выполнить действие (FInfo.nFileSizeHigh * MAXDWORD) + FInfo.nFileSizeLow. Это не самый эффективный (эффективнее сдвигать), но самый понятный способ.

Теперь поглядим рабочий пример:
C/C++

{
   WIN32_FIND_DATA sss;
   HANDLE f;
   f = FindFirstFile("C:\*.*", &sss);
...
   FindClose(f);
}

Delphi

var
  sss: TWIN32FindData;
  f:THandle;
begin
...
  f:=FindFirstFile(PChar('C:\*.*'), sss);
...
  Windows.FindClose(f);
end;

Функция FindNextFile

Данная функция продолжает поиск начатый функцией FindFirstFile(). Если очередной файл найден, то функция возвращает значение true, иначе  возврат будет типа ERROR_NO_MORE_FILES.
C/C++

BOOL FindNextFile(
    HANDLE hFindFile,	// Указатель на файл из предыдущего поиска
    LPWIN32_FIND_DATA lpFindFileData // Информация об очередном найденном файле
);

Delphi

function FindNextFile(
    hFindFile: THandle; // Указатель на файл из предыдущего поиска
    var lpFindFileData: TWIN32FindData // Информация об очередном найденном файле
): BOOL; stdcall;

Со вторым параметром всё ясно, из описания функции FindFirstFile. А вот первый — это указатель на файл из предыдущего поиска. Он нужен, чтобы функция FindNextFile знала на каком файле был остановлен поиск и какой надо найти следующим.

Теперь поглядим рабочий пример:
C/C++

{
   WIN32_FIND_DATA sss;
   HANDLE f;
   f = FindFirstFile("C:\*.*", &sss);
   if(f != INVALID_HANDLE_VALUE)
      do{
         ...
      }while(FindNextFile(f,&sss));
   FindClose(f);
}

А теперь пример рекурсивного поиска файлов:
Delphi

function find(put: string):integer;
var
  sss: TWIN32FindData;
  f:THandle;
  result:Boolean;
begin
...
  f:=FindFirstFile(PChar('C:\*.*'), sss);
  if f<>INVALID_HANDLE_VALUE then
  begin
    result:=true;
    while(result)do
    begin
      if not((sss.cFileName = '.')or(sss.cFileName = '..')) then
        if (sss.dwFileAttributes and faDirectory) > 0  then
          find(put+'\'+sss.cFileName)
        else
          writeln(sss.cFileName);
       ...
      result:=FindNextFile(f,sss);
    end;
  end;
  Windows.FindClose(f);
end;

Функция GetFileSize

Данная функция определяет размер файла, на который ссылается переданный указатель. Если размер файла меньше 4 Гб, то функция возвращает размер файла. Если размер файла больше 4Гб, то размер файла записан во втором параметре. В случае возникновения исключения будет возвращено значение типа INVALID_FILE_SIZE.
C/C++

DWORD GetFileSize(
   HANDLE hFile,	   // Указатель на файл
   LPDWORD lpFileSizeHigh // старший байт размера файла, в качестве
            // этого парамметра можно указать NULL
);

Delphi

function GetFileSize(
    hFile: THandle;         // Указатель на файл
    lpFileSizeHigh: Pointer //старший байт размера файла, в качестве
             // этого парамметра можно указать nil
): DWORD; stdcall;

Теперь поглядим рабочий пример:
C/C++

{
DWORD FileSize;
Handle f;
...
FileSize=GetFileSize(f,NULL);
...
}

Delphi

var
  FileSize:DWORD;
  f:THandle;
begin
  ...
  FileSize:=GetFileSize(f,nil);
  ...
end

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

После недолгих эпических отступлений, вы уж простите меня, без лишних слов приступаем к реализации нашего стражника «Инспектора». В первую очередь нам необходимо поставить задачу. Ей будет:
- реализовать поиск файлов
- проверку файлов на наличие их в банке данных, по соответствующим признакам(путь к файлу, дата создания, изменения и контрольная сумма)
- добавление в новых кандидатов на прописку в банк данных
- реализация интерфейса, связывающего предыдущие описанные задачи и действия пользователя.

В целом, получается вот такое тех. задание. А теперь от слов к делу. Для начала определимся с дизайном формы. Здесь я полагаюсь на ваш вкус, но потребуется нам две кнопки и поле вывода информации(Memo или ListBox).
Однуиз кнопок определим под выбор папки — «Обзор», и для нее напишем следующий код

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  Path := GetPath('Выберите папку');
  if Path <> ''
     then Label4.Caption := Path;
end;

А теперь опишем используемую функцию GetPath():

Delphi

function GetPath(mes: string):string;
var
  Root: string;      // корневой каталог
  pwRoot : PWideChar;
  Dir: string;
begin
  Root := ''; // по умолчанию корневой каталог - рабочий стол
  GetMem(pwRoot, (Length(Root)+1) * 2);
  pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2);
  if SelectDirectory(mes, pwRoot, Dir)
     then
          if length(Dir) = 2  // пользователь выбрал корневой каталог
              then GetPath := Dir+'\'
              else GetPath := Dir
     else
          GetPath := '';
end;

Итак, процедура выбора каталога для проверки реализована. Теперь приступим к реализации проверки файлов. Но сначала для второй кнопки опишем следующий код:

Delphi

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.ListBox1.Items.Add(TimeToStr(Time)+' :> Сканирование началось.');
  ListFiles.Clear;
  FindF(Path);
  Scan_File;
  Form1.ListBox1.Items.Add('===================================================');
  Form1.ListBox1.Items.Add(TimeToStr(Time)+' :> Сканирование завершено.');
end;

А теперь последовательно опишем используемые функции и первой будет процедура FindF(). Эта процедура осуществляет рекурсивный поиск файлов относительно выбранного корневого каталога и добавляет их в список для проверки. Смотрим листинг:

Delphi

procedure FindF(path_f:string);
begin
//Инициируем поиск
  if(FindFirst(path_f+'\*.*',faAnyFile,SearchRec) = 0) then
  begin
    repeat
      if not((SearchRec.name = '.')or(SearchRec.name = '..')) then
      begin
        if SearchRec.Attr <> faDirectory then
        begin
          ListFiles.Add(path_f+'\'+SearchRec.Name); //если файл, добавляем в список
          Inc(Count_file);
        end
        else
          FindF(path_f+'\'+SearchRec.Name); //если папка, запускаем рекурсию

      end;
    until (FindNext(SearchRec)<>0);
    FindClose(SearchRec);
  end;
end;

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

Delphi

procedure Scan_File;
var
  crc32T,dataCT,dataMT:Cardinal;
  i:integer;
  f: THandle;
  SearchF:TWIN32FindData;
  temp:boolean;
begin
  i:=0;
//проверка на первый запуск, а точнее была база только что создана или нет.
  if newBase = true then
  //если да, то заносим список найденых файлов с их
  //параметрами(путь, контрольная сумма, дата создания, дата изменения) в базу
    while i <= Count_file-1 do
    begin
      WriteIB(ListFiles.Strings[i]);
      Inc(i);
    end;
//далее производим проверку
  i:=0;
  while i <= Count_file-1 do
  begin
    try
        //проверяем наличие файла
      FS:=TFileStream.Create(ListFiles.Strings[i],fmOpenRead or fmShareDenyNone);
    except
      on Exception do
      begin
        Form1.ListBox1.Items.Add('не открывается '+ListFiles.Strings[i]);
        break;
      end;
    end;
        //Вычисляем контрольную сумму
    crc32T:=CRC32Stream(FS,0);
    FS.Free;
    f:=FindFirstFile(PChar(ListFiles.Strings[i]),SearchF);
    if f <> INVALID_HANDLE_VALUE then
    begin
        //определяем дату создания и дату изменения файла
      dataCT:=SearchF.ftCreationTime.dwLowDateTime;
      dataMT:=SearchF.ftLastWriteTime.dwLowDateTime;
    end;
        //запускаем процедуру поиска файла с найденными параметрами
        //по базе
    temp:=FindIB(ListFiles.Strings[i],crc32T,dataCT,dataMT);
    if (Not temp and (FindFlagB=0)) then
    begin
        //если файл отсутсвует то выводим тревожное сообщение
      Form1.ListBox1.Items.Add('ВНИМАНИЕ! Данный файл в базе отсутствует: '+ListFiles.Strings[i]);
    end;
        //Если файл в наличии то выводим результат проверки
    if temp and (FindFlagB=1) then
      Form1.ListBox1.Items.Add(ListFiles.Strings[i]+' - файл проверен. ОК.')
    else
      if (not temp) and (FindFlagB=1) then
      Form1.ListBox1.Items.Add(ListFiles.Strings[i]+' - файл был изменен.');
    Inc(i);
    Form1.Update;
  end;
end;

Далее опишем функции для работы с базой. И первая функция FindIB(). Она осуществляет проверку наличия интересующего файла в базе и сверку переданных параметров искомого файла с теми, что соответствуют ему.

Delphi

function FindIB(strS:string;crc32,dataC,dataM:Cardinal):Boolean;
var
  fileS:TextFile;
  nameD,fn:string;
  crc32D,dataCD,dataMD:Cardinal;
  i,it:integer;
begin
  FindFlagB:=0;
  AssignFile(fileS,'IFdb.db');
  Reset(fileS);
  While Not EOF(fileS) do
  begin
  //считываем данные из базы
    ReadLn(fileS,nameD);
  // получаем имя файла
    it:=Pos('$',nameD);
    fn:=copy(nameD,1,it-1);
    Delete(nameD,1,it);
  //получаем контрольную сумму
    it:=Pos('$',nameD);
    crc32D:=StrToInt64(copy(nameD,1,it-1));
    Delete(nameD,1,it);
  //получаем дату создания файла
    it:=Pos('$',nameD);
    dataCD:=StrToInt64(copy(nameD,1,it-1));
    Delete(nameD,1,it);
  //получаем дату последнего изменения
    dataMD:=StrToInt64(copy(nameD,1,length(nameD)));
    if strS = fn then
    begin
      FindFlagB:=1;
        if crc32 = crc32D then
          if dataC = dataCD then
            if dataM = dataMD then
            begin
              FindIB:=true;
              CloseFile(fileS);
              exit;
            end;
    end;
  end;
  FindIB:=false;
  CloseFile(fileS);
end;

Теперь рассмотрим функцию WriteIB(). Которая заносит в базу путь к файлу, его контрольную сумму, дату создания и дату последнего изменения.

Delphi

procedure WriteIB(name:string);
var
  dbf:TextFile;
  i:Cardinal;
  s:string;
  f: THandle;
  SearchF:TWIN32FindData;
begin
//открываем базу
  AssignFile(dbf,'IFdb.db');
  Append(dbf);
  //инициализируем переменные
  s:=name+'$';
  try
  //проверяем наличие добавляемого файла
    FS:=TFileStream.Create(name,fmOpenRead or fmShareDenyNone);
  except
    on Exception do
    begin
      Form1.ListBox1.Items.Add('не открывается '+name);
      exit;
    end;
  end;
  //вычисляем контрольную сумму
  i:=CRC32Stream(FS,0);
  s:=s+IntToStr(i);
  f:=FindFirstFile(PChar(name),SearchF);
  if f <> INVALID_HANDLE_VALUE then
   //определяем дату создания и дату изменения файла s:=s+'$'+IntToStr(SearchF.ftCreationTime.dwLowDateTime)+'$'+IntToStr(SearchF.ftLastWriteTime.dwLowDateTime);
  writeln(dbf,s);
  CloseFile(dbf);
  FS.Free;
end;

Далее надо объявить необходимые глобальные переменные:

Delphi

var
  SearchRec: TSearchRec;
  Count_file,FindFlagB,step: integer;
  Path: string;
  ListFiles: TStrings;
  FS:TFileStream;
  newBase:boolean;

Теперь необходимо для события onCreate написать следующее:

Delphi

procedure TForm1.FormCreate(Sender: TObject);
var
  f: THandle;
  SearchF:TWIN32FindData;
begin
  SendMessage(ListBox1.Handle,LB_SetHorizontalExtent,1000,0);
  newBase:= false;
  ListFiles:=TStringList.Create;
  Path:='*.*';
  f:=FindFirstFile('IFdb.db',SearchF);
  if f = INVALID_HANDLE_VALUE then
  begin
    f:=CreateFile('IFdb.db', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_WRITE or FILE_SHARE_READ, nil, CREATE_NEW, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED, 0);
    if f <> INVALID_HANDLE_VALUE then
    begin
      CloseHandle(f);
      newBase:= true;
    end;
  end;
end;

На этом статью заканчиваю. Надеюсь статья и программный код описал максимально понятно. Но замечу, что код требует оптимизации, так как был написан таким образом, чтобы был понятен читателю. Пример может быть расширен, в него можно добавить кучу дополнительных возможностей. Все это зависит от вашей фантазии. Все вопросы и замечания высказываем на форуме.

Необходимые файлы:
- модуль для вычисления CRC32. Скачать

Рабочий пример скачать здесь.

А далее, после того как мы получим список процессов, достаточно проверить список на наличие в нем интересующего процесса, соответствующего нашей программе. Если такового не оказалось, то необходимо нашу программу запустить заново.

Теперь посмотрим, как будет выглядеть листинг:

Delphi

//глобальные переменные
var
     lstprc: TStrings;
     i:integer;
     find:boolean;
//Получаем список процессов
function GetProcessList(): TStrings;
var
  eP: TProcessEntry32;
  hP, snap: THandle; //дескрипторы процесса и снимка
  hM: hmodule; //дескриптор модуля
  prcs: array[0..$FFF] of dword; //массив для хранения
// дескрипторов процессов
  cP, cM: cardinal; //количество процессов
  i: integer;
  NameProc: array[0..max_path] of char; //имя модуля
  lP: TStrings;
begin
  lP:=TStringList.Create;
  lP.Clear;
//проверяем версию винды
  if Win32Platform = VER_PLATFORM_WIN32_WINDOWS then
  begin //если это Win9x
//инициализируем переменные
    snap := CreateToolhelp32Snapshot(th32cs_snapprocess, 0);
    if integer(snap) = -1 then
    begin
      exit;
    end
    else
    begin
      eP.dwSize := sizeof(eP);
//для Win9x получение списка процессов выполняется по
//аналогии с поиском файлов
//вызываем функцию для получения первого процесса
      if Process32First(snap, eP) then
//а далее в  цикле пока еще есть процессы получаем следующий
        repeat
          lP.Add(string(eP.szExeFile));//получаем имя процесса
        until not Process32Next(snap, eP);
    end;
  end
  else
  begin //Если WinNT/2000/XP
//то в этом случае мы пользуемся Api-функцией перечисления
// запущенных процессов
//которая заполняет нам наши переменные
    if not EnumProcesses(@prcs, sizeof(prcs), cP) then
    begin
      exit;
    end;
//и далее для каждого дескриптора процесса получаем о нем
// информацию
    for i := 0 to cP div 4 - 1 do
    begin
      hP := OpenProcess(PROCESS_QUERY_INFORMATION or
                                    PROCESS_VM_READ,
                                     false, prcs[i]);
      if hP > 0 then
      begin
        EnumProcessModules(hP, @hM, 4, cM);
        GetModuleFileNameEx(hP, hM, NameProc, sizeof(NameProc));
        lP.Add(ExtractFileName(string(NameProc))); //если вы хотите
//    получить только имена процессов
//        lP.Add(string(NameProc)); //если вы хотите получить
                                       // имена процессов вместе c путем
        CloseHandle(hP);
      end;
    end;
  end;
  GetProcessList:=lP; //возвращаем полученный список
end;
//Основная процедура
begin
   //Сразу после запуска получаем список процессов
  lstprc:=TStringList.Create;
  lstprc.Clear;
  lstprc:=GetProcessList;
  //Теперь проверяем список на наличие интересующего
// нас процесса
  i:=0;
  find:=false;
  while (i <= lstprc.count-1) do
  begin
     if lstprc.Strings[i] = 'test.exe' then
     begin
        find:=true;
        break;
     end
     else
        i:=i+1;
  end;
//Если в списке процессов нашей программы
// не обнаружено, то мы ее запускаем
  if not find then
     WinExec(PChar('test.exe'),SW_SHOW);
end;

Вот и все! =)

Delphi

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
 Controls, Forms, Dialogs, StdCtrls,PSAPI, TlHelp32;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}

function GetProcessList(): TStrings;
var
  eP: TProcessEntry32;
  hP, snap: THandle; //дескрипторы процесса и снимка
  hM: hmodule; //дескриптор модуля
  prcs: array[0..$FFF] of dword; //массив для хранения
// дескрипторов процессов
  cP, cM: cardinal; //количество процессов
  i: integer;
  NameProc: array[0..max_path] of char; //имя модуля
  lP: TStrings;
begin
  lP:=TStringList.Create;
  lP.Clear;
//проверяем версию винды
  if Win32Platform = VER_PLATFORM_WIN32_WINDOWS then
  begin //если это Win9x
//инициализируем переменные
    snap := CreateToolhelp32Snapshot(th32cs_snapprocess, 0);
    if integer(snap) = -1 then
    begin
      exit;
    end
    else
    begin
      eP.dwSize := sizeof(eP);
//для Win9x получение списка процессов выполняется по
//аналогии с поиском файлов
//вызываем функцию для получения первого процесса
      if Process32First(snap, eP) then
//а далее в  цикле пока еще есть процессы получаем следующий
        repeat
          lP.Add(string(eP.szExeFile));//получаем имя процесса
        until not Process32Next(snap, eP);
    end;
  end
  else
  begin //Если WinNT/2000/XP
//то в этом случае мы пользуемся Api-функцией перечисления
// запущенных процессов
//которая заполняет нам наши переменные
    if not EnumProcesses(@prcs, sizeof(prcs), cP) then
    begin
      exit;
    end;
//и далее для каждого дескриптора процесса получаем о нем
// информацию
    for i := 0 to cP div 4 - 1 do
    begin
      hP := OpenProcess(PROCESS_QUERY_INFORMATION or
                                    PROCESS_VM_READ,
                                     false, prcs[i]);
      if hP > 0 then
      begin
        EnumProcessModules(hP, @hM, 4, cM);
        GetModuleFileNameEx(hP, hM, NameProc, sizeof(NameProc));
        lP.Add(ExtractFileName(string(NameProc))); //если вы хотите
//    получить только имена процессов
//        lP.Add(string(NameProc)); //если вы хотите получить
                                       // имена процессов вместе c путем
        CloseHandle(hP);
      end;
    end;
  end;
  GetProcessList:=lP; //возвращаем полученный список
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.Lines:=GetProcessList;
end;
end.

Нам понадобится всего 2 API — функции:

• GetDriveType — определяет и возвращает тип носителя;
• GetVolumeInformation — определяет информацию о носителе,  среди которой содержится серийный номер.

Рассмотрим описание этих функций для С++ и Delphi. Первой будет функция GetDriveType, она очень простая и использует всего один параметр — указатель на том. Например «c:\»,»a:\» и т.д. Функция возвращает одно из следующих значений:

DRIVE_UNKNOWN — 0 : диск неопределен/не существует

DRIVE_NO_ROOT_DIR — 1 : неверный путь/ путь не указывает на том

DRIVE_REMOVABLE — 2 : тип устройства определяется как съемный (дискета, флешка и т.д.)

DRIVE_FIXED — 3 : тип устройства — фиксированный диск (жесткий диск)

DRIVE_REMOTE — 4 : тип устройства — удаленный(сетевой) диск

DRIVE_CDROM — 5 : это устройство CD-ROM

DRIVE_RAMDISK — 6 : виртуальный диск, созданный в оперативной памяти

C/C++

UINT WINAPI GetDriveType(
      LPCTSTR lpRootPathName //путь к диску
);

Delphi

function GetDriveType(
      lpRootPathName: PChar //путь к диску
): UINT; stdcall;

Замечание: Если в качестве параметра указать для С/С++  NULL, а для Delphi — nil, то тип устройства будет определяться для текущего диска (с которого была запущена программа).

А теперь взглянем на функцию GetVolumeInformation. Тоже достаточно простая функция, однако использует параметров значительно больше.

C/C++

BOOL WINAPI GetVolumeInformation(
      LPCTSTR lpRootPathName,    //путь к сетевому или локальному
      // тому (пример: "\\MyServer\MyShare\" или "C:\".
      LPTSTR lpVolumeNameBuffer, //буфер - в котором будет храниться
                      // имя тома
      DWORD nVolumeNameSize,     //размер буфера
      LPDWORD lpVolumeSerialNumber, //серийный номер тома
      LPDWORD lpMaximumComponentLength, //размер тома
      LPDWORD lpFileSystemFlags, //тип файловой системы
      LPTSTR lpFileSystemNameBuffer, //название файловой системы
      DWORD nFileSystemNameSize //размер буфера под название ФС
);

Delphi

function GetVolumeInformation(
      lpRootPathName: PChar;    //путь к сетевому или локальному
       //тому (пример: "\\MyServer\MyShare\" или "C:\".
      lpVolumeNameBuffer: PChar; //буфер - в котором будет храниться
                             //   имя тома
      nVolumeNameSize: DWORD;     //размер буфера
      lpVolumeSerialNumber: PDWORD; //серийный номер тома
      var lpMaximumComponentLength, lpFileSystemFlags: DWORD; //размер
                                        // тома и тип файловой системы
      lpFileSystemNameBuffer: PChar; //название файловой системы
      nFileSystemNameSize: DWORD //размер буфера под название ФС
): BOOL; stdcall;

Замечание: Если в качестве первого параметра указать для С/С++  NULL, а для Delphi — nil, то функция будет выполняется для текущего диска (с которого была запущена программа).
Ну а теперь, собственно, для пущего интересу приведу пример как привязать программу к устройству. В данном примере будем привязывать программу к флешке. Смотрим пример:

C/C++

#include
#include
#include
#include
using namespace std;

int main() {
        // Получаем тип носителя с которого запущена программа
        unsigned int drive_type = GetDriveType( NULL );

        char VolumeNameBuffer[100];
        char FileSystemNameBuffer[100];
        DWORD sz,fs;
        unsigned long drive_sn;
        GetVolumeInformationA(
                NULL,
                VolumeNameBuffer,
                100,
                &drive_sn,
                sz,
                fs,
                FileSystemNameBuffer,
                100
        );
        cout << "Volume serial number:\t";
        if(drive_sn == 1018821877)     //сравниваем серийный номер
                cout << "correct" << endl;
        else
                cout << "invalid" << endl;
        cout << "Drive type:\t";
        if(drive_type == DRIVE_REMOVABLE)
                cout << "correct" << endl;
        else
                cout << "invalid" << endl;
        getch();
}

Delphi

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;

var
 SerialNum,dtyp:DWORD;
 a,b:DWORD;
 Buffer,disk :Array[0..255]of char;
begin
  dtyp:=GetDriveType(nil);
  if dtyp = DRIVE_REMOVABLE then
    writeln('Disk(type): Yes')
  else
    writeln('Disk(type): No');
  GetVolumeInformation(
                nil,
                Buffer,
                sizeof(Buffer),
                @SerialNum,
                a,
                b,
                nil,
                0);
  if SerialNum = 1018821877 then //сравниваем серийный номер
    writeln('S\N: Yes')
  else
    writeln('S\N: No');
  readln;
end.

Замечание: Может возникнуть вопрос, а как узнать серийник диска, чтобы знать, с чем сравнивать? Очень просто, для этого пишем тестовую прогу, в которой пишем следующий код:

C/C++

...
    GetVolumeInformationA(NULL, VolumeNameBuffer,100,
                   &drive_sn,sz,fs,FileSystemNameBuffer,100);
...

Delphi

...
     GetVolumeInformation(nil,Buffer,sizeof(Buffer),
             @SerialNum, a,b, nil, 0);
     writeln('S/N drive: ',SerialNum);
     readln;
...

Рекомендуемые статьи для прочтения:
WinAPI: Смена серийного номера тома.

В 1949 годах была опубликована работа Клода Шеннона, где Шеннон доказал абсолютную стойкость шифра Вернама. В этой работе Шеннон показал, что не существует других шифров с подобными свойствами и его выводом стало следующее утверждение: шифр Вернама – самая безопасная криптосистема из всех имеющихся.

Однако, следует заметить, что для того, чтобы шифр действительно был стойким, необходимо выполнение следующих трех правил:

1. Ключ для шифрования выбирается случайным образом.
2. Длина ключа должна быть равна длине открытого текста.
3. Ключ должен использоваться ТОЛЬКО один раз.

А теперь поподробней о самом шифре и процессе шифрования. Так как этот шифр был придуман для компьютерных систем, то следует заметить, что базируется он на двоичной арифметике. Надеюсь что вы знакомы с ней ;).  Основным объектом рассмотрения в данном методе шифрования является логическая операция XOR (взаимоисключающее ИЛИ). Таким образом, так как у нас двоичная арифметика, то все операции будут осуществляется над нулем (0) и единицей (1). Логическая операция XOR, в отличие от операции OR, при логическом сравнении 0 и 1 дает 1,  при сравнении 1 с 1 дает 0, а при 0 с 0 дает 0. Следовательно, если мы выполним операцию XOR над числами 10110 и 11010, то получим: 10110 xor 11010 = 01100. Надеюсь что принцип работы операции XOR понятен.

Далее,  так как шифр работает с двоичной системой исчисления, необходимо понимать, что буквы — это всего лишь некоторая интерпретация числа, то есть число является кодом символа некоторой таблицы кодировок. К примеру, наиболее популярные таблицы кодировок это: ANSI, ASCII и UTF(unicode). Естественно, что в каждой таблице один и тот же символ может иметь разный код, поэтому, во избежании путаницы, имейте это ввиду и используйте одну и ту же кодировку при шифровании и дешифровании.  Замечу, что использовать можно и свою (придуманную) кодировку. Кроме того, данный шифр может использоваться не только на компьютерах. Его можно применить и к тексту написанному на бумаге. Только перед применением надо сделать некие преобразования.

Таким образом, перед тем, как осуществить шифрование, необходимо перевести все символы в их однозначную числовую интерпретацию. Если Вы решили применить шифр в компьютерных системах, то для вас уже существуют соответствующие кодировки и язык программирования, выбранный Вами, скорее всего поддерживает явное или неявное преобразование. И вам остается только произвести над каждой парой операцию XOR. В различных языках это операция определяется по разному, приведу пример: для pasсal/Delphi/Assembler — xor, C/C++ — ^.  Однако, если же Вы  решили применить шифр Вернама к письменному тексту, то, к примеру, дайте каждой букве используемого вами алфавита, соответствующий ей порядковый номер в двоичной системе исчисления. Например, если вы используете русский алфавит (без учета буквы Ё) то это будет выглядеть так: а -> 00000, б -> 00001, в -> 00010, г -> 00011, … я -> 111111. Тем самым мы определили свою таблицу кодировки. После этого, написав сообщение и придумав ключ, преобразуйте каждый символ в их числовое значение, соответствующее вашей таблице кодировки, и после этого осуществляйте операцию XOR над каждой соответствующей парой. Так как данный метод шифрования является симметричным, следовательно, применив операцию XOR к каждой паре символов шифр-текста (шифрограммы) и ключа, мы получим открытый текст.

Программная реализация шифра Вернама.

На основе изученного материала я покажу как реализовать шифр Вернам на С/С++ и pascal/Delphi. Программу целиком писать нет надобности, поэтому будем рассматривать блочную структуру, для того, чтобы каждый мог без особого труда заточить ее под свои надобности. А теперь от слов к делу ;).

Допустим, что у нас есть строка или массив символов — oStr. Это будет открытый текст, который надо зашифровать. Теперь нам надо определить случайный ключ длиной равной длине открытого текста. Для простоты понимания, мы воспользуемся стандартной функцией генерации случайных чисел: random для pascal/Delphi и rand для C/C++. Но замечу сразу что это не лучший вариант в случае, если вы хотите реализовать действительно стойкий шифр. Данный пример выбран из соображения простоты. Теперь покажем как это будет выглядеть в исходном коде:

pascal/Delphi

var
  oStr, key:string;
  i:integer;
begin
  oStr:='Holo word!';  //определяем открытый текст
  randomize; //Необходимая функция для функции random, чтобы последняя каждый раз выдавала случайные значения
//генерируем случайный ключ длиной равной длине открытого текста
  for i:=1 to length(oStr) do
    key[i]:=Chr(random(255)); //генерируем случайное число из диапозона от 0 до 255 и полученое число переводим в символ;
end;


C/C++

int i,len; //Определяем необходимые переменные
  len = strlen("Holo word!");// определяем длину строки открытого текста
  char *oStr = new char[len]; //объявляем динамический массив указанной длины для открытого текста
  char *key = new char[len];  //точно такой же массив объявляем для ключа
  oStr="Holo word!";   //помещаем в массив открытый текст
// определяем ключ случайным образом
  for(i = 0; i < len; i++)
    key[i]=(char)rand()%255;

Так, самое основное мы сделали. Теперь нам осталось лишь реализовать шифрование, для этого мы опишем цикл, в котором мы будем посимвольно осуществлять операцию XOR. Но для этого нам понадобится еще объявить массив приемник, в который мы поместим зашифрованный текст. Смотрим:

pascal/Delphi

procedure shifr_Vernam;
var
  oStr, key, shStr :string;
  i:integer;
begin
  oStr:='Holo word!';  //определяем открытый текст
  randomize; //Необходимая функция для функции random, чтобы последняя каждый раз выдавала случайные значения
//генерируем случайный ключ длиной равной длине открытого текста
  for i:=1 to length(oStr) do
    key[i]:=Chr(random(255)); //генерируем случайное число из диапозона от 0 до 255 и полученное число переводим в символ;
//собственно само шифрование
  for i:=1 to length(oStr) do
    shStr[i]:=oStr[i] xor key[i];
//для наглядности выведем на экран результат работы
  writeLn('Otkrytyi text: ',oStr);
  writeLn('Zashifrovanyi text: ',shStr);
end;


C/C++

void shifr_Vernam
{
   int i,len; //Определяем необходимые переменные
   len = strlen("Holo word!");// определяем длину строки открытого текста
   char *oStr = new char[len]; //объявляем динамический массив указанной длины для открытого текста
   char *key = new char[len];  //точно такой же массив объявляем для ключа
   char *shStr = new char[len];  //массив-приемник для зашифрованного текста
   oStr="Holo word!";   //помещаем в массив открытый текст
// определяем ключ случайным образом
   for(i = 0; i < len; i++)
      key[i]=(char)rand()%255;
//собственно само шифрование
   for(i = 0; i < len; i++)
      shStr[i]=oStr[i]^key[i];
//для наглядности выведем на экран результат работы
   printf("\nOtkrytyi text: %s", oStr);
   printf("\nZashifrovanyi text: %s", shStr);
}

На этом все, реализация шифрования закончена. Надеюсь, что вы догадаетесь как реализовать дешифровку(Подсказка: те же действия нужно провести для шифрованного текста ;) ). Спасибо за внимание.

Замечу, в общем случае таблица Виженера состоит из алфавита, циклически сдвинутого на один символ влево, однако, возможны и другие перестановки — это на Ваше усмотрение. Кроме того, первая строка может представлять собой алфавит, случайным образом перемешанный.

Процесс шифрования выглядит следующим образом: открытый текст (который надо зашифровать) записывается в строчку без пробелов. Далее необходимо определить ключ. Виженер предлагал в качестве ключа использовать сам открытый текст, с добавлением к началу ключа символ, выбранный случайным образом. Но замечу, что не обязательно следовать установленному правилу создателя шифра. В качестве ключа вполне возможно использовать и любую другую последовательность символов длиною равной длине открытого текста.

После всего проделанного, для получения шифр-текста (криптограмма) берем первый символ открытого текста в качестве указателя строки в Таблице Виженера, а стоящую под ним букву — в качестве столбца. На пересечении этой пары из таблицы выписываем символ шифр-текста. Далее повторяем эти действия для всех оставшихся символов. Для примера рассмотрим шифрование открытого текста — «яблочный джем». В качестве ключа будем использовать сам открытый текст с добавлением в начала случайного символа — у меня это вышло «щ». Повторюсь, что ключ может быть образован иным способом, к примеру просто перемешанный случайным образом открытый текст — «ляйычнбо жемд». Но ключ должен быть известен получателю шифра, то есть известна схема перемешивания открытого текста для того, чтобы он мог расшифровать криптограмму. Так, теперь записываем открытый текст в строку без пробелов, а под ней также записываем ключ.

Получаем:

открытый текст:  я б л о ч н ы й д ж е м
ключ:            щ я б л о ч н ы й д ж е
               ---------------------------
шифр-текст:      ш а м щ е д й д н к л с

Для того, чтобы восстановить (расшифровать) открытый текст, необходимо знать шифр-текст и ключ. Далее берем первую букву ключа определяем соответствующий ей столбец в Таблице Виженера и пробегаемся по нему сверху вниз пока не встретим первый символ шифр-текста. Как только встретили нужный символ, выписываем букву указывающую на эту строку — таким образом мы получаем первый символ открытого текста. Проделываем те же действия для оставшихся символов ключа и шифр-текста.

Шифр Виженера был незаслуженно забыт на долгое время. И многие по сей день под этим шифром понимают самый простой вариант с коротким ключевым словом и с таблицей, состоящей из обычных алфавитов.

А теперь рассмотрим программную реализацию шифра Виженера на Delphi.

Для начала нам необходимо сгенерировать саму таблицу Виженера. Для этого

необходимо объявить следующие глобальные переменные:

mas_alf: array[1..32] of char =

('А','Б','В','Г','Д','Е','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С

','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ь','Ы','Ъ','Э','Ю','Я');
tab_Vig: array[1..32,1..32] of Char;

Ну а теперь напишем код генерации таблицы:

var
  i,j,k,n:integer;
begin
 k:=0;
 n:=k;

 for i:=Ord('А')-191 to Ord('Я')-191 do
 begin
   k:=n+1;
   for j:=Ord('А')-191 to Ord('Я')-191 do
    begin
     if k = 33 then
        k:=1;
     tab_vig[i][j]:=mas_alf[k];
     k:=k+1;
    end;
    n:=n+1;
 end;
end;

Таблица есть и можно смело приступать к реализации процедуры шифрования. Смотрим:

var
  key : array [0..255] of Char;
  s:char;
  k:Boolean;
  length_key,length_text,i,j,c,stroka,stolbec: integer;
begin
  Label5.Caption:='';//
  Memo2.Clear;//
  length_key:=Edit1.GetTextLen;
  Edit1.GetTextBuf(key,sizeof(key));
  length_text:=Memo1.GetTextLen;
//выводим таблицу Виженера
 for i:=Ord('А')-191 to Ord('Я')-191 do
 begin
    for j:=Ord('А')-191 to Ord('Я')-191 do
    begin
      Label5.Caption:= Label5.Caption +'  '+ tab_Vig[i][j];
    end;
    Label5.Caption := Label5.Caption + #13+#10;
 end;
//приступаем к процессу шифрования
 j:=1;
 c:=0;
 k:=false;
 Memo2.Lines.Add('Зашифрованный текст:');
 Memo2.Lines.Add('------------------------');
  for i:= 0 to Memo1.Lines.Count-1 do
  begin
     s:=Memo1.Lines[i][j];
     if ((s <> #0) or (s <> #13)) then
     while k = false do
     begin
       if Ord(key[c])>223 then
         stolbec:=Ord(key[c])-32-191
       else
         stolbec:=Ord(s)-191;
       if Ord(s)>223 then
         stroka:=Ord(s)-32-191
       else
         stroka:=Ord(s)-191;
       Memo2.Text:=Memo2.Text+tab_Vig[stroka][stolbec];
       if(c < length_key-1)then
         c:=c+1
       else
         c:=0;
       j:=j+1;
       s:=Memo1.Lines[i][j];
       if(s = #0) then
         k:=true;
     end;
     k:=false;
     j:=1;
  end;
 Memo2.Lines.Add('------------------------');
end;

Так как шифрование реализовано, значит пора рассмотреть процедуру расшифровки. Смотрим:

var
  key : array [0..255] of Char;
  s:char;
  k:Boolean;
  length_key,length_text,i,j,c,stroka,stolbec,q: integer;
begin
  Label5.Caption:='';//
  Memo2.Clear;//
  length_key:=Edit1.GetTextLen;
  Edit1.GetTextBuf(key,sizeof(key));
  length_text:=Memo1.GetTextLen;
  j:=1;
  c:=0;
  k:=false;
  Memo2.Lines.Add('Расшифрованный текст:');
  Memo2.Lines.Add('------------------------');
  for i:= 0 to Memo1.Lines.Count-1 do
  begin
     if Ord(Memo1.Lines[i][j])>223 then
         s:=Ord(Memo1.Lines[i][j])-32-191
     else
         s:=Ord(Memo1.Lines[i][j])-191;
     s:=Memo1.Lines[i][j];
     if ((s <> #0) or (s <> #13)) then
     while k = false do
     begin
       if Ord(key[c])>223 then
         stolbec:=Ord(key[c])-32-191
       else
         stolbec:=Ord(s)-191;
       for q:=1 to 32 do
       begin
         if tab_Vig[q][stolbec] = s then
         begin
           Memo2.Text:=Memo2.Text+Chr(q+191);
            break;
         end;
       end;

       if(c < length_key-1)then
         c:=c+1
       else
         c:=0;
       j:=j+1;
       s:=Memo1.Lines[i][j];
       if(s = #0) then
         k:=true;
     end;
     k:=false;
     j:=1;
  end;
 Memo2.Lines.Add('------------------------');
end;

Что ж, на этом все, если Вы обнаружили какие то неточности, или что то не понятно прошу отписывать их на форуме ;). Спасибо за внимание.

Рабочий пример скачать.

Рекомендую для прочтения:
Книга Чарльз Уэзерелл, «Этюды для программистов». Скачать
Статья о книге. Читать

Первое что нам надо рассмотреть — это средства для работы с системой установки удаленного доступа (RAS). Данное средство представляет собой набор API-функций, которые хранятся в системной библиотеке rasapi.dll, используемой ОС.

Это достаточно мощная библиотека и для решения нашей проблемы нам понадобятся не все функции. Поэтому мы рассмотрим только необходимые нам. Перечислю их:
RasEnumConnections – функция для проверки наличия установленных соединений;
RasEnumEntries – функция получения списка соединений(зарегистрированных) в системе;
RasDial – функция установки соединения.

Что ж, теперь необходимо сформулировать тех. задание решения поставленной задачи. Итак:
1) Необходимо определить/получить список соединений (зарегистрированных в системе)
2) Реализовать процедуру дозвона
3) Реализовать обработчик-таймер, который будет проверять, через определенный интервал времени, статус установленного соединения
4) Написать процедуру ведения лога – пользовательский журнал.

Кроме того, чтобы программы была более гибкой, то мы реализуем дружественный интерфейс, в котором позволим пользователю выбирать из списка соединений (которых может быть более одного ;) ). Поэтому начнем мы с последнего.

Для этого запустим Delphi, создадим новый проект и сохраним его под названием, к примеру ControlConn. Скинем на форму:
- 2 ListBox’a
- 3 кнопки
- 1 поле ввода (для указания интервала проверки статуса соединения).

Теперь проведем некоторое приготовление. Один ListBox назовем ActivCon – в него будут занесены сведения о существующих соединениях, а второй назовем ControlCon – в нем будут находится соединения которые необходимо контролировать. Одна из кнопок будет отвечать за запуск процесса контроля – и будет иметь недвусмысленное имя start ;), оставшиеся 2-е кнопки необходимы для манипулирования содержимым ListBox’ов, добавить в список контролируемых соединений и удалить из списка. Поле ввода назовем interval.

Создадим для формы событие OnActivate, на вкладке Event в инспекторе объектов. В нем мы опишем код, который будет получать список соединений. Кстати, замечу для тех, кто только начинает и тех, кто этого не знал, но программирует уже давно, что хорошим стилем программирования является описание всех своих функций и процедур, используемых в проекте, в отдельном модуле. В данном случае у нас нет необходимости выносить код в отдельную функцию. Но стоит иметь в виду, что в этом есть два основных плюса:
- сам проект не перегружен большим количеством программного кода
- в случае необходимости редактирования некоторых функция проекта, гораздо удобнее загрузив в редактор отдельный модуль.

При этом не возникнет никаких проблем с согласованием с промежуточным кодом в самом проекте.

А теперь код:

procedure TForm1.FormActivate(Sender: TObject);
var
bSize    : integer; //размер массива, который будут помещаться сведения об «удаленных соединениях»
cCount           : integer; //количество удаленных соединений
cList             : array[1..MaxEntries] of TRasEntryName; //массив, в который будут помещены сведения об удаленных соединениях
// где MaxEntries – константа, представляющая максимально возможное количество соединений, объявлена в модуле RasUnit.pas
x,rslt         : integer;
begin
cList[1].dwSize:=SizeOf(TRasEntryName);
bSize:=SizeOf(TRasEntryName)*MaxEntries;
//получаем список соединений
rslt:=RasEnumEntries(nil, nil, @cList[1], bSize, cCount);
//если функция выполнилась успешно и есть соединения
if (rslt=0) and (cCount>0) then
begin
// то заполняем список соединений ActivCon
for x:=1 to cCount do
ActivCon.Add(cList[x].szEntryName);
end;
end;

Теперь при запуске программы у нас в списке ActivCon будут перечислены все зарегистрированные в системе ras-соединения. Далее нужно добавить возможность манипулирования списком соединений. Следующий код для кнопки «Добавить»:

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
if ActivCon.SelCount=0 then
exit;
for j:=0 to ActivCon.SelCount-1 do
if search(ActivCon.Items.Strings[ActivCon.ItemIndex], ControlCon) = -1 then
begin
ControlCon.Items.Add(ActivCon.Items.Strings[ActivCon.ItemIndex]);
ActivCon.Items.Delete(ActivCon.ItemIndex);
end
else
begin
Application.MessageBox('Такое соединение в списке уже есть!','Внимание');
end;
end;

Для кнопки «Удалить»:

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
begin
if ControlCon.SelCount=0 then
exit;
for j:=0 to ControlCon.SelCount-1 do
if search(ControlCon.Items.Strings[ControlCon.ItemIndex], ActiveCon) = -1 then
begin
ActiveCon.Items.Add(ControlCon.Items.Strings[ControlCon.ItemIndex]);
ControlCon.Items.Delete(ControlCon.ItemIndex);
end
else
begin
Application.MessageBox('Такое соединение в списке уже есть!','Внимание');
end;
end;

В обоих листингах используется функция search, которой в качестве параметра передается строка, наличие которой необходимо проверить в списке соединений:

function search(str:string; lsb:TListBox):integer;
var
i,j:integer;
begin
for i:=0 to lsb.Count-1 do
begin
j:=i;
if lsb.Items[i] = str then
begin
search:=j;
exit;
end;
end;
search:=-1;
end;

Да, кстати, самое главное то мы забыли. Нам еще нужен таймер, добавим его. Кроме того, нам необходимо объявить глобальные переменные и структуру состояния соединения, объявим их:

type
TMyDialParam = Record
AMsg:Integer;
AState:TRasConnState;
AError:Integer;
End;

var
MyDialParam:TMyDialParam;
hRas: ThRASConn;

Кроме глобальных переменных, нам нужно определить CallBack-процедуру, которая необходима для вызова функции RasDial().

procedure RasCallback(msg: Integer; state: TRasConnState; error: Integer); stdcall;
begin
MyDialParam.AMsg:=msg;
MyDialParam.AState:=state;
MyDialParam.AError:=error;
{
Здесь можно описать обработчик полученных сообщений о статусе установки соединения.
}
end;

Теперь создадим для Таймера событие onTimer и напишем в нем следующий код:

procedure TForm1. Timer1Timer(Sender: TObject);
var
rcArray: array[1..100]of TRASCONN;
rStatus: TRASCONNSTATUS;
dwRet: integer;
rcsize: integer;
dw2: integer;
i,j,tr:integer;
s:string;

begin
tr:=0;
//отключаем таймер
Timer1.Enabled:=false;
if  Edit1.Text = ‘’ then      // Если интервал не указан
Timer1.Interval:=5000;  // то устанавливаем значение по умолчанию 5 секунд
else
Timer1.Interval:=StrToint(Edit1.Text)*1000;
//производим подготовку для получения списка работающих соединений(уже установленных)
rcsize:= sizeof(rcArray);
ZeroMemory(@rcArray, rcsize);
rcArray[1].dwSize := sizeof(TRASCONN);
dwRet := RasEnumConnections(@rcArray, rcsize, dw2);
ZeroMemory(@rStatus, sizeof(TRASCONNSTATUS));
rStatus.dwSize := sizeof(TRASCONNSTATUS);
// если количество работающих соединений равно 0, тогда
if dw2 = 0 then     //запускаем их поочередно
begin
if ControlCon.Count <> 0 then // проверяем не пуст ли список контролируемых соединений
for i:=1 to ControlCon.Count-1 do
begin
MemError.Lines.Add(TimeToStr(Time)+' соединение не установлено '+ ControlCon.items[i]+'. Запускаю.'); //заносим в журнал сообщение о разрыве
//и вызываем функцию установки соединения
ConnectEntry(ControlCon.Items[i],i);
end;
end
else
begin
//если же было определено что соединение хоть одно но запущено
if ControlCon.Count <> 0 then // то мы опять же проверяем список
begin
for i:=0 to ControlCon.Count-1 do  // после чего пробегаем по всему списку и сверяемся с полученным списком рабочих соединений, если в полученном списке какие-то соединения отсутствуют, то мы их немедленно устанавливаем
begin
for j:=1 to dw2 do
begin
if ControlCon.Items[i] = rcArray[j].szEntryName then
begin
tr:=1;
MemError.Lines.Add(TimeToStr(Time)+' соединение не установлено '+ ControlCon.items[i]+'. Запускаю.'); //заносим в журнал сообщение о разрыве
end;
end;
if tr = 1 then
// устанавливаем соединение
ConnectEntry(ControlCon.Items[i],i);
end;
end;
end;
//запускаем таймер
Timer1.Enabled:=true;
end;

Теперь опишем процедуру установки соединения:

procedure ConnectEntry(nameEntry: string);
var
fl : LongBool;
r  : Integer;
DialParams  : TRasDialParams;
hR: ThRASConn;
begin
//забиваем DialParams нулями
FillChar(DialParams, SizeOf(TRasDialParams), 0);
//Инициализируем переменную DialParams, заполнив поля dwSize и szEntryName
with DialParams do
begin
dwSize:=Sizeof(TRasDialParams);
StrPCopy(szEntryName, nameEntry);
end;
//Теперь вызовем функцию для заполнения оставшихся полей структуры DialParams
r:=RasGetEntryDialParams(nil, DialParams, fl);
//если все прошло успешно
if r=0 then
begin
//вызываем функцию «дозвона»
r:=RasDial(nil, nil, DialParams, 0, @RasCallback, hRas);
end;
end;

На этом все. Статью заканчивал в спешке, поэтому в случае обнаружения каких либо неточностей, непоняток или ошибок — просьба сильно не ругаться, а отписываться по всем замечаниям и не только ;). Всем спасибо!

Необходимые модули:
rasunit — Скачать