Texte <--> base64

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 725 fois - Téléchargée 30 fois

Contenu du snippet

Salut,

Voici 2 petites fonctions pour la conversion Texte vers Base64 et vice versa

Source / Exemple :


imports System
imports System.Text

    Public Function TexteToBase64(ByVal Texte As String) As String
        Try
            Dim texteBytes As Byte() = Encoding.ASCII.GetBytes(Texte)
            If texteBytes.Length = 0 Then
                Return ""
            Else
                Return Convert.ToBase64String(texteBytes)
            End If
        Catch ex As Exception
            Return ""
        End Try
    End Function

    Public Function Base64ToTexte(ByVal Texte As String) As String
        Try
            If Texte.Length = 0 Then
                Return ""
            Else
                Return Encoding.ASCII.GetString(Convert.FromBase64String(Texte))
            End If
        Catch ex As Exception
            Return ""
        End Try
    End Function

A voir également

Ajouter un commentaire

Commentaire

cs_ihsan
Messages postés
2
Date d'inscription
jeudi 13 février 2003
Statut
Membre
Dernière intervention
12 juillet 2007
-
thank you !

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.