Шифрование Bitmap

Delphi , Синтаксис , Шифрование

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure EncryptBMP(const BMP: TBitmap; Key: Integer);
 var
   BytesPorScan: Integer;
   w, h: integer;
   p: pByteArray;
 begin
   try
     BytesPorScan := Abs(Integer(BMP.ScanLine[1]) -
       Integer(BMP.ScanLine[0]));
   except
     raise Exception.Create('Error');
   end;
   RandSeed := Key;
   for h := 0 to BMP.Height - 1 do
   begin
     P := BMP.ScanLine[h];
     for w := 0 to BytesPorScan - 1 do
       P^[w] := P^[w] xor Random(256);
   end;
 end;


 procedure TForm1.Button1Click(Sender: TObject);
 begin
   EncryptBMP(Image1.Picture.Bitmap, 623);
   Image1.Refresh;
 end;

 { Call the function again to decrypt it }
 { Zum Entschlusseln die Funktion nochmals aufrufen }

Программный код на Delphi, который шифрует битмап-изображение с помощью простого алгоритма XOR с рандомной ключом. Шифрование происходит путем перебора каждого пикселя в изображении и выполнения исключительного операции OR между оригинальным значением пикселя и случайным байтом, генерируемым функцией Random.

Содержание кода:

1. Процедура EncryptBMP принимает два параметра: BMP, объект TBitmap, представляющий изображение для шифрования, и Key, целое число, используемое как семя генератора случайных чисел.
2. Procedure first calculates the number of bytes per scan line in the bitmap using the ScanLine property.
3. It then sets the random seed using the provided key value.
4. The procedure iterates over each pixel in the image, starting from the top-left corner and moving down to the bottom-right corner. For each pixel, it performs an exclusive OR operation between the original pixel value and a random byte generated by the Random function.
5. The encrypted image is stored in the original bitmap object.

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

Обратите внимание, что это очень простой и не безопасный алгоритм шифрования. В практике вы бы хотели использовать более robust алгоритм шифрования,such as AES or RSA, и следовать лучшим практикам для безопасного кодирования и хранения данных.

Некоторые предложения по улучшению:

• Вместо использования функции Random с фиксированным значением семя,consider using a more secure random number generator, such as the FIPS-186 approved Fortuna random number generator.
• Consider using a more robust encryption algorithm that is designed to be secure against attacks, such as AES or RSA.
• Avoid storing sensitive data in plain text, and instead store it encrypted. This will prevent unauthorized access to the data even if an attacker gains access to your system.
• Use secure coding practices, such as input validation and error handling, to prevent common security vulnerabilities like SQL injection and buffer overflow attacks.
• Consider using a secure storage mechanism, such as a hardware security module (HSM) or a trusted execution environment (TEE), to store sensitive data.

Процедура EncryptBMP шифрует указанный битмап-образец зашифровыванием каждого байта с помощью функции Random и ключом, переданным в процедуру.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Шифрование ::