Comment cacher des constantes

Question

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. 





Configuration: Windows 7 / Firefox 43.0

eriiic · Answer

Bonjour,

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

Comment cacher des constantes

1 réponse

Discussions similaires

Newsletters