Ascii <=> texte codage & decodage

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 974 fois - Téléchargée 36 fois

Contenu du snippet

Bon voici mon 2eme code sur Vbfrance:
Il code le Texte en ASCII
Et decode l'ASCII en Texte

Vous allez peut être me dire qu'il existe déja des sources qui ont les mêmes fonctions, mais elle sont quand même différentes

Il vous suffit : 2 TextBox & 2 Command

Je remercie mon père qui m'a un peu aider pour le decodage et je vous laisse maintenant décourvrir mon code avec des commentaires pour bien comprendre :)

Source / Exemple :


Private Sub Command1_Click()
Text2 = ""
For i = 1 To Len(Text1) 'i = 1 -> Nbre de lettres dans Text1
Text2 = Text2 + Str(Asc(Mid(Text1, i, 1))) 'Transfore une lettre de Text1 en ASCII
Next i 'Passe à la lettre suivante
End Sub

Private Sub Command2_Click()
On Error Resume Next 'En cas d'erreur il passe dessus (les erreurs possibles sont stupides donc pas besoin de developper plus)
Text2 = ""
'ca devient + dur après
Text01 = LTrim(Text1) 'Il enleve les espaces devant le texte
deb = 1 'le debus est 1 (le 1er caractère)
lon = Len(Text01) 'lon = la longeur du Text1
fin = InStr(deb, Text01, " ") 'Cherche la position du premier espace dans Text1
If fin = 0 And deb < lon Then fin = lon + 1 'Si il n'y a pas d'espace à la fin, donne la position vide àpres la fin du Text1

10 Text2 = Text2 + Chr(Mid(Text01, deb, fin - deb)) 'Signet '10' : Text2 = Ce qui est déja dans Text2 + Lettre suivante de Text1
20 deb = fin + 1 'Signet '20' : Va voir le caractère suivant
fin = InStr(deb, Text01, " ") 'Cherche la position du prochain espace dans Text1
If fin = deb Then GoTo 20 'Si il y a plusieurs espaces entre les codes ASCII il va au signet 20 (Va voir le caractère suivant)
If fin = 0 And deb < lon Then fin = lon + 1 'Si il n'y a pas d'espace à la fin, donne la position vide àpres la fin du Text1
If fin <> 0 Then GoTo 10 'Si la prochaine lettre existe il va au signet 10 sinon il s'arrete

End Sub

'C'est Tordu mais c'ets comme ca et s'est bien expliqué :p,
'Merci a mon père qui m'a aider pour changer l'ASCII en Texte

Conclusion :


The End :o)

A voir également

Ajouter un commentaire Commentaires
Messages postés
15
Date d'inscription
vendredi 23 mai 2003
Statut
Membre
Dernière intervention
13 décembre 2010

Salut je suis assez interessé par ta source et je cherche moyen de différencier les Chr 10 et Chr 13, car si tu as remarquer , lors d un saut de ligne il affiche 10 et 13...
Si QQ1 a un tuyau ...Merci

Example a traduire :"




"
Messages postés
90
Date d'inscription
mardi 2 avril 2002
Statut
Membre
Dernière intervention
2 décembre 2004

merci ca m'a bien aidé :)
Messages postés
12
Date d'inscription
mardi 29 juillet 2003
Statut
Membre
Dernière intervention
6 août 2003

ouai c'est pas mal , as-tu déja essayé une fois ton texte mis en ASCII de faire une opération sur les chiffres et de les reconvertire en texte pour crypter le tout? moi je n'y arrive pas...si t'as un tuyau merci d'avance!

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.