CACHER MOT DE PASSE DANS BITMAP - STEGANOGRAPHIE

Signaler
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Messages postés
160
Date d'inscription
vendredi 27 janvier 2006
Statut
Membre
Dernière intervention
21 avril 2015
-
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

Messages postés
160
Date d'inscription
vendredi 27 janvier 2006
Statut
Membre
Dernière intervention
21 avril 2015

Bonsoir PWM63

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
Messages postés
127
Date d'inscription
lundi 11 octobre 2004
Statut
Membre
Dernière intervention
18 mai 2016

Bonjour ym_trainz,

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
Messages postés
160
Date d'inscription
vendredi 27 janvier 2006
Statut
Membre
Dernière intervention
21 avril 2015

Merci PWM 63 !

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
Messages postés
127
Date d'inscription
lundi 11 octobre 2004
Statut
Membre
Dernière intervention
18 mai 2016

Quitte à faire du watermarking, ne pas utiliser xor comme système de cryptage, ce n'est pas très sécurisé.

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
Afficher les 6 commentaires