Шифрование картинки

[Serg-Grin]

Здрвствуйте. Я создаю игру, в ней много картинок. Как защитить картинки, чтобы их не могли просмотреть ?. Например:
- Есть картинка в директории image.(любой формат только не bmp.jpg,png какой-то выдуманый) чтобы не возможно было просмотреть ее.
А когда нажимаешь на button, чтобы она открывалась на форме в image1. точнее при открытии она перекодировалась с (неизвестного формата) в bmp, jpg , png.
Как можно реализовать такое. Помогите ?

[Вадим Буренков]

Я этим не занимался, но можно предстваить содержимое как текст, и кодировать и декодировать его по какому-либо алгоритму. Например с помощью функции ord получать номер символа и изменять его при кодировании. Хотя это бред. Есть специальные модули, используемые для игр, но не настолько простых, что графика там выводится в image.
И вообще зачем тебе это? От кого прятать отгугленые или нарисованные в Paint текстурки? Хотя если ты мастерский художник....

[Serg-Grin]

Ну вообще было бы круто защитить картинки.
Вот еще у меня проблема с игрой:
http://programmersforum.ru/showthread.php?t=71314

[raxp]

дык, считай сигнатуру с картинки, измени пару байт (к примеру в jpg JFIF = 4A 46 49 46, 4A меняем на 1С к примеру), а то и один, запиши обратно на тоже место, картинку и нельзя будет посмотреть... в своем проекте обратная операция... вот вам простейшая шифровка

[Beermonza]

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

[Serg-Grin]

Помогите пожалуйста реализовать это все в коде

[Alex Cones]

Не знаю, как остальные, а лично мой метод - переписать всю картинку в бинарный вид, а палитру хранить отдельно:

Procedure LoadBinaryImages;
Var
 F,F2:File;
 FFLine:String;
 X,Y:SmallInt;
 I:Byte;
 SomeBit:Byte;
 N:Array[0..15] of Integer;
 MaxX,MaxY:SmallInt;
Begin
 AssignFile(F,Directory.Resource+'\Interface.pack');
 Reset(F,SizeOf(Byte));
 AssignFile(F2,Directory.Resource+'\Palette.pal');
 Reset(F2,SizeOf(N));
 FFLine:='';
 MaxX:=0;
 MaxY:=0;
 While Not (Eof(F)) do
  Begin
   BlockRead(F,SomeBit,1);
   FFLine:=FFline+IntToHex(SomeBit,2);
  End;
 For I:=0 to 26 do
  Begin
   BlockRead(F2,N,1);
    Case I of
     0..1,4..5,7..8,11..12,15..16,20..23,25..26: Begin MaxX:=29; MaxY:=17; End;
     2..3,9..10: Begin MaxX:=61; MaxY:=17; End;
     6: Begin MaxX:=282; MaxY:=47; End;
     13:Begin MaxX:=9; MaxY:=372; End;
     17:begin MaxX:=9; MaxY:=372; End;
     14: Begin MaxX:=282; MaxY:=14; End;
     18..19: Begin MaxX:=152; MaxY:=36; End;  // (!) 37 = 36!
     24: Begin MaxX:=300; MaxY:=28; End;
    End;
   CreateBinImage(MaxX,MaxY, Bit[I]);
   For Y:=0 to MaxY-1 do
    Begin
     For X:=0 to MaxX-1 do
      Begin
       Bit[I].Canvas.Pixels[X,Y]:=N[StrToInt('$'+Copy(FFLine,1,1))];
       Delete(FFLine,1,1);
      End;
    End;
  End;
 CloseFile(F);
 CloseFile(F2);
End;

[Lime]

В приложении пример.
Думаю с открытием/сохранением и конвертацией форматов проблем не будет ...

[Serg-Grin]

Спасибо всем