Code source de 3 fonctions:
Private Function WriteBinaryInformations(FileName As String, Text As String)
If Not Len(Text) = 1020 Then
If Len(Text) < 1020 Then
Text = Text & String(1020 - Len(Text), Chr(32))
Else
Exit Function
End If
End If
Dim Buffer As String
Dim File As Integer: File = FreeFile
Buffer = Space$(FileLen(FileName))
Open FileName For Binary As #File
Get #File, , Buffer
Close #File
DoEvents
Open FileName For Binary As #File
Put #File, , Buffer & "BIN:" & Text
Close #File
End Function
Private Function GetBinaryInformations(FileName As String) As String
On Error GoTo GetError
Dim Buffer As String
Dim File As Integer: File = FreeFile
Buffer = Space$(FileLen(FileName))
Open FileName For Binary As #File
Get #File, , Buffer
Close #File
DoEvents
Buffer = Right$(Buffer, 1024)
If Not Left(Buffer, 4) = "BIN:" Then
Exit Function
Else
Buffer = Right$(Buffer, 1020)
If Right(Buffer, 1) = Chr(32) Then
For I = 1 To Len(Buffer)
If Right(Buffer, 1) = Chr(32) Then
Buffer = Left(Buffer, Len(Buffer) - 1)
Else
Exit For
End If
Next
End If
End If
GetBinaryInformations = Buffer
Exit Function
GetError:
GetBinaryInformations = ""
End Function
Private Function DeleteBinaryInformations(FileName As String)
Dim Buffer As String, BufferBinary As String
Dim File As Integer: File = FreeFile
BufferBinary = Space$(FileLen(FileName))
Buffer = Space$(FileLen(FileName))
Open FileName For Binary As #File
Get #File, , BufferBinary
Close #File
Buffer = BufferBinary
DoEvents
Buffer = Right$(Buffer, 1024)
If Not Left(Buffer, 4) = "BIN:" Then
Exit Function
Else
Kill FileName
DoEvents
Open FileName For Binary As #File
Put #File, , Left$(BufferBinary, Len(BufferBinary) - 1024)
Close #File
End If
End Function
Ces 3 fonctions permettent d'écrire 1024 caractères à la fin d'un fichier, de les relirent ou de les supprimer.
Je voudrais me servir de ce code pour intégrer un mot de passe directement dans un fichier mais le problème c'est qu'il me faudrait une fonction de cryptage et de décriptage du mot de passe pour qu'il deviènne totalement illisible......
Je voudrais pas d'un système de cryptage hultra-puissant mais juste un ptit bout de code facile à comprendre....
Quelqu'un pourrait m'aider??