[VB.Net]Comment décoder une chaine encodée en base64 ?

Version imprimable

28/03/2006, 19h17
SamRay1024

[VB.Net]Comment décoder une chaine encodée en base64 ?

Bonsoir,

Tout est dans la question : je cherche le moyen de décoder une chaine qui est en base 64.

J'ai bien trouvé une fonction dans la faq VB, mais c'est en Vb.Net qu'il me faut ça...Et la fonction VB ne fonctionne pas en .Net.

Si quelqu'un peut me dépanner, cela me ferait grandement avancer !

Le lien vers la fonction de la FAQ VB
29/03/2006, 10h11
SamRay1024

J'ai reussi à trouver le namespace qui met à disposition les outils pour travailler avec le format base64 :

:arrow: System.Security.Cryptography

Les classes qui permettent l'encodage et le décodage sont les suivantes :

:arrow: FromBase64Transform
:arrow: ToBase64Transform

Il y a un exemple donné pour le décodage, qui permet de décoder un fichier en base64 et de mettre de résultat dans un nouveau fichier. Je suis en train d'adapter cet exemple pour faire la même chose mais de chaîne source à chaîne destination...et c'est pas simple...D'autant que comme je ne connais pas bien le .Net, j'y vais à tatons !

Bref, si j'y arrive, je poste ma fonction...

Bon je sèche...Voici ce que j'ai obtenu :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
    '
    ' Fonction de décodage de chaine encodée au format base64
    '
    ' @param    [String]    base64String    La chaine à décoder.
    ' @return   [String]                    La chaine décodée.
    '
    Public Function Base64Decode(ByVal base64String As String) As String
 
        Dim myTransform As New FromBase64Transform(FromBase64TransformMode.IgnoreWhiteSpaces)
        Dim myOutputBytes(myTransform.OutputBlockSize - 1) As Byte
        Dim sChaineDecodee As String = ""
 
        Dim myInputBytes(base64String.Length - 1) As Byte
        myInputBytes = System.Text.Encoding.ASCII.GetBytes(base64String)
 
        'Transform the data in chunks the size of InputBlockSize.
        Dim i As Integer = 0
        While myInputBytes.Length - i > 4 'myTransform.InputBlockSize
            myTransform.TransformBlock(myInputBytes, i, 4, myOutputBytes, 0) 'myTransform.InputBlockSize
            i += 4 'myTransform.InputBlockSize
 
            sChaineDecodee &= System.Text.Encoding.Default.GetString(myOutputBytes)
        End While
 
        'Transform the final block of data.
        myOutputBytes = myTransform.TransformFinalBlock(myInputBytes, i, myInputBytes.Length - i)
        sChaineDecodee &= System.Text.Encoding.Default.GetString(myOutputBytes)
 
        'Free up any used resources.
        myTransform.Clear()
 
        Return sChaineDecodee
 
    End Function

L'ennui c'est que la chaine retournée est vide :? et que je ne sais pas comment résoudre ce problème. J'en appel à vos connaissances et compétences !

Code:

sChaineDecodee &= System.Text.Encoding.Default.GetString(myOutputBytes)

C'est ici le coeur du problème : sChaineDecodee vaut toujours vide. Quelle solution dois-je utiliser pour passer du tableau d'octets à la chaine ?

04/04/2006, 09h44
SamRay1024

Citation:

Envoyé par SamRay1024

Code:

sChaineDecodee &= System.Text.Encoding.Default.GetString(myOutputBytes)

C'est ici le coeur du problème : sChaineDecodee vaut toujours vide. Quelle solution dois-je utiliser pour passer du tableau d'octets à la chaine ?

J'ai déjà corrigé une erreur : l'opérateur de concaténation n'est pas le & mais le +. A force de passer d'un langage à l'autre, je mélange tout ! La ligne devient donc :

Code:

sChaineDecodee += System.Text.Encoding.Default.GetString(myOutputBytes)

Cela ne résoud cependant pas mon problème. Ma chaîne reste vide...Personne n'a d'idée ??

Voici deux méthodes que l'on vient de me communiquer qui fonctionnent :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
imports System
imports System.Text
 
Public Function Base64Decode(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
 
Public Function Base64Encode(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

Merci à tous...

Suggestion:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Imports System
Imports System.Text
 
Public Function Base64Decode(ByVal text As String) As String
 Dim sb As New StringBuilder("")
 Try
  If Not(Texte="") Then
   sb.Append(Encoding.ASCII.GetString(Convert.FromBase64String(text)))
  End If
 Catch
 Finally
  Return sb.ToString()
 End Try
End Function

24/11/2007, 17h48
TSalm

Puisqu'il n'y avait pas merci pour cette solution...je corrige cette erreur :

MERCI NEGUIB ! :king: