Discussion :

[will2taz]

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 :

MAAQAAwAAAAeAAAAAtwAAAcAgAQAJgAtAEAARwBCTEFOQ0hBUkRPbGl2aWVyNDUsIHJ1ZSBkZXMgSWJpc2N1c01hcmlmZXI=

Me donne une fois décodé :

0 ܀&-@GBLANCHARDOlivier45, rue des IbiscusMarifer

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

Merci a tous !!!

[napegadie]

Tu n'arrive pas à ecrire une fonction pour faire les conversion et tu aimerais qu'on t propose une ?

[will2taz]

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

Merci beaucoup...

[Tusbar]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[napegadie]

Ou encore:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[will2taz]

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

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

MAAQAAwAAAAeAAAAAtwAAAcAgAQAJgAtAEAARwBCTEFOQ0hBUkRPbGl2aWVyNDUsIHJ1ZSBkZXMgSWJpc2N1c01hcmlmZXI=

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

0 ܀&-@GBLANCHARDOlivier45, rue des IbiscusMarifer

Mais malheureusement, j'obtient :

0

pour le code de Tusbar
et

0

pour le code de napegadie

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!