Utilisateur anonyme
-
Modifié par FaonManager le 4/03/2014 à 23:33
Utilisateur anonyme -
7 mars 2014 à 13:07
Bonjour,
je voudrais pouvoir créer un fichier texte dans lequel je mets une date et le cacher dans un fichier commun à tous les PC. Je voudrais ensuite que mon programme puisse lire ce fichier texte de manière invisible, sans que l'utilisateur n'ai à faire quelque chose ou ne voit le fichier s'ouvrir.
Ce que j'ai compris dans la syntaxe pour créer un ADS d'après ces articles :
NHenry
Messages postés15083Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention19 septembre 2023159 Modifié par NHenry le 6/03/2014 à 23:14
Avec
start c:\windows\notepad.exe:Cle
Tu tentes d'exécuter un fichier texte (un peu comme faire un "start Fichier.txt").
Une idée de où je pourrais mettre mon ADS en ayant accès au fichier ?
'Create a stream supporting ADS syntax
Dim stream As FileStream = NtfsAlternateStream.Open("C:\Users\Clément\Desktop\Fichier.txt:hide", FileAccess.Write, FileMode.OpenOrCreate, FileShare.None)
stream.Close()
'Writing in to an ADS
NtfsAlternateStream.WriteAllText("C:\Users\Clément\Desktop\Fichier.txt:hide", CStr(FirstRunDate))
'Reading data from an ADS
Dim text As String = NtfsAlternateStream.ReadAllText("C:\Users\Clément\Desktop\Fichier.txt:hide")
'Enumerating all the ADS in test.txt
Dim adsStreams As IEnumerable = NtfsAlternateStream.EnumerateStreams("C:\Users\Clément\Desktop\Fichier.txt")
For Each ads As NtfsAlternateStream In adsStreams
MsgBox(text)
Next
'This will not delete the test.txt file
NtfsAlternateStream.Delete("C:\Users\Clément\Desktop\Fichier.txt:hide")