bonjour voila je viens partager un code brut force en vb celui qui est interesser.
Private Function BruteForce(ByVal vnLongMin As Integer, ByVal vnLongMax As Integer) As String()
Dim Caractères() As Char = New String("ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz1234567890<>,?;.:/!§*µù%$£¤¨+=})]à@ç^\\_`è|-[({'#""é~&").ToCharArray()
Dim Lg As Integer = vnLongMin - 1
Dim y As Integer
Dim xsRet As Stack(Of String) = New Stack(Of String)
Erase BruteForce
For Lg = vnLongMin - 1 To vnLongMax - 1
Dim Buff() As Char = New String("A", Lg + 1).ToCharArray
Dim nChar(Lg) As Integer
Do
For Each c As Char In Caractères
Buff(Lg) = c
xsRet.Push(New String(Buff))
Next c
For y = Lg - 1 To 0 Step -1
nChar(y) += 1
If nChar(y) > Caractères.GetUpperBound(0) Then
nChar(y) = 0
Buff(y) = Caractères(0)
If y = 0 Then
Exit Do
End If
Else
Buff(y) = Caractères(nChar(y))
Exit For
End If
Next y
Loop
Next Lg
ReDim BruteForce(xsRet.Count - 1)
xsRet.CopyTo(BruteForce, 0)
End Function