![[RTS]BN+VS*](/data/avatars/m/21/21094.jpg?1550195627){kind=avatar}
Private Sub LoopThroughAllCombinations()
Dim fullPwStep As String
Dim currentLvlPwNr As Int64
For pwLen As Integer = CInt(numMinLenght.Value) To CInt(numMaxLenght.Value)
fullPwStep = Me.CharSet.Right(0, 1).Repeat(pwLen).Text
currentLvlPwNr = 0
Do
Me.CurrentPassword = FromDecimal(currentLvlPwNr, Me.CharacterSet, pwLen)
' Do something with the combination
currentLvlPwNr += 1
Loop Until Me.CurrentPassword = fullPwStep
Next
End Sub ''' <summary>Convert the value from deciaml to the to-system</summary>
''' <param name="value">Required. Int64. The value you want to convert</param>
''' <param name="toSystem">Required. String. The symbols of the system you want to convert to</param>
Public Function FromDecimal(ByVal value As Int64, _
Optional ByVal toSystem As String = "0123456789", _
Optional ByVal paddingLength As Int32 = 0) As String
Dim nrDivisions As Int32 = 0
Dim charArr() As Char = toSystem.ToCharArray
FromDecimal = ""
' Determine how many divisions will be needed
Do
nrDivisions += 1
Loop Until toSystem.Length ^ nrDivisions > value
' Build up the string in the to-system
For devision As Integer = nrDivisions To 1 Step -1
FromDecimal &= charArr(CInt(CInt(value Mod toSystem.Length ^ devision) \ CInt(toSystem.Length ^ (devision - 1))))
Next devision
' Return the build up string that represents the value in the to-system, and trim zero-characters at the front
Return FromDecimal.TrimStart(charArr(0)).PadLeft(paddingLength, charArr(0))
End Function
End Module
look at this:
Congratulations on not answering the question. Would you like me to continue guessing at what your code is supposed to do?
"Horribly slow" would probably describe it best.
a) study mathematics, concentrate on cryptography, NEVER use "managed" code for performance optimized results.
Private Sub compareHashes()
Dim currentHash As String
Select Case m_hashType
Case "MD5" : currentHash = Hasher.ToMD5Hash(Me.CurrentPassword)
Case "MD4" : currentHash = (New Security.CryptoStr(Me.CurrentPassword)).ToMD4Hash().Text
Case "RIPEMD160" : currentHash = Hasher.ToRIPEMD160Hash(Me.CurrentPassword)
Case "SHA1" : currentHash = Hasher.ToSHA1Hash(Me.CurrentPassword)
Case "SHA256" : currentHash = Hasher.ToSHA256Hash(Me.CurrentPassword)
Case "SHA384" : currentHash = Hasher.ToSHA384Hash(Me.CurrentPassword)
Case "SHA512" : currentHash = Hasher.ToSHA512Hash(Me.CurrentPassword)
End Select
Dim hashNr As Int32 = 0
While hashNr < Me.RemainingHashesAmount
If m_remainingHashes(hashNr) = currentHash Then
m_crackedHashes.Add(New Hash(m_remainingHashes(hashNr), Me.CurrentPassword))
Debug.WriteLine(m_remainingHashes(hashNr) & ": " & Me.CurrentPassword)
m_remainingHashes.Remove(m_remainingHashes(hashNr))
displayHashResult(m_crackedHashes(Me.CrackedHashesAmount - 1))
End If
hashNr += 1
End While
End SubPublic Class PasswordFinder
Private Const AllowedChars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
Private Const CharsetSizeMinus1 As Integer = 61
Private TheCharset() As Byte
Private HashToSearch() As Byte
Private TheHasher As New System.Security.Cryptography.MD5CryptoServiceProvider
Public Sub New()
If CharsetSizeMinus1 + 1 <> AllowedChars.Length Then Throw New Exception("Make sure that charsetsize is correct!")
' Fill our charset array
ReDim TheCharset(AllowedChars.Length - 1)
For i As Integer = 0 To AllowedChars.Length - 1
TheCharset(i) = Asc(AllowedChars.Substring(i, 1))
Next
End Sub
Public Sub test()
Dim pw As String = "9999" ' worst case in current setup
Dim encoding As New System.Text.ASCIIEncoding()
HashToSearch = TheHasher.ComputeHash(encoding.GetBytes(pw))
Dim t As Date = Now
FindPassword(4)
MsgBox("Found in " & (Now - t).Duration.ToString)
End Sub
Private Function FindPassword(ByVal MaxLength As Integer) As Boolean
If MaxLength < 1 Or MaxLength > 8 Then Throw New Exception("bump")
Dim count As Integer = MaxLength
Dim offset As Integer = 8 - MaxLength
Dim b(7) As Byte
Dim h() As Byte
Dim i As Integer
Dim i7 As Integer, i6 As Integer, i5 As Integer, i4 As Integer
Dim i3 As Integer, i2 As Integer, i1 As Integer, i0 As Integer
For i3 = 0 To CharsetSizeMinus1
b(3) = TheCharset(i3)
For i4 = 0 To CharsetSizeMinus1
b(4) = TheCharset(i4)
For i5 = 0 To CharsetSizeMinus1
b(5) = TheCharset(i5)
For i6 = 0 To CharsetSizeMinus1
b(6) = TheCharset(i6)
For i7 = 0 To CharsetSizeMinus1
b(7) = TheCharset(i7)
h = TheHasher.ComputeHash(b, offset, count)
' compare the two hashes:
For i = 0 To 15
If h(i) <> HashToSearch(i) Then GoTo notfound
Next
' if we are here, we found the hash
' we need to save the found pw and do other stuff,
' but for now we simply ...
Return True
notfound:
Next i7
If MaxLength = 1 Then GoTo final
Next i6
If MaxLength = 2 Then GoTo final
Next i5
If MaxLength = 3 Then GoTo final
Next i4
If MaxLength = 4 Then GoTo final
Next i3
If MaxLength = 3 Then GoTo final
final:
Return False ' should never be reached of course
End Function
End Class
