[VB6]cryptage

**riesseg** · 19/04/2006, 21h59

Allo tout le monde !!

j'avance douvement mais surrement dans mon application, et j'en suis arrive au point du debugage final avant test a grande echelle.

Mais avant, je dois encore regler un probleme de securite.

mon appli utilise des comptes utilisateurs, et les donnees de cet utilisateur (pseudo et mot de passe ) sont stocké dans un Users.dat.
Or le probleme de ce fichier, comme l'a fait remarque mon client, c'est que si on l'ouvre avec wordpad, on a acces en clair aux informations...

Vous me voyez venir, hein?
Bin dand le mille !!

Est ce que vb 6 contient un crypteur/decrypteur de base (comme le md5 de php), ou dois-je l'implementer moi meme...

non jfmarques, je m'amuserai pas a essayer de casser ton tissu ^^
par contre, je veux bien voir le cryptage de la cigale et la fourmie :p

merci d'avance

**khany** · 19/04/2006, 22h06

Oh ! les arcanes du cryptage, insondables et terribles !!!

Si tu aimes ce sujet, j'ai fait une critique de livre sur ce sujet et je t'assure que plus j'avancais dans la lecture, plus j'avais l'impression de me perdre dans un monde imaginaire !

Si tu veux la ref du livre : http://khany.developpez.com/livres/cryptographie

Mais, cherche pas trop loin

un bon algo et tu es déjà bien sauvé

Regarde http://khany.developpez.com/tutoriel/applicationvb/

**jmfmarques** · 19/04/2006, 22h17

Mon cryptement (tissu) n'est pas fait pour un mot de passe mais pour du texte (donc à chiffrer puis à pouvoir déchiffrer).
Le cryptement (cryptage n'est ni français, ni anglais !) d'un mot de passe ne doit jamais suivre ce principe. Il faut qu'il soit irréversible (et donc non retrouvable, même par le concepteur du cryptement)
Méthode :
1) on crypte de façon irréversible (utilisation de restes de divisions, par exemple)
2) quand l'utilisateur rentre son mot : on crypte à nouveau et on compare avec le 1er crypte

Si tu veux le tissu de la cigale et la fourmi : ton email !

**Tyrael62** · 20/04/2006, 00h54

Ben si tu veux , j'ai un code de cryptage-décryptage que j'avais utilisé pour l'application que j'ai développé pendant mon stage pour sécuriser des données sur le réseau mais çà reste du cryptage de base pas élevé!Donc çà dépend quel niveau de sécurité tu veux appliquer à ton cryptage!
Mais si t'es intéressé , je pourrais te balancer le code par mail!

**riesseg** · 20/04/2006, 14h31

Envoyé par khany

Regarde http://khany.developpez.com/tutoriel/applicationvb/

Bon suivant cette methode:

j'integre clsCryptage a mon appli.
je mets le code dans la form de log
je declare la fonction
je compile et essaye de m'identifié:

Run-Time error 91
Object variable or With block variable not set

et il me renvoir a la ligne avec l'etoile

vue du code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Option Explicit
    Private ClassCryptage As ClsCryptage 'classe pour crypter
 
[...]
 
'Decryptage du mot de passe
*          ClassCryptage.MotCle = "pasteque"
            ClassCryptage.TxtCryptEnvoi = UCase(txtPass)
            ClassCryptage.TypeTravail = 1
 
clsCryptage:
Public Enum TypeOp
    Cryptage = 0
    deCryptage = 1
End Enum
 
'Private mvarTypeTravail As TypeOp 'copie locale
Private mvarTxtCryptEnvoi As String 'copie locale
'local variable(s) to hold property value(s)
Private mvarTypeTravail As TypeOp 'local copy
'local variable(s) to hold property value(s)
Private mvarMotCle As String 'local copy
Public Property Let MotCle(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.MotCle = 5
    mvarMotCle = vData
End Property

quelqu'un pour m'aiguiller sur cette erreur ?