salut tous le monde j'ai un probleme et j'ai besoin de votre aide j'ai une application vb6 qui lit des parametre a partir d'un fichier .ini qui contient le login et le mot de passse et la base de donnes le probleme c'est de crypter la ligne du mot de passe dans le fichier.ini
afin que personne ne peut voir le mot de passe dans le fichier.ini j'espere que la question est clair merci d'avance

Salut
Une solution qui permet de ne pas pouvoir lire ce genre d'infos est de la crypter.
En fait, je suppose qu'il suffit pour toi de le rendre non lisible quand on ouvre le fichier, la force du cryptage n'a pas d'intérêt.
Je te propose de transformer tes chaines de Login et Password en Base64, c'est à dire une autre chaine de caractères.
C'est la technique utilisée par les mails pour n'avoir qu'un jeu de caractères limité.
Cherche "Base64" parmi les codes de vbfrance.
Il te faudra le codage et bien sûr le décodage pour la relecture.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Merci pour ton Aide mais je n'ai pas bien compris la solution je presise que dans le fichier.ini que je veux crypter

Il te suffit de crypter ta chaîne AVANT de l'enregistrer dans le fichier ini.

Il existe de nombreux algorithme de cryptage que tu trouvera sur ce site, du plus simple (certainement cesar) au plus compliqué (AES il me semble), tu n'a que l'embarra du choix, encore faut-il faire l'effort de chercher un minimum.

Juste une suggestion : est-ce que le login / mot de passe pourraient changer dans le temps ?   Si pas, il me semble que tu devrais le stocker dans ton code source.  

Ne criez pas au loup ;-)

Si, au lieu de crypter le login et le mot de passe dans un fichier INI, ces derniers sont stockés dans le source même du programme, la sécurité est plus grande.    

Si je voudrais tenter de m'introduire dans un programme et que je vois que le fichier INI contient des cléfs comme Login= et Password= cela me donne déjà trop d'info me semble-t-il.  Par exemple, quid si je met un password fictif....  Plantâge ?

Si le mot de passe est statique (c'est parfois le cas pour des logins "système"), je crois qu'il est bon de le stocker crypter dans le source.   C'est juste un avis perso.

Christophe

Bonjour,

J'ai fait exactement la même chose dans un de mes projets (je précise que le module ne vient pas de moi mais de VBFrance). Si cela peut t'aider, regarde les deux fonctions ci-dessous à copier dans un module. C'est certain que ce n'est pas du grand cryptage ! Si ce serait à refaire, j'irais stocker les mots de passe dans la base de registre WINDOWS à un endroit bien planqué !!!
A+

'==============================================
'Utilisé pour crypter et décrypter les mots de passe
'Valeurs cryptées dans le fichier CONFIG.ini
'==============================================

Public FileOpen As Variant            'Réserve une variable pour la fonction ouvrir
Public FileSave As Variant            'Réserve une variable pour la fonction enregistrer sous

Public Function Crypt(Mot As String)
Dim intCtr As Integer                                   'Variable pour le compteur de cryptage
Dim intCtr2 As Integer                                  'Variable pour le compteur d'écriture
Dim intTxt(5000)                                        'Tableau unidimensionnel pour le stockage des caractères

On Error GoTo erreur                                    'Etiquette de saut en cas d'erreur

For intCtr = 1 To 5000                                  'Première boucle, valeur à modifier pour des fichiers plus grands!

  If Mid(Mot, intCtr, 1) = "" Then GoTo suite           'si le curseur arrive au bout du texte soit "" alors saut vers suite

  intTxt(intCtr) = Mid(Mot, intCtr, 1)                  'Récupère 1 caractère, au niveau intctr : pour lire les caractères un par un
  intTxt(intCtr) = (Asc(intTxt(intCtr))) + 5            'transforme le caractère en entier et lui ajoute 5
  intTxt(intCtr) = Chr(intTxt(intCtr))                  'retransforme le nombre en caractère

Next intCtr                                             'Passe au prochain intctr

suite:                                                  'Etiquette suite
  Mot = ""                                              'Efface le texte
  For intCtr2 = 1 To intCtr                             'Le compteur d'écriture, de 1 à intctr (en fait la fin de la chaine de caractère cryptée
  Mot = Mot & intTxt(intCtr2)                           'inscrit les nouveaux caractères cryptés
  Next intCtr2                                          'passe au prochain intctr2
Crypt = Mot

erreur:                                                 'Etiquette erreur
End Function

Public Function Decrypt(Mot As String)
Dim intCtr, intCtr2 As Integer                                   'Le principe est le même que pour crypt!
Dim intTxt(5000)                                        'Mais à l'envers ;-)
On Error GoTo erreur

For intCtr = 1 To 5000

  If Mid(Mot, intCtr, 1) = "" Then GoTo suite

  intTxt(intCtr) = Mid(Mot, intCtr, 1)
  intTxt(intCtr) = (Asc(intTxt(intCtr))) - 5
  intTxt(intCtr) = Chr(intTxt(intCtr))

Next intCtr

suite:
  Mot = ""
  For intCtr2 = 1 To intCtr
  Mot = Mot & intTxt(intCtr2)
  Next intCtr2
Decrypt = Mot
 
erreur:
End Function