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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 865 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
11
ok BruNews merci :) et desole hakim0
Messages postés
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
20
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
11
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.