MIME CODING

Signaler
Messages postés
2
Date d'inscription
lundi 21 octobre 2002
Statut
Membre
Dernière intervention
24 octobre 2002
-
Messages postés
59
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
4 juillet 2013
-
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/1654-mime-coding

Messages postés
59
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
4 juillet 2013

La fonction de décodage est défaillante car aucune différence sur la casse des caractères n'est traitée.

Pour rendre le décodage base64 fonctionnel, corrigez la fonction suivante:

Private Function mimedecode(a As String) As Integer
If Len(a) 0 Then mimedecode -1: Exit Function
mimedecode = InStr(base64, a) - 1
End Function

' gestion des majuscules et minuscules.
mimedecode = InStr(1,base64, a,0) - 1

Cordialement.
Messages postés
23
Date d'inscription
mardi 19 octobre 2004
Statut
Membre
Dernière intervention
16 avril 2007

slt, je voulais savoir s'il existe une dll (genre mapi) pour lire le contenu des .eml.
Messages postés
84
Date d'inscription
samedi 25 mai 2002
Statut
Membre
Dernière intervention
19 janvier 2004

700000 donne NzAwMDAw en Base64
Messages postés
2
Date d'inscription
lundi 21 octobre 2002
Statut
Membre
Dernière intervention
24 octobre 2002

Transformer 700000 en Bgrgo est ce que c est de l encodage en base 64???