DÉCRYPTER LES FICHIERS IMAGE JPG (VOUS AVEZ ÉGARÉ LA CLÉ)

Signaler
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
-
Messages postés
1
Date d'inscription
mardi 13 février 2007
Statut
Membre
Dernière intervention
12 mars 2010
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/17322-decrypter-les-fichiers-image-jpg-vous-avez-egare-la-cle

Messages postés
1
Date d'inscription
mardi 13 février 2007
Statut
Membre
Dernière intervention
12 mars 2010

Salut moi ce serai pour decrypter les photos de la naissance de mon fils que j'ai encrypté avec windows xp pro et depuis mon passage sur vista impossible de les lire et je n'ai ni l'ancienne version de xp ni rien d'autres ...je ne sais plus comment faire en plus ma femme me met la pression aidez moi SVP !!!!
Est ce possible de les decrypter ???
Merci d'avance a tous !!!
Messages postés
1725
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
11 avril 2021
8
Vraiment très intéressant.
Je testerai à fond... plus tard... fatigué...

Ben, euh... fais de beaux rêves, Cirec ^^
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
44
Voilà
cette procedure est vraiment la plus rapide de toutes :

procedure DecodeMemoryStreamBlock(const FromFileName, ToFileName: string);
var
Key,
PosPointer: LongWord;
Buffer : Array[1..1024] of Byte;
MStream: TMemoryStream;
NbALire, NbLu, TotalLu : LongInt;
i: Integer;
begin
MStream := TMemoryStream.Create;
try
MStream.LoadFromFile(FromFileName);
MStream.Seek(0, soFromBeginning);
MStream.Read(Key, 4);
Key := Key xor $E0FFD8FF;
MStream.Seek(0, soFromBeginning);
TotalLu := 0;
NbALire := SizeOf(Buffer);
Repeat
If (TotalLu + NbALire) > MStream.Size Then NbALire := MStream.Size - TotalLu;
PosPointer := MStream.Position;
NbLu := MStream.Read(Buffer, NbALire);
For I:= 1 to NbLu do
Buffer[I] := Buffer[I] Xor Key;
MStream.Position := PosPointer;
MStream.WriteBuffer(Buffer, NbLu);
TotalLu := TotalLu + NbLu;
Until TotalLu >= MStream.Size;
MStream.SaveToFile(ToFileName);
finally
MStream.Free;
end;
end;


Bonne nuit ;-)
@+
Cirec
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
44
Ce qui est bizarre c'est que DecodeMemoryStream est plus lent
que la mienne ???

je vais essayer un mix des deux ...
@+
Cirec
Afficher les 24 commentaires