CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 03 20 07:49:52

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

CRYPTOGRAPH

Information sur la source

Note :

7,67 / 10

Catégorie :Graphique Classé sous :crypter, image Niveau :Débutant Date de création :16/01/2006 Date de mise à jour :17/01/2006 21:32:53 Vu / téléchargé :5 385 / 683

Auteur : Nicolas___

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Commentaire sur cette source (17)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

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

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

CrypToGRAPH.dpr 302 octets
cryptoGRAPH.jpg 16 395 octets
exemple.bmp 192 054 octets
Unit1.dfm500 octets
Unit1.pas 743 octets
Unit2.dfm10 010 octets
Unit2.pas 9 772 octets

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

SCAN THREAD : BASS

PEDALE MULTI EFFETS [BASS ASIO]

JEU SHOOT LE CANARD

SPRITE ENGINE : DE LA 2D FACILEMENT

BASSVIDEO : LECTEUR VIDEO AVEC BASS

Toutes les sources de Nicolas___

Sources de la même categorie

PCB DESIGN LOGICIEL DE CRÉATION DE CIRCUIT IMPRIMÉ ET ACCESS... par jfs59

EFFET VITRE ET THUMBNAILS SOUS VISTA par Bacterius

ANAGLYPHEUR OU COMMENT VOIR EN RELIEF LES STÉRÉOSCOPES ANCES... par jfs59

DÉFORMER UNE IMAGE AUX DIMENSIONS D'UN QUADRANGLE QUELCONQUE... par FFCAST

THREAD ET BITMAP (DESSIN AU CRAYON) par barbichette

Toutes les sources de la catégorie Graphique

Sources en rapport avec celle ci

COMPOSANT TZSIMAGE par ThWilliam

ANAGLYPHEUR OU COMMENT VOIR EN RELIEF LES STÉRÉOSCOPES ANCES... par jfs59

DÉFORMER UNE IMAGE AUX DIMENSIONS D'UN QUADRANGLE QUELCONQUE... par FFCAST

IMAGE DANS UN TDBGRID par HAFTARIFOUAD

IMAGE WEBCAM SUR SITE WEB. par titout2

Commentaires et avis

Commentaire de Delphiprog le 16/01/2006 23:37:23 administrateur CS

Cette technique s'appelle la stéganographie. Plusieurs codes ont été déposés sur delphifFr : http://tinyurl.com/c73c9
C'est donc le nième code sur ce sujet.

Commentaire de JulioDelphi le 17/01/2006 16:35:30 administrateur CS

La stéganograpgie est l'art de cacher des messages dans une donnée (une image ici) mon cher ami :p et non pas simplement de crypter/cacher/modifier_les_pixels d'une image.
wala

Commentaire de Nicolas___ le 17/01/2006 18:28:10

je sais ce qu'est la stenographie et je n ai jamais dis que ce code etait de la Stenographie puisque comme la dis julioDelphi je modifie juste les pixels de l'image...

Si j ai mis ce code ici c'est pour cette raison puisque ce n'est pas ca ...

Bon d accord le code n'est pas revolutionnaire mais pour ce qui ne connaise pas les instruction xor shr et shl(comme moi il n'y a pas longtemps !) c'est un code qui peut montrer a quoi cela peut servir .
Et je pense que montrer cela plus simplement permet de comprendre clairement a quoi ca peut servir.
Au lieu de montrer des choses plus complexe(d ailleurs mon codes est mis en debutant ) je montre une simple utilisation

A votre guise de le perfectionner

Ciao
Nico

Commentaire de JulioDelphi le 17/01/2006 18:33:37 administrateur CS

Je parlais à DelphiProg justement !

Commentaire de Nicolas___ le 17/01/2006 19:07:07

Je sais ya pas de prob je lui disais juste le pourquoi du comment de cette souce !

Ciao
Nico

Commentaire de Delphiprog le 17/01/2006 19:58:20 administrateur CS

Alors, autant pour moi, je n'aurais pas dû parcourir le code en diagonale. La présence d'images a fortement influencé mon esprit à l'heure où j'écrivais. Mea culpa et mes plus plates excuses et pour ce commentaire inapproprié ici.
Cela dit, si le code démontre ce que tu affirmes, en revanche il n'est que moyennement réutilisable. Si l'on veut traiter plusieurs images d'affilée, il faudra modifier le code source et sortir ce qui est réellement utile au cryptage d'images.
C'est une erreur monumentale que de lier son code à des éléments d'une interface utilisateur. Le jour où tu auras besoin de réutiliser ton magnifique algorithme, tu t'apercevras que tu as plus vite fait de tout réécrire.
Essaie de faire cette transposition maintenant, tant que le code est frais dans ta tête, et tu verras que tu n'en retireras que des bénéfices...et toute ma considération. ;o)

Commentaire de Nicolas___ le 17/01/2006 21:34:53

Slt DelphiProg ,
Est ca que tu me demandais ???
ou alors est ce que je n est rien compris ?!
Slt
Nico

Commentaire de JulioDelphi le 17/01/2006 21:43:20 administrateur CS

Oui c'est ça =) super, c'est bien plus simple à réutiliser.

Commentaire de Delphiprog le 18/01/2006 09:05:37 administrateur CS

C'est tout à fait de ça que je parlais.
Félicitations pour la transformation et la réactivité.

Commentaire de Den le 24/01/2006 15:10:36

Pour un débutant c'est un excellent travail
On ne peut que le féliciter..... je note 10/10

Commentaire de Nicolas___ le 24/01/2006 18:23:42

Merci ;)

enfin un prob subsiste tu note 10/10 et j ai un 2/10 ... enfin j ai pas dis que ct toi

Merci a toi

nico

Commentaire de Den le 24/01/2006 19:03:38

Excuse moi, j'ai la confirmation par ton message car il m'a semblé mal cliqué pour afficher la note, et il est impossible de le refaire.

Bon n'en tient pas compte tu mérite 10/10.

Commentaire de JulioDelphi le 24/01/2006 19:43:12 administrateur CS

j'ai supprimé la note 2/10 de Den, tu peux remettre un 10/10 si tu peux, si tu ne peux pas, fais le moi savoir den, merci.

Commentaire de Den le 24/01/2006 21:14:46

Merci à JulioDephie, j'ai remis la bonne de 10/10

Commentaire de Nicolas___ le 24/01/2006 22:21:22

Merci JulioDelphi et Re-Merci den
Ciao
Nico

Commentaire de Bidou le 12/08/2006 19:00:20 administrateur CS

Nicolas____> Petite précison : on ne dit pas stenographie mais stéganographie

Commentaire de Nicolas___ le 12/08/2006 20:32:14

Salut Bidou, Ouep !

Mauvaise lecture une fois et voila ce que cela donne : un mot que l'on garde erroné ...

Bon si je suis vraiment de mauvais jeu je peux toujours dire que c'est une faute de frappe !!!

lol

Ciao

Merci pour la correction ...

Ajouter un commentaire

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

Nos sponsors

Derniers Blogs

COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL

SQL SERVER : QUERY NOTIFICATION OU COMMENT êTRE NOTIFIé DE MODIFICATIONS DE DONNéES CôTé APPLICATION (SQLDEPENDENCY) par christian

[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson

MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ? par junarnoalg

TECHDAYS 2010 GENèVE : RETROUVEZ-MOI POUR UNE SESSION SUR LA HAUTE DISPONIBILITé ET LE SCALEOUT AVEC SQL SERVER par christian

Forum

RE : PROBLèME DE MP3 (THOMSON LYRA) par jenin85

RE : PROBLèME DE MP3 (THOMSON LYRA) par f0xi

RE : PROBLèME DE MP3 (THOMSON LYRA) par jenin85

RE : PROBLèME DE MP3 (THOMSON LYRA) par f0xi

PROBLèME DE MP3 (THOMSON LYRA) par jenin85

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Logiciels

Academy System (10.9.4.0)
ACADEMY SYSTEM (10.9.4.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)
XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)

Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise...

Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate
Xilisoft DVD Ripper Ultimate (5.0.64.0304)
XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)

Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ...

Cliquez pour télécharger Xilisoft DVD Ripper Ultimate
Axalot, logiciel de sauvegarde de données en ligne (1.10.108.1)
AXALOT, LOGICIEL DE SAUVEGARDE DE DONNéES EN LIGNE (1.10.108.1)

Perdre tout le contenu de votre disque dur, vous imaginez ? Vos photos, vos musiques, votre compt...

Cliquez pour télécharger Axalot, logiciel de sauvegarde de données en ligne
Rigs of Rods (63.3)
RIGS OF RODS (63.3)

c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo...

Cliquez pour télécharger Rigs of Rods