Une fonction pour crypter un texte a l'aide dèune progressbar

Commenter

Contenu du snippet

salut tt le monde voiçi un tout petit code qui vous aideras a crypter un texte a laide d une progressbar :)

Source / Exemple : 


Public Function Crypte(TxT As String, Optional Label As Label, Optional Text As String, Optional Line As Boolean)
For s = 1 To Len(TxT)
'a la place de Form1 vous pouvez mettre le nom de votre forme
valeur = Form1.bar.Value
DoEvents
If Line = True Then
Label.Caption = Text & vbCrLf & Mid(valeur, 1, 2) & "%"
Else
Label.Caption = Text & Mid(valeur, 1, 2) & "%"
End If
Crypte = Crypte & Chr(Asc(Mid(TxT, s, 1)) Xor (255 - (s Mod 255)) Xor 154)
Form1.bar.Value = (s * 100) / Len(TxT)
DoEvents
Next s
End Function

Conclusion :


merci de laisser vos comments

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (CrazyMan19)