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

Ce site au démarrage

begin process at 2012 02 10 18:58:00

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é :6 590 / 747

Auteur : Nicolas___

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Commentaire sur cette source (18)

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

SYNTHÉTISEUR [BASS]

SCAN THREAD : BASS

PEDALE MULTI EFFETS [BASS ASIO]

JEU SHOOT LE CANARD

SPRITE ENGINE : DE LA 2D FACILEMENT

Toutes les sources de Nicolas___

Sources de la même categorie

LE CERCLE ENCHANTÉ D'ANDRES GÎT EN NOS MÉMOIRES par Caribensila

COMPARATIF ALGO CERCLES par barbichette

RAYTRACING EN DELPHI (PROGRESSIVE PATH TRACING) par Bacterius

TEXTE SUR COURBE DE BEZIER par pseudo3

YEUXROUGES par pseudo3

Toutes les sources de la catégorie Graphique

Sources en rapport avec celle ci

EXE PROTECTOR V1 par MrClock

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

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 ...

Commentaire de meknour le 25/12/2011 20:10:30

hello,
se pgm ne marche pas sur delphi7
je besoin de l'aide merci

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

[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko

[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi

WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson

Forum

UTILISATION DES RADIOBUTTON par yapess

RE : TRANSMISSION ADRESSE FONCTION à UNE DLL par WhiteHippo

RE : "APPEL" QUI PLANTE ET "FILTRAGE" QUI BLOQUE!!! par cantador

RE : TRANSMISSION ADRESSE FONCTION à UNE DLL par Oniria

RE : "APPEL" QUI PLANTE ET "FILTRAGE" QUI BLOQUE!!! par cirec

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Passerelle Pericles sur site Joomla 17
Budget : 499€
Infogerance Serveur Debian Linux
Budget : 2 400€
Developpeur applications iphone - ipad - android
Budget : 800€

Logiciels

Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

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

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011