Public Class Form1
    'Aide: On a 1 Textbox et 1 Bouton.
    'Il y a 2 méthode pour réussir ce challenge
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ejOW93DVFd1uvp As String = System.Text.Encoding.UTF8.GetString(hYxGHqJmqwzetN8waRk4("U2kgdHUgY2hlcmNoZXMgbGUgbW90IGRlIHBhc3NlIGRlIGwnw6lwcmV1dmUgYydlc3Qgc2ltcGxlIGlsIGZhdXQgcXVlIHR1IGNoZXJjaGUgbGEgY2hhaW5lICJCb2JieTU0NCIsIHNpIHBhciBjaGFuY2UgdHUgYXJyaXZlcyDDoCBsYSB0cm91dsOpIGFsb3JzIGlsIG5lIHRlIHJlc3RlcmEgcGx1cyBxdSdhIGTDqWNvZGVyIGNlbGxlLWNpIGFmaW4gZGUgdHJvdXZleiBsZSBib24gbW90IGRlIHBhc3NlIQ0KQm9ubmUgY2hhbmNlIMOgIHRvaSBwb3VyIGNldHRlIMOpcHJldXZlLg=="))
        Dim ejOW93DVFd1uvpDCNQ8r As String = "NtzfUoaTVlNCF3D1wD6LCFNtzfUoaTVlNCF3D1wB3D1wBpgCF3D1wBj6dlFT71kdwTVlNtzfUoaX"
        Dim ejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8r As String = "UoaTVlNCF3D1wBTVlUoaF3D1wBj6dwTVlN3Wgwg"
        Dim ejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8r As String = "1kdwTVlN3WgwgFT71kdNtzfUoaTVlNCF3D1wBwTVlND6LUFCF3D1wBj6T71kdwTVlFT71kdwTVlNN3Wgwg"
        Dim bobby544 As String = "SEYuLi48Mw=="
        Dim ejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8r As String = "T71kdwD6LCFNtLUFT71kdwD6LCFNtzfUoaTVlNCF3D1wB3D1wBj6UFT71kdw1kdwTVlNtzfUoaTVlNCF3D1wBj63Wgwg"
        Dim pasejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rs6 As String = "wD6LCFNVlN3WgwgFT71kdNtzfUoaTVtzfUoaTVlNCF3D1wB3D1D6LUFT71kdwTVlN3Wgwg"

        Dim ejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8r As String = System.Text.Encoding.UTF8.GetString(hYxGHqJmqwzetN8waRk4(bobby544))
        If ejOW93DVFd1uvpDCNQ.Text = ejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8r & ejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8rejOW93DVFd1uvpDCNQ8r Then
            MsgBox("Mot de passe correct: Tu peux l'envoyez par mp à p1l0u pour qu'il le valide")
        Else : MsgBox("inccorrect password")
        End If
    End Sub

    Public Function hYxGHqJmqwzetN8waRk4(ByVal arer0IH5gsBg92F1ZOc As String) As Byte()
        If arer0IH5gsBg92F1ZOc Is Nothing Then Throw New ArgumentNullException("base64")
        Return Convert.FromBase64String(arer0IH5gsBg92F1ZOc)
    End Function
End Class