Proprietary software by ® Rudoysecurity™

Класс TMouseEntropyCollector

Модуль

Объявления

type TMouseEntropyCollector = class(TObject)

Описание

Класс для сбора энтропии от движений мыши по всему экрану. Автор: © Рудой Андрей Игоревич, 2005 - 2025 г.

Иерархия

Обзор

Поля

Private FBuffer: TBytes;
Private FTargetSize: Integer;
Private FProgressBar: TProgressBar;
Private FIsCollecting: Boolean;
Private FStartTime: Cardinal;
Private FLastMousePos: TPoint;
Private FForm: TForm;

Методы

Public constructor Create;
Public destructor Destroy; override;
Private function IsEscapePressed: Boolean;
Public procedure CancelCollection;
Public procedure CollectMouseEntropy(Size: Integer; ProgressBar: TProgressBar; out Buffer: TBytes);
Private procedure AddToBuffer(const Data; DataSize: Integer);
Private procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Private procedure UpdateProgress;

Описание

Поля

Private FBuffer: TBytes;

This item has no description.

Private FTargetSize: Integer;

This item has no description.

Private FProgressBar: TProgressBar;

This item has no description.

Private FIsCollecting: Boolean;

This item has no description.

Private FStartTime: Cardinal;

This item has no description.

Private FLastMousePos: TPoint;

This item has no description.

Private FForm: TForm;

Форма для перехвата событий мыши

Методы

Public constructor Create;

Создает экземпляр сборщика энтропии. Автор: © Рудой Андрей Игоревич, 2005 - 2025 г.

Public destructor Destroy; override;

Освобождает ресурсы. Автор: © Рудой Андрей Игоревич, 2005 - 2025 г.

Private function IsEscapePressed: Boolean;

Проверяет, была ли нажата клавиша ESC. Автор: © Рудой Андрей Игоревич, 2005 - 2025 г.

Public procedure CancelCollection;

Прерывает сбор энтропии

Public procedure CollectMouseEntropy(Size: Integer; ProgressBar: TProgressBar; out Buffer: TBytes);

Собирает энтропию от движений мыши по всему экрану. Автор: © Рудой Андрей Игоревич, 2005 - 2025 г.

Для работы создает прозрачную форму на весь экран для перехвата событий мыши

Параметры
Size
Целевой размер буфера в байтах
ProgressBar
ProgressBar для отображения прогресса
Buffer
Выходной буфер с собранной энтропией
Private procedure AddToBuffer(const Data; DataSize: Integer);

Добавляет данные в буфер энтропии

Private procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

Обработчик движения мыши для формы. Автор: © Рудой Андрей Игоревич, 2005 - 2025 г.

Private procedure UpdateProgress;

Обновляет отображение прогресса. Автор: © Рудой Андрей Игоревич, 2005 - 2025 г.

© Andrey Igorevich Rudoy, 2005-2025 jear
Сгенерировал PasDoc 0.16.0-snapshot.