Decodage de Base64

Version imprimable

31/07/2007, 23h37
will2taz

Decodage de Base64

Bonjour à tous,

Je reviens vers vous car j'aimerais pouvoir décoder une chaine de caractères encoder en Base64.

Je trouve énormément de convertisseur de base64 vers String, mas je n'arrive pas à implémenter ça en VB .NET.

Par exemple :

Citation:

MAAQAAwAAAAeAAAAAtwAAAcAgAQAJgAtAEAARwBCTEFOQ0hBUkRPbGl2aWVyNDUsIHJ1ZSBkZXMgSWJpc2N1c01hcmlmZXI=

Me donne une fois décodé :

Citation:

0 Ü€&-@GBLANCHARDOlivier45, rue des IbiscusMarifer

Si quelqu'un a des idées de fonctions, sa serait super sympa.

Merci a tous !!!
01/08/2007, 15h28
napegadie

Tu n'arrive pas à ecrire une fonction pour faire les conversion et tu aimerais qu'on t propose une ?
01/08/2007, 19h26
will2taz

Et bien oui, un peu d'aide serait la bienvenue car comme je suis débutant, je ne connais pas encore tout :P

Merci beaucoup...

Code:

1
2
Imports System.Security.Cryptography
Imports System.Text

Code:

1
2
3
4
5
6
7
8
9
    Public Function Crypt64(ByVal Source As String) As String
        Dim Sha1 As New SHA1Managed
        Convert.ToBase64String(Sha1.ComputeHash(Encoding.ASCII.GetBytes(Source)))
        Return Convert.ToBase64String(ASCIIEncoding.ASCII.GetBytes(Source))
    End Function
 
    Public Function Decrypt64(ByVal Source As String) As String
        Return ASCIIEncoding.ASCII.GetString(Convert.FromBase64String(Source))
    End Function

Voila voila ;)

Ou encore:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public Function encode(ByVal ValString As String) As String
        Dim Valencode As New System.Text.UnicodeEncoding
        Dim Buffer As Byte() = Valencode.GetBytes(ValString)
        Return Convert.ToBase64String(Buffer)
    End Function
 
 
    Public Function decode(ByVal ValString As String) As String
        Dim Valencode As New System.Text.UnicodeEncoding
        Dim Buffer As Byte() = Convert.FromBase64String(ValString)
        Return Valencode.GetString(Buffer)
    End Function

Merci à tous les deux, mais malheureusement, cela ne fonctionne pas. :cry:

J'ai essayer vos fonctions avec les données suivantes :

Citation:

MAAQAAwAAAAeAAAAAtwAAAcAgAQAJgAtAEAARwBCTEFOQ0hBUkRPbGl2aWVyNDUsIHJ1ZSBkZXMgSWJpc2N1c01hcmlmZXI=

Je devrais obtenir , d'après le décodeur Base64 sur internet : http://www.paulschou.com/tools/xlate/:

Citation:

0 Ü€&-@GBLANCHARDOlivier45, rue des IbiscusMarifer

Mais malheureusement, j'obtient :

Citation:

0

pour le code de Tusbar
et

Citation:

0

pour le code de napegadie

Peut être que je m'y prend mal ? Voici mes différents codes :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Try Me.lblDecrypt.Text = Me.lblDecrypt.Text & Decrypt64(Me.txtDecode.Text) Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Erreur") EndTry EndSub PublicFunction Decrypt64(ByVal Source AsString) AsString Return ASCIIEncoding.ASCII.GetString(Convert.FromBase64String(Source)) EndFunction
ou encore :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Me.lblDecrypt.Text = Me.lblDecrypt.Text & Decode64(Me.txtDecode.Text) Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Erreur") EndTry EndSub PublicFunction Decode64(ByVal ValString AsString) AsString Dim Valencode AsNew System.Text.UnicodeEncoding Dim Buffer AsByte() = Convert.FromBase64String(ValString) Return Valencode.GetString(Buffer) EndFunction
Avez vous une idée ?
Merci beaucoup !!!

05/08/2007, 22h36
will2taz

Je sèche... Galère, galère... :cry:
06/08/2007, 00h01
Tusbar

C'est normal, ta chaine en base 64 (ou pas) ne correspond pas à

Citation:

0 Ü€&-@GBLANCHARDOlivier45, rue des IbiscusMarifer

En revanche, ceci, si :

Citation:

MBAgHgI/Bz8EJi1AR0JMQU5DSEFSRE9saXZpZXI0NSwgcnVlIGRlcyBJYmlzY3VzTWFyaWZlcg==
06/08/2007, 09h52
will2taz

Merci, mais alors, dans ce cas, sais tu pourquoi le site suivant : http://www.paulschou.com/tools/xlate/ me donne la chaine de caractère citée lorsque tu insère la chaine codée dans la case base64 ???
06/08/2007, 13h13
Tusbar

J'obtiens :

Citation:

MBAgHgLcB4AEJi1AR0JMQU5DSEFSRE9saXZpZXI0NSwgcnVlIGRlcyBJYmlzY3VzTWFyaWZlcg==

Tu as du te tromper quelque part.

Mais attention :

Citation:

Please note:
This application encodes and decodes ASCII and ANSI text.
Only codepoints < 128 are ASCII. This is provided for educational and entertainment use only.