CE CODE PEUT CRYPTER ET DÉCRYPTER TOUS TYPE DE FICHIERS SANS LES ENDOMMAGER AVEC
cs_Warny
Messages postés
473
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015
-
1 janv. 2004 à 21:50
celiphane Messages postés 466 Date d'inscription samedi 16 février 2002 Statut Membre Dernière intervention 20 avril 2007 - 18 juin 2004 à 23:38
celiphane Messages postés 466 Date d'inscription samedi 16 février 2002 Statut Membre Dernière intervention 20 avril 2007 - 18 juin 2004 à 23:38
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/19150-ce-code-peut-crypter-et-decrypter-tous-type-de-fichiers-sans-les-endommager-avec-une-vitesse-210-ko-s
https://codes-sources.commentcamarche.net/source/19150-ce-code-peut-crypter-et-decrypter-tous-type-de-fichiers-sans-les-endommager-avec-une-vitesse-210-ko-s
18 juin 2004 à 23:38
Remarque infondée, fso est plus lent que les fonctions de fichier classiques incorporées à VB depuis QB, plus lourd à gérer, et plus lourd en cas de déploiement.
L'utilisation de FSO ne remonte pas le niveau du code, il l'enfonce.
@+
Celiphane
2 janv. 2004 à 19:01
oups, tu as raison
=> gabchampagne
toi aussi
ça donne donc :
for cursor = 1 to len(m)
mid$(m,cursor,1) = chr$((asc(mid$(m,cursor,1))+1) mod 256)
next cursor
ou pour les intimes du binaire (beaucoup plus puissant)
for cursor = 1 to len(m)
mid$(m,cursor,1) = chr$((asc(mid$(m,cursor,1))+1) and 255)
next cursor
ps: les deux fonctions ne sont pas equivalentes
x mod y <> x and (y-1) sauf si y est une puissance de 2
2 janv. 2004 à 00:44
2 janv. 2004 à 00:41
1 janv. 2004 à 23:28
de toute facon, la vitesse depends de la machine utilisée !
utilises ce code, ca sera encore plus rapide ;)
for cursor = 1 to len(m)
mid$(m,cursor,1) = chr$(asc(mid$(m,cursor,1))+1)
next cursor
1 janv. 2004 à 21:50
Ton code est extremement mal présenté :
- il n'est pas commenté
- les noms de tes variables ne correspondent à rien
En plus rapide
Function Encrypt(filename as String)
'ouverture et lecture du fichier dans une variable m
dim cursor as long
for cursor = 1 to len(m)
mid(m,cursor,1) = chr(asc(mid(m,cursor,1))+1)
end for
' sauvegarde de la vaiable m dans un fichier
End function
Je dois traiter environ 2mo/seconde constant avec ça...
alors que ton code ralenti avec la croissance de taille de la chaine ff