Cryptage de phrase dans un dessin bmp

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 543 fois - Téléchargée 88 fois

Contenu du snippet

Ce programme met à la fin d'une bmp un texte saisie, qui n'apparait pas sur le dessin.
(Protection de données).

Source / Exemple :


'
' CRYPTAGE d'un message dans un dessin BMP
' TESTER EN VBA gerard vient (FRANCE)
' Creer un écran avec :
'      - une zone de saisie pour le texte à coder
'      - une zone  de saisie pour le nom du fichier BMP servant de base au codage
'      - un bouton pour crypter
'      - un bouton pour decrypter
'      - Une zone image pour afficher le dessin d'origine
'      - une zone image pour afficher le resultat avec le texte crypter
'
VERSION 5.00
Begin UserForm1 
   Caption         =   "UserForm1"
   ClientHeight    =   4620
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   8670
   OleObjectBlob   =   "UserForm1.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "UserForm1"
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CommandButton1_Click()
'
' on met le texte à la fin du dessin
'
Dim dessin As String, zone As String
Open TextBox2.Text For Binary As 1
longueur = LOF(1)
dessin = String(longueur, "x")
Get #1, 1, dessin
'
' resultat zone de saisie + longeur sur 10 caracteres
'
zone = TextBox1.Text + Right("0000000000" + Mid(Str(Len(TextBox1.Text)), 2), 10)
dessin = Left$(dessin, Len(dessin) - Len(zone)) + zone
Close #1
'
' le resultat est mis dans le fichier bitmap resultat.bmp
'
Open "resultat.bmp" For Binary As 1
Put #1, 1, dessin
Close #1
Image2.Picture = LoadPicture("resultat.bmp")
End Sub

Private Sub CommandButton2_Click()
Dim dessin As String
'
' lecture du fichier code
'
Open "resultat.bmp" For Binary As 1
longueur = LOF(1)
dessin = String(longueur, "x")
Get #1, 1, dessin
Close #1
'
' on extrait la longueur du texte
'
longtexte = Val(Right$(dessin, 10))
'
' et on le prend dans les donnees
'
If longtexte > 0 Then
   TextBox1.Text = Mid$(dessin, Len(dessin) - longtexte - 9, longtexte)
End If
End Sub

Private Sub Image1_Click()

End Sub

Private Sub Image2_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox2_Enter()

End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Image1.Picture = LoadPicture(TextBox2.Text)
End Sub

A voir également

Ajouter un commentaire

Commentaires

Message : Alors les Gars Je commence à en avoir marre de me petter les couilles
Message : Alors les Gars Je commence à en avoir marre de me petter les couilles
cs_zerty
Messages postés
37
Date d'inscription
lundi 9 octobre 2000
Statut
Membre
Dernière intervention
1 juillet 2008
-
c nul et ça marche pas
cs_Nil
Messages postés
85
Date d'inscription
dimanche 2 décembre 2001
Statut
Membre
Dernière intervention
31 décembre 2002
-
Rien à voir ! c'est très bien ! mais si ca met ca à la fin d'un bmp, ca fonctionnera sur un EXE... bah disons qu'en voyant le titre je pensais à autre chose mais bon...

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.