CRYPTAGE / DECRYPTAGE RC4 POUR VB .NET
stranix
Messages postés
8
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
7 mai 2003
-
29 avril 2003 à 18:10
Refracto Messages postés 2 Date d'inscription mardi 17 juin 2003 Statut Membre Dernière intervention 31 mai 2011 - 8 juil. 2009 à 16:09
Refracto Messages postés 2 Date d'inscription mardi 17 juin 2003 Statut Membre Dernière intervention 31 mai 2011 - 8 juil. 2009 à 16:09
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/6340-cryptage-decryptage-rc4-pour-vb-net
https://codes-sources.commentcamarche.net/source/6340-cryptage-decryptage-rc4-pour-vb-net
8 juil. 2009 à 16:09
crypt.CryptFile(fichier_source, fichier_sortie)
par contre si tu veux mettre un mot de passe pour ouvrir un fichier, tu n'as pas au bonne endroit.
20 juin 2009 à 12:20
20 juin 2009 à 00:43
le programme ne marche pas
j'ai mi tout le prog dans une classe j'ai bien intensié la classe mais lorsque je fait
RC4.Key = "mot de passe"
RC4.CryptFile("c:\monFichier.ini", "c:\monFichier.ini")
je n'obtient pas mon fichier crypté j'ai toujour monFichier.ini dans c: mais je peux l'ouvrir normalement sans mettrele mot de passe .
quelqu'un peut m'aider merci
30 juil. 2007 à 13:49
jen avais justement besoin pour crypter des données clients dans mon applications :)
Bonneprog ;D
16 juil. 2005 à 09:35
Il se peut qu'il y en ait d'autre. La base de la source etaient écrite en VB6, et je l'ai portée pour .NET. Je l'ai testé en long en large mais il y aurait sûrement de quoi l'optimiser. Concerant la ligne, je ferai une mise à jour du source lundi...
Pour la partie cryptage d'un fichier, ce n'est pas le top. Cette portion n'existait pas dans le source vb6. Pour crypter le tout, je charge le contenu du fichier en mémoire (dans une variable), crypte la variable et écrit le contenu dans un fichier de sortie... Pour les gros fichiers, ça génère des problèmes de mémoire. Il faudrait que je me repenche sur la source, pour voir si il est possible de crypter le fichier en direct, mettre le contenu du fichier en mémoire, mais en le cryptant au fur et à mesure de la lecture...
David
11 juil. 2005 à 18:07
For i = 0 To 255
S(i) = i --> cette ligne n'a rien a faire ici ?!!
j = (j + S(i) + Asc(cls_Key.Substring(i Mod KeyLen, 1)) And 255)
T = S(i)
S(i) = S(j)
S(j) = T
Next i
La fonction n'est pas fausse mais beaucoup de S(i) sont écrasés après avoir été calculés...Il faut enlever la ligne
Daniel
21 juin 2005 à 16:44
Dim classCrypt As New RC4
classCrypt.Key = "bender"
classCrypt.CryptFile("configc.cnf", "config.cnf")
21 juin 2005 à 16:25
3 juin 2005 à 11:51
13 avril 2005 à 16:31
en réfléchissant un petit peu j'ai trouvé moi même pourquoi cela ne fonctionnait pas dans mon code : j'oubliais d'initialiser la key :
Dim ClassCrypt As New RC4
ClassCrypt.Key = "mon mot de passe"
Encore bravo pour le code, il marche à merveille !
12 avril 2005 à 17:32
Bravo ton code à l'air très bien, cependant peux-tu m'expliquer comment je peux l'utiliser en VB net à partir d'une form pour crypter et décrypter un fichier xls.
Merci
11 mars 2005 à 12:36
ne pas oublier de fermer le fichier source oFileReader.close
20 janv. 2004 à 23:58
Si tu déclare une variable avec le mot clef NEW, il te faut la detriure en fin de procédure par un SET keyBuffer = NOTHING
A faire pour toutes les fonctions...
7 mai 2003 à 11:06
29 avril 2003 à 18:10
Mais j'ai remarqué un petit problème. En cas de cryptage de fichier assez volumineux (à partir de 40 Mo), la taille en mémoire de l'éxécutable explose litérallement (j'approche souvent les 300 Mo). Je me dis que c'est peut être normal... mais le problème est qu'une fois le fichier crypté, la taille en mémoire de l'éxécutable ne diminue pas.
Je réalise un programme résident et ce genre de désagrément est assez (voir très) genant. Quelqu'un à une idée pour remédier à ce problème ?
Vous pouvez me répondre via ce site ou via l'adresse gfauvie@goams.com.