CRYPTOFILE : UTILITAIRE QUI CRYPTE N'IMPORTE QUEL FICHIER (XOR)

Signaler
Messages postés
2493
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
-
Messages postés
2493
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/41187-cryptofile-utilitaire-qui-crypte-n-importe-quel-fichier-xor

Messages postés
2493
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
1
Je vais vite changer ça demain ...
Messages postés
2493
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
1
Merci !
Messages postés
2814
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
37
1. ok

2.je te donne un exemple de code si ça peut t'aider :

Private Const BUFFER_SIZE = 8192' Taille du tapon (perso)
Private Function CryptFile( _
InputFile As String, _
OutputFile As String, _
Key As String _
) As Boolean
On Error GoTo Error_Handler
Dim Fr As Long, Fw As Long, Rest As Long
Dim Packets As Long, fLength As Long
Dim Buffer As String, i As Long

Fr = FreeFile
Open InputFile For Binary Access Read As #Fr
Fw = FreeFile
Open OutputFile For Binary Access Read As #Fw
fLength = FileLen(InputFile)

If fLength > BUFFER_SIZE Then

Rest = fLength Mod BUFFER_SIZE
Packets = ((fLength - Rest) / BUFFER_SIZE)
For i = 1 To Packets
Buffer = String(BUFFER_SIZE, 0)
Get #Fr, , Buffer
Buffer = TaFonctionDeCrypatge(Buffer, Key)
Put #Fw, , Buffer
Next i
If Rest > 0 Then
Buffer = String(Rest, 0)
Get #Fr, , Buffer
Buffer = TaFonctionDeCrypatge(Buffer, Key)
Put #Fw, , Buffer
End If
Else
Buffer = String(fLength, 0)
Get #Fr, , Buffer
Buffer = TaFonctionDeCrypatge(Buffer, Key)
Put #Fw, , Buffer
End If
CryptFile = True

Error_Handler:
Reset
End Function

3. Ce que que je voulais dire c'est que dans ton prog tu met la fonction Crypto à laquelle tu ne fait pas appele car tu retape le code lié à cette fonction dans CrypoFile

4. Cela l'est pour toi mais pas pour les newb's, une source même la plus simple se commente. D'ailleurs c'est tellement plus facile à commenter qu'une source de nv3 =)

5. Je m'excuse je crois que j'ai été un peu "..." je ne suis pas trop pour les commentaires à caractères péjoratifs d'habitude, mais plutot pour ceux constructifs...

Voila, sur ce, bonne prog @+
Messages postés
2493
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
1
1: Oui, mais j'ai voulu en faire une moi-même ...
2: Oui, mais comment faire autrement ?
3: A crypter une string
4: C'est tellement simple ...
5: Bonne idée !
Afficher les 6 commentaires