CODAGE EN BASE 64
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
23 juin 2006 à 16:16
lbastou Messages postés 1 Date d'inscription mercredi 1 mars 2006 Statut Membre Dernière intervention 28 mai 2007 - 28 mai 2007 à 20:25
lbastou Messages postés 1 Date d'inscription mercredi 1 mars 2006 Statut Membre Dernière intervention 28 mai 2007 - 28 mai 2007 à 20:25
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/38257-codage-en-base-64
https://codes-sources.commentcamarche.net/source/38257-codage-en-base-64
28 mai 2007 à 20:25
Peut tu me répondre a lbastou@hotmail.fr
merci
23 juin 2006 à 21:55
"Exit Function" seul ne marche pas puisque B64Chr est variant :
B64Chr("001101") = "N"
B64Chr("") = ""
B64Chr("011_00") = Null
J'ai choisi ces reponses afin de pouvoir utiliser B64Encode ou B64Decode en boucle (dans un For ou un While).
Par exemple si on decode ligne apres ligne la source d'un mail. chaque ligne va renvoyer un resultat en hexadecimal et un eventuel reste binaire qui pourra etre introduit dans le decodage de la ligne suivante. Si en cas d'erreur, je renvoyait "", la boucle continuerais sans probleme. Alors qu'en cas d'erreur, tout soit s'arreter. Donc je renvoie Null et laisse le soin au programme appelant de gerer ce cas.
Salut Katsankat,
Desole pour la "defensive". En fait, c'est un texte tout fait que je colle a la fin de mes sources (quelle pretention, je crois que je n'en ai que 3). Je suis souvent choque par le ton des commentaires sur VBFrance et beaucoup sont tout a fait inutiles.
J'ai enormement travaille ce module. J'ai encore plus travaille ses commentaires (desole pour la langue, j'ai appris comme ca ;o). Je n'attend pas que ca plaise ou pas, j'attend que ca marche parfaitement et si ca ne marche pas qu'on me le dise... Et si ca pouvait marcher mieux aussi (ce qu'a propose Renfeld).
Ciao a vous deux et merci pour vos commentaires.
Santiago
23 juin 2006 à 18:55
Ca a l' air correct, bien que je te sente un peu sur la défensive.
Mérite une bonne note parce que tu as pris le temps pour bien présenter et expliquer ce qui se passe. Et puis, respect pour les commentaires.
Me tarde de tester :)
23 juin 2006 à 16:16
ce genre de test :
If BinString "" Then B64Chr "": Exit Function
peux simplement devenir :
If BinString = "" Then Exit Function
ou encore :
If Lenb( BinString ) > 0 Then
...
End If