par PhilippeG » 25 Juil 2003 à 15:59
Désolé petite fatigue de fin de semaineTu peux crypter tes champs en ajoutant un nombre quelconque à la valeur ascii de chaque lettre du contenu du champ à crypter puis tu remplace la valeur de ce champ par la nouvelle chaine obtenue avec un code de ce typeCela devrait suffisament brouiller les pistes Pour décrypter les champs tu crées un bouton qui fait l'opération inverse (normalement tu devrait retrouver la valeur de départ). Il ne te reste plus qu'a masquer ton bouton de décryptage en fonction des rôles de tes utilisateursVoila 2 exemples de codes de cryptage et decryptage pour te donner une piste (Attention ils ne sont pas testés).A adapter à ton besoin bien surPublic Function Encrypt (xnom As String ) As String sEncryptedString ="" Code% = 5 TailleNom% = Len(xnom) For n = 1 To TailleNom% lettre = Mid$(xnom, n, 1) newlettre = Asc(lettre) + Code NewString = Chr$(newletter) EncryptedString = EncryptedString & NewString Next n'Return a crypted text to calling function. Encrypt = sEncryptedString End Function Public Function Decrypt (Liste As NotesItem ) As Variant Code = 5 Dim Itemdec As NotesItem Dim Tabcrypt As Variant Tabcrypt = Liste.values Dim Tabdec As Variant Redim Tabdec (Ubound(Tabcrypt)) As String For i = Lbound(Tabcrypt) To Ubound(Tabcrypt) Text = Tabcrypt (i) TailleNom% = Len(Text) DecryptedString ="" For n = 1 To TailleNom% Letter = Mid$(sText, n, 1) newletter = Asc(Letter) - Code NewString = Chr$(newletter) DecryptedString = DecryptedString & NewString Next n Tabdec(index)= DecryptedString Next i Decrypt = Tabdec End Function