CRYPTAGE

Question

Je crypte actuellement des fichiers en applicant à chaque octet une clef XOR l'octet lu. Mon problème est qu'en C en prenant un bufer de 1024 le cryptage/décryptage est quasiment instantané par contre avec VB je dois lire un octet, l'écrire dans le fichier de sortie et ce jusqu'aà la fin du fichier. Connaissez vous un moyen d'optimiser mon traitement. Merci

fabien92120 · Answer

Voici la procédure que j'utilise pour décrypter certains fichiers:

Private Sub Decrypt()
    'Noms des fichiers entrée/sortie
    Dim f1, f2 As String
    'Caractère à décrypter 
    Dim c As Byte
    
    Dim s32, s, si, i As Long
    'buffer simple
    Dim buffer As Byte
    'buffer 32 bits
    Dim buffer32() As Long
    'Affectation des noms entrée/sortie
    f1 = File1.Path & "" & File1.FileName
    f2 = File2.Path & "" & File1.FileName
    'Ouverture des fichiers
    Open f1 For Binary As #1
    Open f2 For Binary As #2
    'Taille du fichier entrée
    si = FileLen(f1)
    'Les 4 lignes suivantes servent à déterminer la taille du buffer 32 bits
    s32 = si  32
    s32 = s32 * 32
    s = si - s32
    ReDim buffer32(s32)
    'On lit,on décode et on écrit les données
    Get #1, , buffer32
    For i = 0 To (s32 - 1)
        buffer32(i) = buffer32(i) Xor &HA5A5A5A5
    Next i
    Put #2, , buffer32
    'On termine avec le buffer simple
    For i = s32 To (si - 1)
        Get #1, , buffer
        buffer = buffer Xor &HA5
        Put #2, , buffer
    Next i
    File2.Refresh
    Close #1
    Close #2
    Label1.Caption = "Fichier " & (File1.ListIndex + 1) & "/" & (File1.ListCount)
End Sub

Pour plus de renseignements, tu peux me contacter sur : fabien92120@aol.com

CRYPTAGE

1 réponse

Discussions similaires