• Home
 · 
• String Manipulation
 · 
• brute force algorithm

brute force algorithm

it's supposed to return the next password in a sequence of passwords, not random passwords, or a dictionary attack. it's designed to return case-insensitive alphanumeric passwords, but that can easily be changed, i can't help you do that, it's up to you

Inputs
startPW - this is the pw you want the algorithm to start from noChange - if this is True, it'll just poll for the next pw w/o changing it inside the function startLength - ignored if startPW is used, must be > 1, it determines the length of the starting password.

Returns
the next base35 string (alphanumeric, lowercase)

Side Effects
none, as long as startLength is greater than 0

Rate brute force algorithm

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Public Function NextPW(Optional startPW As String, Optional noChange As Boolean, Optional startLength = 1) As String
  Dim pw() As String, i As Long, s As Long
  Static curPW As String
  If startPW <> "" And curPW = "" Then
    curPW = startPW
    NextPW = curPW
    Exit Function
  End If
  If curPW = "" Then
    curPW = String(startLength, 48)
    NextPW = curPW
    Exit Function
  End If
  If curPW = String(Len(curPW), 122) Then
    NextPW = String(Len(curPW) + 1, 48)
    If noChange = False Then curPW = NextPW
    Exit Function
  End If
  ReDim pw(Len(curPW))
  For i = 1 To Len(curPW)
    pw(i) = Mid(curPW, i, 1)
  Next
  i = UBound(pw)
donextchar:
  s = Asc(pw(i)) + 1
  Select Case s
    Case 58
      pw(i) = Chr(97)
    Case 123
      pw(i) = Chr(48)
      i = i - 1
      GoTo donextchar
    Case Else
      pw(i) = Chr(s)
  End Select
  For s = LBound(pw) To UBound(pw)
    NextPW = NextPW & pw(s)
  Next
  If noChange = False Then curPW = NextPW
End Function