Cryptage

Télécharger le projet
Commenter

Description

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 " ~~ ".
Télécharger le projet

Codes Sources

A voir également

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.