Voir le lisezmoi du zip merci...
En Krypt constitue l'ossature d'une application de codage de données. Il est, en effet, parfois utile de rendre certaines données opaques, par exemple lorsque celles-ci transitent par le web. ce domaine, on parle de " cryptage " , de "clé" ou de codage sur 128bits, etc. Tout cela n'est que du vent, de la poudre aux yeux qui laisse entendre que la protection des données n'est réservée qu'à une certaine élite...
Source / Exemple :
Tout est dans le zip ; voici une partie : celle utilisant les accès binaires des fichiers:
Public Const Nbmax As Long = 1024 * 20
Public Fl As Long, Ntotread As Long
Public Buf(1 To Nbmax) As Byte
Public Const Read_ As Byte = 1
Public Const Write_ As Byte = 2
Public Function Fexists(pth As String, Stg As String) As Boolean
Dim Fs, F, F1, Fc, S As String, B As Boolean
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFolder(pth)
Set Fc = F.Files
B = False
For Each F1 In Fc
B = B Or (UCase(Filename(F1.Name)) = UCase(Stg))
Next
Fexists = B
End Function
Public Function Filename(Nf) As String 'extract file name fom an absolute filename
Dim Fs, F, S
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(Nf)
S = F.Name
Filename = S
End Function
Public Sub Getbuf(F As Integer, ByRef N As Long)
Get #F, , Buf
Ntotread = Ntotread + Nbmax
If Ntotread > Fl Then
N = (Fl - Ntotread + Nbmax)
Else
N = Nbmax
End If
End Sub
Public Sub Putbuf(F As Integer, N As Long)
Dim I As Long
If N = Nbmax Then
Put #F, , Buf
Else
For I = 1 To N
Put #F, , Buf(I)
Next I
End If
End Sub
Public Sub ErrBx(txt)
dummy = MsgBox(txt, 48, " -- ERROR -- ")
End Sub
Public Sub Openbuf(Name As String, ByRef F As Integer, Optional Mode As Byte = Read_)
F = FreeFile
Open Name For Binary As #F
If Mode = Read_ Then
Ntotread = 0
Fl = LOF(F)
End If
End Sub
Conclusion :
Que fait Krypt ? Les fichiers de l'entrée courante sont visualisés sur le côté droit du panneau. Il suffit de sélectionner les fichiers à coder avec le navigateur situé à gauche et d'appuyer sur le bouton Krypt pour lancer le codage ; de la même manière on peut sélectionner le répertoire de sortie à l'aide du bouton Output. Krypt alors,
- choisit un nom de fichier qui servira d'enveloppe et masquera le type et le nom du fichier,
- saisit le nom du fichier et l'injecte dans les données codées,
- code le fichier et rempli ce même fichier.
Résultat : les fichiers codés sont, pour les distinguer, préfixés par " __ " ; les données sont opacifiées ainsi que le nom même du fichier initial. ; pour décoder il suffit de sélectionner un des fichiers préfixés et d'appuyer sur le bouton " Dkypt " le document initial reprend son nom initial préfixé cette fois ci par " ~~ ".
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.