|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 CRYPTOGRAPH
 Information sur la source
 Description
bon c est un petit programme qui permet de ' crypter ' une image .
La fonction de cryptage se fait ac shr et xor et le decryptage ac xor et shl
Ce n est pas un reel cryptage je pense mais
Le but n est pas de faire un programme de cryptage mais juste une application marrante .
J ai mis un exemple et les valeurs pr le decrypter sont 4 , la deuxieme il ne faut pas y toucher
 Source
- TypeRGB = Record
- Bleu, Vert, Rouge : Byte;
- End;
- TypeTRGBArray = Array [0..12000] Of TypeRGB; // pour la largeur de l'image
- TypePRGBArray = ^TypeTRGBArray;
-
-
- procedure PRDecrypter(DEimage:Timage;Gauge1:Tgauge;ValSHL:integer;ValXor:integer);
- var
- Scan : TypePRGBArray;
- x,y:integer;
- ir,iv,ib,mv,mb,mr,Fin: Integer;
- begin
- gauge1.MaxValue:=DEimage.Picture.Bitmap.Height-1 ;
-
- for y:=0 to DEimage.Picture.Bitmap.Height-1 do
- begin
- gauge1.Progress:=y;
- Scan := DEimage.picture.Bitmap.ScanLine[Y];
- for x:=0 to DEimage.Picture.Bitmap.Width-1 do
- begin
-
- // Valeurs en rouge vert et bleu
- mR := Scan[X].Rouge;
- mV := Scan[X].Vert;
- mB := Scan[X].Bleu;
- // Transo en rgb
- fin:=rgb(mr,mv,mb);
-
- fin:=rgb(Scan[X].Rouge,Scan[X].Vert,Scan[X].Bleu ) xor ValXor;
-
- Scan[X].Rouge := getRvalue(fin);
- Scan[X].Vert := getGvalue(fin);
- Scan[X].Bleu := getBvalue(fin);
-
- end;
- end;
- DEimage.Refresh;
- gauge1.Progress:=0;
-
- for y:=0 to DEimage.Picture.Bitmap.Height-1 do
- begin
- gauge1.Progress:=y;
- Scan := DEimage.picture.Bitmap.ScanLine[Y];
- for x:=0 to DEimage.Picture.Bitmap.Width-1 do
- begin
-
- // Valeurs en rouge vert et bleu
- mR := Scan[X].Rouge;
- mV := Scan[X].Vert;
- mB := Scan[X].Bleu;
- // Transo en rgb
- fin:=rgb(mr,mv,mb);
-
- fin:=rgb(Scan[X].Rouge,Scan[X].Vert,Scan[X].Bleu ) shl ValSHL;
-
-
- Scan[X].Rouge := getRvalue(fin);
- Scan[X].Vert := getGvalue(fin);
- Scan[X].Bleu := getBvalue(fin);
-
-
-
- end;
- end;
-
- DEimage.Refresh;
- gauge1.Progress:=0;
- end;
-
-
-
- procedure PrCrypter(image:Timage;Gauge1:Tgauge;ValSHR:integer;ValXOR:integer);
- var
- Scan : TypePRGBArray;
- x,y:integer;
- ir,iv,ib,mv,mb,mr,Fin: Integer;
- begin
-
-
- gauge1.MaxValue:=image.Picture.Bitmap.Height-1 ;
-
- for y:=0 to image.Picture.Bitmap.Height-1 do
- begin
- gauge1.Progress:=y;
- Scan := image.picture.Bitmap.ScanLine[Y];
- for x:=0 to image.Picture.Bitmap.Width-1 do
- begin
-
- // Valeurs en rouge vert et bleu
- mR := Scan[X].Rouge;
- mV := Scan[X].Vert;
- mB := Scan[X].Bleu;
- // Transo en rgb
- fin:=rgb(mr,mv,mb);
-
- fin:=rgb(Scan[X].Rouge,Scan[X].Vert,Scan[X].Bleu ) shr ValSHR;
-
- Scan[X].Rouge := getRvalue(fin);
- Scan[X].Vert := getGvalue(fin);
- Scan[X].Bleu := getBvalue(fin);
-
- end;
- end;
-
- image.Refresh;
- gauge1.Progress:=0;
-
- for y:=0 to image.Picture.Bitmap.Height-1 do
- begin
- gauge1.Progress:=y;
- Scan := image.picture.Bitmap.ScanLine[Y];
- for x:=0 to image.Picture.Bitmap.Width-1 do
- begin
-
- // Valeurs en rouge vert et bleu
- mR := Scan[X].Rouge;
- mV := Scan[X].Vert;
- mB := Scan[X].Bleu;
- // Transo en rgb
- fin:=rgb(mr,mv,mb);
-
- fin:=rgb(Scan[X].Rouge,Scan[X].Vert,Scan[X].Bleu ) xor ValXOR;
-
- Scan[X].Rouge := getRvalue(fin);
- Scan[X].Vert := getGvalue(fin);
- Scan[X].Bleu := getBvalue(fin);
-
- end;
- end;
- image.Refresh;
- gauge1.Progress:=0;
-
- end;
TypeRGB = Record
Bleu, Vert, Rouge : Byte;
End;
TypeTRGBArray = Array [0..12000] Of TypeRGB; // pour la largeur de l'image
TypePRGBArray = ^TypeTRGBArray;
procedure PRDecrypter(DEimage:Timage;Gauge1:Tgauge;ValSHL:integer;ValXor:integer);
var
Scan : TypePRGBArray;
x,y:integer;
ir,iv,ib,mv,mb,mr,Fin: Integer;
begin
gauge1.MaxValue:=DEimage.Picture.Bitmap.Height-1 ;
for y:=0 to DEimage.Picture.Bitmap.Height-1 do
begin
gauge1.Progress:=y;
Scan := DEimage.picture.Bitmap.ScanLine[Y];
for x:=0 to DEimage.Picture.Bitmap.Width-1 do
begin
// Valeurs en rouge vert et bleu
mR := Scan[X].Rouge;
mV := Scan[X].Vert;
mB := Scan[X].Bleu;
// Transo en rgb
fin:=rgb(mr,mv,mb);
fin:=rgb(Scan[X].Rouge,Scan[X].Vert,Scan[X].Bleu ) xor ValXor;
Scan[X].Rouge := getRvalue(fin);
Scan[X].Vert := getGvalue(fin);
Scan[X].Bleu := getBvalue(fin);
end;
end;
DEimage.Refresh;
gauge1.Progress:=0;
for y:=0 to DEimage.Picture.Bitmap.Height-1 do
begin
gauge1.Progress:=y;
Scan := DEimage.picture.Bitmap.ScanLine[Y];
for x:=0 to DEimage.Picture.Bitmap.Width-1 do
begin
// Valeurs en rouge vert et bleu
mR := Scan[X].Rouge;
mV := Scan[X].Vert;
mB := Scan[X].Bleu;
// Transo en rgb
fin:=rgb(mr,mv,mb);
fin:=rgb(Scan[X].Rouge,Scan[X].Vert,Scan[X].Bleu ) shl ValSHL;
Scan[X].Rouge := getRvalue(fin);
Scan[X].Vert := getGvalue(fin);
Scan[X].Bleu := getBvalue(fin);
end;
end;
DEimage.Refresh;
gauge1.Progress:=0;
end;
procedure PrCrypter(image:Timage;Gauge1:Tgauge;ValSHR:integer;ValXOR:integer);
var
Scan : TypePRGBArray;
x,y:integer;
ir,iv,ib,mv,mb,mr,Fin: Integer;
begin
gauge1.MaxValue:=image.Picture.Bitmap.Height-1 ;
for y:=0 to image.Picture.Bitmap.Height-1 do
begin
gauge1.Progress:=y;
Scan := image.picture.Bitmap.ScanLine[Y];
for x:=0 to image.Picture.Bitmap.Width-1 do
begin
// Valeurs en rouge vert et bleu
mR := Scan[X].Rouge;
mV := Scan[X].Vert;
mB := Scan[X].Bleu;
// Transo en rgb
fin:=rgb(mr,mv,mb);
fin:=rgb(Scan[X].Rouge,Scan[X].Vert,Scan[X].Bleu ) shr ValSHR;
Scan[X].Rouge := getRvalue(fin);
Scan[X].Vert := getGvalue(fin);
Scan[X].Bleu := getBvalue(fin);
end;
end;
image.Refresh;
gauge1.Progress:=0;
for y:=0 to image.Picture.Bitmap.Height-1 do
begin
gauge1.Progress:=y;
Scan := image.picture.Bitmap.ScanLine[Y];
for x:=0 to image.Picture.Bitmap.Width-1 do
begin
// Valeurs en rouge vert et bleu
mR := Scan[X].Rouge;
mV := Scan[X].Vert;
mB := Scan[X].Bleu;
// Transo en rgb
fin:=rgb(mr,mv,mb);
fin:=rgb(Scan[X].Rouge,Scan[X].Vert,Scan[X].Bleu ) xor ValXOR;
Scan[X].Rouge := getRvalue(fin);
Scan[X].Vert := getGvalue(fin);
Scan[X].Bleu := getBvalue(fin);
end;
end;
image.Refresh;
gauge1.Progress:=0;
end;
 Conclusion
Marche ac SCanline
Bon pr savoir decrypter son image faut pas perdre les 2 valeurs de cryptage
PS: si vous mettez une valeurs de cryptage trop grand a shr votre image sera mauvaise
 Fichier Zip
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
 Télécharger le zip
 Historique
- 16 janvier 2006 21:09:59 :
- tromper de zip et d image la total !!!
- 17 janvier 2006 21:32:53 :
- Pour delphiProg
 Sources du même auteur
 Sources de la même categorie
Sources en rapport avec celle ci
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Image de fond dans un TreeView [ par Valérie ]
Bonjour, J'utilise une application DELPHI6 CLX et je n'aarive pas à avoir une image de fond dans mon TreeView. L'événement OnPaint n'existe pas. Si
image du bureau a intervalle regulier [ par tarik ]
salut je voudrais faire des sauvegardes de l'etat du bureau (une sorte d'imprime ecran) a intervalle regulier
image ds un richedit [ par sebrs1 ]
comment inserer une image ds un richedit?
tbitbtn avec image format jpeg [ par vib ]
existe il un composant ou une solution pour avoir un bouton du genre bitbtn avec une image au format jpeg ?A+
Image dans une TStatusBar !!! [ par MAsterC ]
Comment fait-on pour mettre un Tprogresbar et un petit dessin dans l'item TStatusBar ????POUR PLUS DE DÉTAILS ALLER VOIR DANS INTERNET EXPLORER EN BAS
Sacré Mikey, c jamais ou il est! :: Prob localisation souris [ par Gysmo ]
Salut a tous!Voila j'ai creer sur mon prog des bontons avec des TImage superposé. Kan on click ca change d'image, une image bouton normal, une image b
Texte sur une image [ par Gysmo ]
Comment arrivé à écrir du texte sur une image puis la sauvegarder comme tel??!Merci
Comment crypter un EXE? [ par Manthis ]
Salut,je voudrais savoir comment crypter un fichier EXE alors si qqn as du source ou une DLL à me proposer je le remercie d'avance de tout coeur.Manth
Imprimer une image et un texte sur la même feuille [ par zeusnul ]
Bonjour,J'aimerais pouvoir imprimer une image et un texte sur la même feuille, mais je suis dans l'incapacité de trouver ça dans l'aide de delphi. Je
ImageList ... Help ! ;-) [ par HEproduct ]
Bonjour, je voudrai stocker des images de trés petites tailles dans une image lit et récupérer les noms dans une list box. Après quoi l'utilisateur en
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
|