jpg kayderken şifre koymak

[a_self_lion]

Kod: Tümünü seç

var
  MyJPEG : TJPEGImage;
  MyBMP : TBitmap;
begin
  MyBMP := TBitmap.Create;
  try
    with MyBMP do
    begin
      LoadFromFile('c:\...\'+ DosyaAdi +'.BMP');
      MyJPEG := TJPEGImage.Create;
      try
        with MyJPEG do
        begin
          Assign(MyBMP);
          CompressionQuality := 12;
          Compress;
          SaveToFile('c:\...\'+ DosyaAdi +'.jpg');
        end;
      finally
        MyJPEG.Free;
        MyJPEG := nil;
      end;
    end;
  finally
    MyBMP.Free;
    MyBMP := nil;
  end;

Bu kodda sizlerin yardımıyla bmp yi jpg dönüştürdüm ve ve belirli bir klasöre kaydettiriyorum.
Burda yapmak istediğim
1- Bu Jpg dosyasını kaydederken bir şifreli olarak kaydedebilirimiyiz.
2- bizim kendi delphide yapacağımız bir küçük görüntüleme programıyla bunların şifrelerini de çözerek görüntüleyebilirmiyiz.
Teşekkürler.

[mkysoft]

evet yapalirsin. dosya şifreleme algoritmalarına bak, makaleler başlığında yayınlanmıştı. Şifrelersin, sonra açarsın ve ekrana yüklersin.

[a_self_lion]

Bmp Resmi şifreliyor

Kod: Tümünü seç

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('Hata');
  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;

bunla da şifreli ise şifre açılıyor şifresiz ise şifreleniyor.

Kod: Tümünü seç

EncryptBMP(Image1.Picture.Bitmap, 623);
Image1.Refresh;

Şimdi Ben
1-Bir resmi bmp olan jpg dönüştürmeden önce Yukardaki cryptyBMp ile şifreledim Oldu ve jpg önüştürdüm kaydettim. Kontrol ettim güzel şifrelenmiş bir şekilde kayıtlı.
2- Bu dönüşen jpg resmini tekrar çağırdım ve bmp ye dönüştürdüm. Dönüştü.
3- ve ardından tekrar cryptyBMP ye ile açmaya çalıştım Yani ilk kaydettiğim görüntüyü geri kazanmak için ama bana bu resmi şifreli haliye şifreli hali ile tekrar şifreledi ve aynı şifreli halini ger getird.
Burda yapmak istediğim
A- Elimde ki bmp resmini şifrelemek
B- Bunu jpg ile sıkıştırıp kaydetmek veya jpg ile sıkıştırdıktan sonra da şifreleyebiliriz bunu bulamadım.(Sanırım bu olsa sorun çözülecek gibi)
C- Formda bir image içinde bu önce şifrelenmiş resmi şifresini çözerek image de görmek
Bunu nasıl yapılabilir.