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

International Français
#1

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.

#2

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

#3

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

#4

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.

#5

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

#6

Ç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