Comment cacher des constantes
Chrysostome
Messages postés
121
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour, j'ai développé un programme en vb6 avec Access en BD. Je me servais des properties d' Access que je créais pour y stocker des adresses d'IP et autres qui ne doivent pas être découvertes facilement.
Depuis pour le déploiement, je me tourne vers des fichiers ini, mais je ne sais pas par quoi remplacer les properties d' Access.
Avez-vous des idées?
Merci de vos réponses éclairées et éclairantes.
Depuis pour le déploiement, je me tourne vers des fichiers ini, mais je ne sais pas par quoi remplacer les properties d' Access.
Avez-vous des idées?
Merci de vos réponses éclairées et éclairantes.
A voir également:
- Comment cacher des constantes
- Comment cacher ses amis sur facebook - Guide
- Cacher son numéro - Guide
- Cacher conversation whatsapp - Guide
- Application pour cacher des applications - Guide
- Cacher photo android - Guide
1 réponse
Bonjour,
tu pourrais chiffrer tes adresses qu'elles soient illisibles.
Ex avec XOR, c'est la même fonction qui chiffre/déchiffre :
tu pourrais chiffrer tes adresses qu'elles soient illisibles.
Ex avec XOR, c'est la même fonction qui chiffre/déchiffre :
Sub test_xor()
Dim ch As String, pw As String
ch = "chaine à masquer"
pw = "ceci est mon pw"
' codage
ch = chiffrerXOR(ch, pw)
Debug.Print "chiffré : "; ch
' restitution
ch = chiffrerXOR(ch, pw)
Debug.Print "déchiffré : "; ch
End Sub
Function chiffrerXOR(ByVal ch As String, pw As String) As String
Dim i As Long, j As Long
For i = 1 To Len(ch)
j = j Mod Len(pw) + 1
Mid(ch, i, 1) = Chr(Asc(Mid(ch, i, 1)) Xor Asc(Mid(pw, j, 1)))
Next i
chiffrerXOR = ch
End Function