aide au programme Fermé

Question

bonjour, je voudrais de l'aide pour mettre ceci dedans dans mon programme: ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!"#$%&'()*+,-./:;<=>?@[\]^_'{|}~

voici le code:
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = OpenFileDialog1.FileName
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Enabled = False
Else
ProgressBar1.Value = ProgressBar1.Value + 1

End If
End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Label1.Text = "Password"
End Sub

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
If RichTextBox1.Text = "Password succesful"
Else
RichTextBox1.Text = "Password error"
End If
End Sub
End Class

pouvez-vous m'aide a mon probleme. Merci

MrYAU31 · Answer

Bonjour,

je voudrais de l'aide pour mettre ceci dedans dans mon programme: ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!"#$%&'()*+,-./:;<=>?@[\]^_'{|}~ 

Tu veux le mettre où ? Dans quel but ?
En gros, qu'est-ce que tu veux faire ???

zorro591 · Answer

le but c decrypter le password des fichier winrar & winzip

zorro591 · Answer

voici ou ca ce bloque: 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = True
    End Sub
        Function GenerateRandomString(ByRef length As Integer) As String
        Randomize()
        Dim allowableChars As String
        allowableChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789#$%&'()*+,-./:;<=>?@[\]^_'{|}~"

        Dim i As Integer
        For i = 1 To length

        Next
        GenerateRandomString = GenerateRandomString & Mid$(allowableChars, Int(Rnd() * Len(allowableChars) + 1), 1)
    End Function

Aide au programme

3 réponses

Discussions similaires

Newsletters