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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 961 fois - Téléchargée 26 fois

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

Ajouter un commentaire Commentaires
Messages postés
163
Date d'inscription
samedi 2 août 2003
Statut
Membre
Dernière intervention
4 novembre 2013
13
ok BruNews merci :) et desole hakim0
Messages postés
21041
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
29
Ben en l'occurence c'est le niveau de la source qu'il faut indiquer et serait plutot a reconsiderer.

BruNews, Admin CS, MVP Visual C++
Messages postés
163
Date d'inscription
samedi 2 août 2003
Statut
Membre
Dernière intervention
4 novembre 2013
13
INITIER c est mon niveau et pas le niveau de ce code ok :)
Messages postés
123
Date d'inscription
mercredi 27 août 2003
Statut
Membre
Dernière intervention
12 août 2008
1
ci du Niveau initier?

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.