Contenu | Rechercher | Menus

Annonce

Si vous avez des soucis pour rester connecté, déconnectez-vous puis reconnectez-vous depuis ce lien en cochant la case
Me connecter automatiquement lors de mes prochaines visites.

À propos de l'équipe du forum.

#1 Le 12/05/2007, à 20:46

lebossejames

comment décrypter une image .jpg

bonjour!

j'ai formatté windows mais mes images était crypté je ne peux plus les décrypter sous windows .

je voulais savoir s'il ya un moyen pour y remedier sous linux .

merci d'avance !!

Hors ligne

#2 Le 12/05/2007, à 21:15

jobherzt

Re : comment décrypter une image .jpg

cryptée comment ? avec quel logiciel, quel algorithme ?

sans plus de detail ca sera difficile de t'aider...

Hors ligne

#3 Le 12/05/2007, à 22:09

Link31

Re : comment décrypter une image .jpg

Essaie avec ce programme :

wget http://siteinternet.perso.cegetel.net/jpegdecrypt
chmod +x jpegdecrypt
./jpegdecrypt image_source image_cible

Je l'ai écrit en 15min d'après un code trouvé sur Google, et je n'ai pas d'images cryptées pour tester, donc je ne suis pas sûr que ça fonctionne. Mais essaie toujours.

Le source :

program jpegdecrypt;

uses JPEGLIB, SysUtils, Classes;

procedure Decrypte(FichierSource, FichierCible: String);
var Flux1, Flux2, Cle, i: LongWord;
    MStream: TMemoryStream;
begin
  MStream := TMemoryStream.Create;
  try
    WriteLn('Loading '+FichierSource);
    MStream.LoadFromFile(FichierSource);
    MStream.Seek(0, soFromBeginning);
    MStream.Read(Flux1, 4);
    if Flux1 = $E0FFD8FF then      // si fichier jpg non codé...
    begin
      WriteLn('Le fichier n''est pas crypté');
      //MStream.Free; // on ferme le fichier
      //Format('%3.2f Mo', [EspaceRequis / (1024 * 1024)]);
      exit;               // et on sort
    end;
    Cle := Flux1 Xor $E0FFD8FF;
    MStream.Seek(0, soFromBeginning);
    while True do
    begin
      i := MStream.Position;
      MStream.Read(Flux1, 4);
      Flux2 := Flux1 Xor Cle;
      MStream.Position := i;
      MStream.Write(Flux2, 4);
      MStream.Position := i + 4;
      if MStream.Position >= MStream.Size then Break;
    end;
    MStream.SaveToFile(FichierCible);
  finally
    MStream.Free;
  end;
end;

begin
  If ParamCount = 2 then
  begin
    if FileExists(ParamStr(1)) then Decrypte(ParamStr(1), ParamStr(2))
     else WriteLn(ParamStr(1)+' : fichier introuvable');
  end
  else begin
    WriteLn('Usage:');
    WriteLn('./jpegdecrypt fichier_source fichier_cible');
  end;
end.

Dernière modification par Link31 (Le 12/05/2007, à 22:11)

Hors ligne