2005/3/28在瀏覽本站的文章,有一篇的主題或內容是如何阻止別人打開圖檔(bmp),回答人的說法是對圖檔的點或像素給與^運算(因為好像是在c builder)xor運算,這樣即使打開圖檔也是亂碼,自己要看時再^運算或xor運算就能看圖檔,這文章在2005/3/29找一整天居然找不到,是否是太久的文章已被刪除,還是其他原因刪除,拜託知道的人告訴我一下.

請大家幫忙一下若沒見到那文章給個留言,我一直找不到的結果使我懷疑我是不是記錯了.

看看是不是這一篇？這篇講的是 Delphi 與 JPEG，不是 BCB 與 BMP：    http://delphi.ktop.com.tw/topic.php?topic_id=42301

放一個 Image1 , Button1 ，Image1 先載入圖片，Button1.OnClick 如下所示 按一下會編碼，再按一下可還原。 編碼後的 Image1 可存成檔案，別人看是亂亂的，還可以載入在解碼還原成原圖檔。    

procedure TForm1.Button1Click(Sender: TObject);
  procedure EncriptaBMP(const BMP:TBitmap;Clave: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:=Clave;
    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;    begin
  //Image1 要先載入 bmp 圖片
  EncriptaBMP(Image1.Picture.Bitmap,666);
  Image1.Refresh;
end;    

JackTasy

------
JackTasy

引言: 看看是不是這一篇？這篇講的是 Delphi 與 JPEG，不是 BCB 與 BMP： http://delphi.ktop.com.tw/topic.php?topic_id=42301

謝謝你正是這篇文章