Crypter et décrypter un password dans les préférences

Bonjour,

Je recherche un moyen simple de crypter et décrypter un password dans mon fichier préférence.

prefspass = CrypterPass(“toto”)
…stockage dans mes prefs

MonPass = DecrypterPass(prefpass)

ça Fait un bon moment que je tourne en rond sans trouver de solutions avec les classes Cryptos.

Merci.

pourquoi tu fais un hash de ton pass plutôt ? ou sinon y’a plein de solution avec einghur ou mbs ou même avec

gratos

Merci, je vais explorer einghur que j’avais téléchargé déjà…

il vaut mieux utiliser une solution native plutôt qu’un plugin si c’est possible …
effectivement on ne stocke jamais un mot de passe mais on stocke son hash c’est bien plus secure.
avec par exemple la commande sha512 de xojo.

Merci de vos réponses, j’ai fait le feignant et utilisé le plug-in Chilkat, très simple à appréhender…

Ça donne ça en final
Public Function CryptDecrypt(Mode as Integer, datas as String) As String
Dim crypt As New Chilkat.Crypt2

crypt.CryptAlgorithm = “pbes2”
crypt.PbesPassword = “paraphrase”

crypt.PbesAlgorithm = “rc2”
crypt.KeyLength = 128
crypt.Rc2EffectiveKeyLength = 128
crypt.SetEncodedIV “0000000000000000”,“hex”
crypt.SetEncodedSalt “0102030405060708”,“hex”
crypt.IterationCount = 1024
crypt.HashAlgorithm = “sha1”
crypt.EncodingMode = “hex”

Select case Mode

Case 0 //encrypt
Dim plainText As String
plainText = datas
Dim encryptedText As String
encryptedText = crypt.EncryptStringENC(plainText)
Return encryptedText

Case 1 //decrypt
Dim decryptedText As String
decryptedText = crypt.DecryptStringENC(datas)
Return decryptedText
end Select

End Function