Недавно добавленные исходники

•  3D Designer  124

•  Sik Screen Capture  98

•  Patch Maker  86

•  Айболит (remote control)  102

•  ListBox Drag & Drop  82

•  Доска для игры Реверси  1 422

•  Графические эффекты  94

•  Рисование по маске  70

•  Перетаскивание изображений  74

•  Canvas Drawing  79

•  Рисование Луны  148

•  Поворот изображения  60

•  Рисование стержней  52

•  Paint on Shape  48

•  Генератор кроссвордов  58

•  Головоломка Paletto  73

•  Теорема Монжа об окружностях  108

•  Пазл Numbrix  53

•  Заборы и коммивояжеры  84

•  Игра HIP  63

•  Игра Go (Го)  50

•  Симулятор лифта  53

•  Программа укладки плитки  55

•  Генератор лабиринта  96

•  Проверка числового ввода  44

•  HEX View  100

•  Физический маятник  100

•  Задача коммивояжера  128

•  Автомобильная пробка  51

•  Квадратные сетки из слов  45

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Шифрование Bitmap



Оформил: DeeCo

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 }




Похожие по теме исходники

Codeo (шифрование Виженера / Цезаря)

ENRUPT шифрование

RTEA шифрование

Vigenere Plus (шифрование Виженера)

 

ARIA шифрование

Crypton шифрование

Шифрование Aes, Des, Плейфер

RSA шифрование через OpenSSL

 

Bitmap Sharpen Filter

Simple Bitmap Rotation

Bitmap 32Bit Demo

Thread Bitmap (pencil drawings)

 



Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter