Bonjour,
j'aimerais savoir les lignes de commandes qui me permet de crypter un mot de passe à l'aide de VB.
Merci d'avance
Version imprimable
Bonjour,
j'aimerais savoir les lignes de commandes qui me permet de crypter un mot de passe à l'aide de VB.
Merci d'avance
Heu,vb n'a pas de fonctions pour crypter
Je peux te proposer un truc simple, decaler une lettre vers celle immédiatement audessus ou en dossous dans l'alphatet
Tiens je suis bon prince, cette routine fait de décalage alternativement Haut/Bas
A mettre dans un module
Si tu as besoin de quelque chose de plus costaud, je te conseille de chercher du coté de la Dll Microsoft CAPICOMCode:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 Option Explicit Public Function Crypt(Value As String) As String Dim b() As Byte Dim iPnt As Integer b = StrConv(Value, vbFromUnicode) For iPnt = 0 To UBound(b) If iPnt Mod 2 Then b(iPnt) = b(iPnt) + 1 Else b(iPnt) = b(iPnt) - 1 End If Crypt = Crypt & Chr(b(iPnt)) Next End Function Public Function UnCrypt(Value As String) As String Dim b() As Byte Dim iPnt As Integer b = StrConv(Value, vbFromUnicode) For iPnt = 0 To UBound(b) If iPnt Mod 2 Then b(iPnt) = b(iPnt) - 1 Else b(iPnt) = b(iPnt) + 1 End If UnCrypt = UnCrypt & Chr(b(iPnt)) Next End Function
Regardes alors dans mes contributions (suivre le lien dans ma signature)
merci chef, je vais tester maintenant
J'ai trouvé ce lien sur un autre forum.
T'as quelque code source de cryptage
http://www.frez.co.uk/freecode.htm#rijndael
Sans vouloir méestimer les compétences de wise_mind, les api de cryptographie sont plutot mal aisées à manipuler. La dll axtivex CAPICOM fournit un moyen plus abordable des les utiliser. Ca reste compliqué, mais moins. D'autant plus que j'ai écrit un post sur le sujet et un programme de démo
http://www.developpez.net/forums/d57...e-via-capicom/