Discussion :

[hacker59]

Bonjour,

voici mon code :

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
16
Private Sub Teste(ByVal password As String, ByVal intMax As Integer)
        Dim Allchars As String = "abcdefghijklmnopqrstuvwxyABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
        Dim x As Integer = 0
        Do While (x <= intMax)
            For Each ch As Char In Allchars
                If (ch = password) Then
                    TextBox3.Text = ch
                    Exit For
                Else
                    TextBox2.Text = ch
                    TextBox2.Refresh()
                End If
            Next
            x = x + 1
        Loop
    End Sub

j'ai probléme avec la code, il s'arret a la dernière chiffre de mon allchars . je voudrais savoir comment passer aprés une lettre passer 2 lettre aprés 3 lettre ...etc par rapport password.
exemple : a à 9 , aa à 99 , aaa à 999 ....etc

Merci de votre réponse,

[ZenZiTone]

Quel est le but souhaité? J'ai pas compris le problème...

[hacker59]

Le but par exemple password = 123 avec teste("123",3) comme un bruteforce , il recherche à 1 à 3 chiffre par rapport a password avec des chiffres et des lettres
voici un exemple un video :

es ce que vous avez compris?

[jopopmk]

On peut comparer un char et un string en VB.NET ? Ça fait quoi comme comparo au final ?

Sinon, si j'ai compris le besoin :
- tu veux générer une chaine de 1 à intMax caractères,
- en passant par tous les compositions possibles,
- et comparer avec password pour voir si t'as trouvé le bon.

C'est ce qui ressort de la vidéo mais c'est pas franchement ce vers quoi ton code tend.

[hacker59]

Bonjour,

Sinon, si j'ai compris le besoin :
- tu veux générer une chaine de 1 à intMax caractères,
- en passant par tous les compositions possibles,
- et comparer avec password pour voir si t'as trouvé le bon.

oui, ç'est ça que je demande jopopmk.

voici le code :

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
16
17
18
19
 Private Sub Teste(ByVal password As String, ByVal intMin As Integer, ByVal intMax As Integer)
        Dim Allchars() As Char = "abcdefghijklmnopqrstuvwxyABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789".ToArray
        If intMax = 0 Then
            String.IsNullOrEmpty(password)
        Else
            Dim i As Integer = intMin
            Do While (i < intMax)
                For Each ch As Char In Allchars
                    If (ch = password) Then
                        TextBox3.Text = ch
                        Exit For
                    Else
                        TextBox2.Text = ch
                        TextBox2.Refresh()
                    End If
                Next
                i = (i + 1)
            Loop
        End If

il manque quoi pour passer aprés aa,ab,ac aprés aaa,aab aac.....etc?
Merci de votre réponse,

[ZenZiTone]

C'est de l'algo pur et dur. Il faut donc que tu prennes un papier et un crayon pour essayer de trouver les bonnes combinaisons

Si tu veux jouer la carte de la facilité, ce genre d'algo devrait se trouver rapidement sur le net.

PS : ta boucle While...Loop pourrait être remplacé par une boucle For...Next. Moins de risque de boucler à l'infini.