[Антонн]

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

[Konrad]

И при чем тут криптография?
Это стеганография.

Набери в гугле "стеганография bmp delphi"

П.с.: это для учебных целей?

[Антонн]

Да Это для учебных целей.
Можешь подсказать как имея массив с осписением цвета пикселей (RGB) сохранить обратно в изображение формата bmp.
Помогите пожалуйста очень срочно надо.

[x128]

Код:

var
  x,y: integer;
  dst: pByteArray;
  bmp: TBitmap;
...
bmp:=TBitmap.Create;
bmp.PixelFormat:=pf24bit;
bmp.Height:=ymax;
bmp.Width:=xmax;
for y:=0 to ymax-1 do begin
  dst:=bmp.Scanline[y];
  for x:=0 to xmax-1 do begin
     dst[x*3+0]:=значение из масива B
     dst[x*3+1]:=значение из масива G
     dst[x*3+2]:=значение из масива R
  end;
end;
bmp.SaveToFile('имя файла');
bmp.Destroy;