1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Trucs & Astuces
  5. Cacher un fichier zip dans une image

Cacher un fichier zip dans une image

Soyez le premier à donner votre avis sur cette source.

Vue 7 444 fois - Téléchargée 1 253 fois

Télécharger le projet
Commenter

Description

Cacher un fichier zip dans une image jpg, bmp, gif ou png au choix. Vous pouvez mettre dans votre zip des dossiers, à partir du moment qu'ils ne soient pas trop lourds, pour ne pas attirer l'attention sur l'image. Tout ce fait automatiquement. Vous créez un dossier pour recevoir tous vos fichiers. Ensuite vous ouvrez vos fichiers image et zip. Puis vous choisissez le nom à donner à votre fichier caché et vous cachez votre fichier grâce à un fichier bat. Vous pouvez récupérer votre fichier quand vous le désirez.

Source / Exemple : 


Voir zip

Conclusion :


Ce programme est fait suivant les indications de ce site:
http://www.papygeek.com/outils/cacher-des-fichiers-dans-une-image/
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
Messages postés
6823
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 juillet 2020
 109
Pour ceux qui voudraient que le fichier caché se crée automatiquement, sans devoir cliquer sur le fichier test.bat. Changer le code de l'évènement cmdOK_Click comme ceci:

Private Sub cmdOK_Click(sender As System.Object, e As System.EventArgs) Handles cmdOK.Click
If txtname.Text = lblimage.Text Then
txtname.Text = txtname.Text & "_2"
End If
espace = InStr(txtname.Text, " ")
If espace = 0 Then
Dim SW As New IO.StreamWriter(chemincible & "\test.bat") ' Crée un fichier de commande dos
SW.WriteLine("cd " & chemincible & "") ' Ajout de la première commande a exécuter sous l'invite de commande
SW.WriteLine("COPY/B " & nomimage & Extseule & " + " & nomzip & ".zip" & " " & txtname.Text & Extseule) 'création du fichier caché
SW.Close() ' On ferme le fichier
' MessageBox.Show("Cliquez sur le fichier test.bat pour cacher votre fichier", "Cacher fichier", MessageBoxButtons.OK, MessageBoxIcon.Information)
Process.Start(chemincible & "\test.bat") 'on ouvre le fichier batch
Process.Start(chemincible & "") 'on ouvre le dossier
cmdOK.Enabled = False
Else
MessageBox.Show("Le nom du fichier ne doit pas contenir d'espace!", "Renommer fichier caché", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
End Sub

bonne programmation
Signaler
Messages postés
6823
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 juillet 2020
 109
Merci pour l'info, j'en prends bonne note
@+
Signaler
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
 1
oups le close est indispensable, navré j'ai écrit trop vite XD
Signaler
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
 1
En fait, c'est une forme de déclaration simplifié d'un objet avec libératin des ressources automatique ;)
exemple avec un streamreader

Using Sr As New StreamReader(File)
While Not Sr.EndOfStream()
sources.Add(Sr.ReadLine())
End While
Sr.Close() 'inutile avec using
Sr.Dispose() 'inutile avec using
End Using
Signaler
Messages postés
6823
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 juillet 2020
 109
Bonjour,
Merci pour vos commentaires
ADN56 cela fait plaisir de te lire. Je vais me pencher sur le USING, j'avoue ne pas avoir vu d'ouverture de fichier de cette manière!
Cordialement
Afficher les 9 commentaires
S'inscrire maintenant

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.

Du même auteur (cs_Le Pivert)