Stegano - cacher du texte dans une image (tuto)

Soyez le premier à donner votre avis sur cette source.

Vue 18 665 fois - Téléchargée 1 615 fois

Description

Bonjour à tous,
donc voilà je travail sur un sujet de TPE qui est la stéganographie, en l'occurence plus précisément de cacher du texte dans une image bitmap. Je me suis donc inspiré de la source de Aymenk(http://www.delphifr.com/code.aspx?id=32615) et je l'ai améliorée et documentée.

Conclusion :


J'espère que mon travail vous plaira et je suis très intéréssé par toute vos remarques et suggestions d'améliorations ^^

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

ça a l'air bien mais Delphi plante quand j'ouvre le projet de décodage :-(
Bon travail quand même.
Les liens apparentés (en plus de ceui que tu as cité) sont très interessants
pablor44
Messages postés
60
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
3 octobre 2006
-
Merci de m'avoir prévenu du problème j'ai corriger la source et l'ai rechargé ça devrait marcher ^^
rickless
Messages postés
16
Date d'inscription
mercredi 5 janvier 2005
Statut
Membre
Dernière intervention
22 décembre 2005
-
Bien le bonjour Messieurs,

Programme fonctionnant correctement.

Si je puis me permettre, N'est-il pas judicieux de prévoir la possibilité de rappatrier le texte CE serait complet non ???

En tout cas code bien explicite !

Rickless
8/10
pablor44
Messages postés
60
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
3 octobre 2006
-
Bien c'est tout à fait possible: dans le zip il ya deux répertoires le premier contenant le log permettant de coder le texte dans l'image et dans le second celui permettant de l'en extraire ^^ suffit de sauver l'image dans le premier et de le rouvrir dans le second! Je l'ai présenté comme ceci pour bien montrer au jury auquel je vais le présenter que le texte et bien mémoriser dans l'image et pas dans le logiciel.

merci pour la note ^^
cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
24 -
Pas mal, pas mal du tout.
J'ai une petite question qui me démange. D'où provient la "valeur magique" 768 dans la ligne suivante (Coder/Unit1.pas) :
Label8.Caption := formatfloat('##0.#####',def/(maxtxt*768))+' %';

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.