CACHER MOT DE PASSE DANS BITMAP - STEGANOGRAPHIE
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
29 déc. 2008 à 22:03
cs_ym_trainz Messages postés 160 Date d'inscription vendredi 27 janvier 2006 Statut Membre Dernière intervention 21 avril 2015 - 8 janv. 2009 à 19:43
cs_ym_trainz Messages postés 160 Date d'inscription vendredi 27 janvier 2006 Statut Membre Dernière intervention 21 avril 2015 - 8 janv. 2009 à 19:43
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/48824-cacher-mot-de-passe-dans-bitmap-steganographie
https://codes-sources.commentcamarche.net/source/48824-cacher-mot-de-passe-dans-bitmap-steganographie
8 janv. 2009 à 19:43
Je te remercie beaucoup pour ce code que j'essaierai d'intégrer dans le projet.
Je me pencherai également sur le codage Rijndael.
Pour l'heure, je n'ai pas trop le temps de travailler sur ce projet mais dès que j'aurai un peu temps, je m'y mettrai ;-)
Encore tous mes remerciements,
Cordialement,
ym_trainz
7 janv. 2009 à 11:06
Oui, j'ai l'algo. Mais comme c'est du code qui n'était pas prévu pour être posté, il n'y a pas de commentaire (juste à 1 endroit)
Mais les contrôles et variables sont explicitement nommées.
Bon courage tout de même ! :)
Pour la clef Xor, rien de plus facile de la trouver ! C'est déconcertant tellement c'est facile ! Cherche plutôt du côté de Rijndael, il n'y a pas mieux.
Algo pour marquer :
Dim w, h, x, y As Integer
Private Sub Button_Marquer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Marquer.Click
marque()
End Sub
Function marque() As Boolean
If Me.TextBox_PathImageSource.Text > "" And _
Me.TextBox_PathImageMarquée.Text > "" And _
Me.TextBox_PathImageSource.Text <> Me.TextBox_PathImageMarquée.Text And _
Me.TextBox_Pass1.BackColor = Color.Green And _
Me.TextBox_Pass2.BackColor = Color.Green And _
Me.TextBox_ConfirmPass1.BackColor = Color.Green And _
Me.TextBox_ConfirmPass2.BackColor = Color.Green And _
Me.TextBox_Texte_clair.Text > "" Then
Dim img As Bitmap = Me.PictureBox_ImageSource.Image.Clone
Dim nb_pxl, pas As Integer
Dim txt_clair As String = Me.TextBox_Texte_clair.Text
Dim pass1 As String = Me.TextBox_Pass1.Text
Dim pass2 As String = Me.TextBox_Pass2.Text
Dim cryptage As New Rijndael(pass1, pass2)
Dim txt_crypté As String = cryptage.EncryptText(txt_clair)
Dim r, g, b, gris_rg, gris_b As Integer
Dim r2, g2, b2 As Byte
Me.TextBox_Texte_crypté.Text = txt_crypté
w = img.Width
h = img.Height
nb_pxl = w * h
x = 0
y = 0
If nb_pxl > txt_crypté.Length + 1 + txt_crypté.Length.ToString.Length + 1 Then
img.SetPixel(x, y, Color.FromArgb(Asc("w"), Asc("m"), Asc("k")))
For i = 0 To txt_crypté.Length.ToString.Length - 1
xy(1)
img.SetPixel(x, y, Color.FromArgb(img.GetPixel(x, y).R, Asc(txt_crypté.Length.ToString.Substring(i, 1)), img.GetPixel(x, y).B))
Next
xy(1)
img.SetPixel(x, y, Color.FromArgb(Asc("w"), Asc("m"), Asc("k")))
pas = Math.Truncate((nb_pxl - x - ((y + 1) * w)) / (txt_crypté.Length + 9))
If pas = 0 Then Return False
For i = 0 To txt_crypté.Length - 1
xy(pas)
'Modifie la couleur du pixel en gardant le plus possible le même ton
'ex :
'couleur source = 70,10,50
'code caractère = 61
'la couleur cryptée deviendra 90,30,71
r = img.GetPixel(x, y).R
g = img.GetPixel(x, y).G
b = img.GetPixel(x, y).B
gris_rg = Asc(txt_crypté.Substring(i, 1)) / 3
gris_b = Asc(txt_crypté.Substring(i, 1)) - (2 * gris_rg)
If r + gris_rg <= 255 Then
r2 = r + gris_rg
Else
r2 = r - gris_rg
End If
If r + gris_rg <= 255 Then
If g + gris_rg <= 255 Then
g2 = g + gris_rg
Else
g2 = g - gris_rg
End If
Else
If g - gris_rg >= 0 Then
g2 = g - gris_rg
Else
g2 = g + gris_rg
End If
End If
If r + gris_rg <= 255 And g + gris_rg <= 255 Then
If b + gris_b <= 255 Then
b2 = b + gris_b
Else
b2 = b - gris_b
End If
ElseIf r - gris_rg >= 0 And g - gris_rg >= 0 Then
If b - gris_b >= 0 Then
b2 = b - gris_b
Else
b2 = b + gris_b
End If
Else
If b + gris_b <= 255 Then
b2 = b + gris_b
Else
b2 = b - gris_b
End If
End If
img.SetPixel(x, y, Color.FromArgb(r2, g2, b2))
Next
Me.PictureBox_ImageMarquée.Image = img
Return True
End If
End If
Return False
End Function
Sub xy(ByVal pas As Integer)
x += pas
While x >= w
x -= w
y += 1
End While
End Sub
Et pour démarquer (autre form) :
Dim w_source, h_source, w_marquée, h_marquée, x, y As Integer
Private Sub Button_Démarquer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Démarquer.Click
démarque()
End Sub
Function démarque() As Boolean
If Me.TextBox_PathImageSource.Text > "" And _
Me.TextBox_PathImageMarquée.Text > "" And _
Me.TextBox_PathImageSource.Text <> Me.TextBox_PathImageMarquée.Text And _
Me.TextBox_Pass1.Text > "" And _
Me.TextBox_Pass2.Text > "" And _
Me.TextBox_Pass1.Text <> Me.TextBox_Pass2.Text Then
Dim img_source As Bitmap = Me.PictureBox_ImageSource.Image.Clone
Dim img_marquée As Bitmap = Me.PictureBox_ImageMarquée.Image.Clone
Dim nb_pxl, pas As Integer
Dim pass1 As String = Me.TextBox_Pass1.Text
Dim pass2 As String = Me.TextBox_Pass2.Text
Dim cryptage As New Rijndael(pass1, pass2)
Dim txt_crypté As String = ""
Dim r, g, b, r2, g2, b2 As Byte
Dim couleur As Color
Dim txt_len As Integer = 0
Dim val As Byte
w_source = img_source.Width
h_source = img_source.Height
w_marquée = img_marquée.Width
h_marquée = img_marquée.Height
nb_pxl = w_marquée * h_marquée
x = 0
y = 0
If w_source <> w_marquée Or h_source <> h_marquée Then Return False
If img_marquée.GetPixel(x, y) <> Color.FromArgb(Asc("w"), Asc("m"), Asc("k")) Then Return False
xy(1)
couleur = img_marquée.GetPixel(x, y)
While couleur <> Color.FromArgb(Asc("w"), Asc("m"), Asc("k"))
If Not IsNumeric(Chr(couleur.G)) Then Return False
val = Conversion.Val(Chr(couleur.G))
txt_len *= 10
txt_len += val
xy(1)
couleur = img_marquée.GetPixel(x, y)
End While
xy(1)
pas = Math.Truncate((nb_pxl - x - ((y + 1) * w_marquée)) / (txt_len + 9))
If pas = 0 Then Return False
For i = 0 To txt_len - 1
xy(pas)
r = img_source.GetPixel(x, y).R
g = img_source.GetPixel(x, y).G
b = img_source.GetPixel(x, y).B
r2 = img_marquée.GetPixel(x, y).R
g2 = img_marquée.GetPixel(x, y).G
b2 = img_marquée.GetPixel(x, y).B
val = Math.Abs(r - r2) + Math.Abs(g - g2) + Math.Abs(b - b2)
txt_crypté &= Chr(val)
Next
Me.TextBox_Texte_crypté.Text = txt_crypté
Try
Me.TextBox_Texte_crypté.Text = cryptage.DecryptText(txt_crypté)
Catch ex As Exception
Return False
End Try
Return True
End If
Return False
End Function
Sub xy(ByVal pas As Integer)
x += pas
While x >= w_marquée
x -= w_marquée
y += 1
End While
End Sub
6 janv. 2009 à 22:20
Bon, là, d'accord, on entre vraiment dans le détail.
As-tu l'algo qui va bien pour ta modif RGB ?
Pour le Xor, il faut déjà avoir la clé de cryptage, mais bon, si tu as encore mieux...
Cordialement,
ym_trainz
5 janv. 2009 à 11:11
Si tu gardes l'original et la copie modifiée, il est également possible de dispatcher chaque pixel modifié dans l'image, quelle que soit sa taille. Et pour que ce soit encore moins visible, il est possible de modifier le pixel en gardant le même ton de couleur.
'Modifie la couleur du pixel en gardant le plus possible le même ton
'ex :
'couleur source = 70,10,50
'code caractère = 61
'la couleur cryptée deviendra 90,30,71
30 déc. 2008 à 00:22
Je corrige.
Cela fera une version 3 puisque je viens d'UL une version avec module.
Cordialement,
ym_trainz
29 déc. 2008 à 22:03
on parle de "steganographie"