Accueil > > > CACHER UN MESSAGE DANS UNE IMAGE
CACHER UN MESSAGE DANS UNE IMAGE
Information sur la source
Description
Voici une dll dont le but est de créer une image (gif, bmp, jpg...) à partir d'une image existante dans laquelle on pourra cacher un message texte, puis de récupérer ce même message à partir de l'image précédemment crée.
Je présente ici seulement la partie technique ! Si vous passez des paramètres incorrects à mes fonctions elles planteront. Donc, un test d'existance des fichiers avec le fileSystemObject ou un On Error Resume Next seront utiles pour les plus pointilleux !
Merci pour vos commentaires :)
Source
- Public Function CryptImage(ByVal PathImageSource As String, ByVal PathImageCrypt As String, ByVal Message As String) As Long
- Dim octet As Byte
- Dim i As Integer
-
- Open PathImageSource For Binary Access Read As #1 'ouverture de l'image originale
- Open PathImageCrypt For Binary Access Write As #2 'création de l'image avec le message
-
- While Not EOF(1) 'tant que non fin
- Get #1, , octet
- Put #2, , octet
- Wend
-
- For i = 1 To Len(Message) 'rajout du message octet par octet à la fin de l'image
- Put #2, , Asc(Mid(Message, i, 1))
- Next
- Close #1
- Close #2
- CryptImage = FileLen(PathImageSource) + 1 'point d'insertion du message = poids de l'image + 1
- End Function
-
-
- Public Function DecryptImage(ByVal PathImageCrypt As String, ByVal code As Long) As String
- Dim cpt As Long
- Dim octet As Byte
- Dim Message As String
-
- Open PathImageCrypt For Binary Access Read As #1 'ouverture de l'image contenant le message
- While Not EOF(1)
- Get #1, , octet
- cpt = cpt + 1
- If cpt > code Then 'si j'ai atteint le point d'insertion
- If Not octet = 0 Then
- Message = Message & Chr(octet) 'recomposition du message
- End If
- End If
- Wend
- Close #1
- DecryptImage = Message 'on renvoie le message
- End Function
-
- ' Utilisation de la dll
- '
- 'Faire projet --> références --> parcourrir (selection de ma dll)
- '
- 'Voici un exemple de code...
- '
- '
- 'Dim hehe As New SecretMessage.ClassSecretMessage
- ' Dim code As Long
- '
- ' code = hehe.CryptImage(App.Path & "\test.jpg", App.Path & "\modif.jpg", "La vie est formidable !")
- ' MsgBox hehe.DecryptImage(App.Path & "\modif.jpg", code)
-
-
-
Public Function CryptImage(ByVal PathImageSource As String, ByVal PathImageCrypt As String, ByVal Message As String) As Long
Dim octet As Byte
Dim i As Integer
Open PathImageSource For Binary Access Read As #1 'ouverture de l'image originale
Open PathImageCrypt For Binary Access Write As #2 'création de l'image avec le message
While Not EOF(1) 'tant que non fin
Get #1, , octet
Put #2, , octet
Wend
For i = 1 To Len(Message) 'rajout du message octet par octet à la fin de l'image
Put #2, , Asc(Mid(Message, i, 1))
Next
Close #1
Close #2
CryptImage = FileLen(PathImageSource) + 1 'point d'insertion du message = poids de l'image + 1
End Function
Public Function DecryptImage(ByVal PathImageCrypt As String, ByVal code As Long) As String
Dim cpt As Long
Dim octet As Byte
Dim Message As String
Open PathImageCrypt For Binary Access Read As #1 'ouverture de l'image contenant le message
While Not EOF(1)
Get #1, , octet
cpt = cpt + 1
If cpt > code Then 'si j'ai atteint le point d'insertion
If Not octet = 0 Then
Message = Message & Chr(octet) 'recomposition du message
End If
End If
Wend
Close #1
DecryptImage = Message 'on renvoie le message
End Function
' Utilisation de la dll
'
'Faire projet --> références --> parcourrir (selection de ma dll)
'
'Voici un exemple de code...
'
'
'Dim hehe As New SecretMessage.ClassSecretMessage
' Dim code As Long
'
' code = hehe.CryptImage(App.Path & "\test.jpg", App.Path & "\modif.jpg", "La vie est formidable !")
' MsgBox hehe.DecryptImage(App.Path & "\modif.jpg", code)
Conclusion
Bon coding à tous ;)
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc [HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Très bonne après-midi passée lors cette conférence avec le W3C, organisée par L' Inria sur les nouveaux standards, ce Mardi 14 Février, on sent vraiment que çà bosse au W3C, et l'avenir est très très prometteur pour le HTML5, notamment ...
Cliquez pour lire la suite de l'article par Gio
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.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 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
|