Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
MD5 Cracker 2 - frmNumerico.vb

frmNumerico.vb

Caricato da:
Scarica il programma completo

  1. Imports System.IO
  2. Imports System.Text
  3. Imports System.Security
  4. Imports System.Security.Cryptography
  5. Public Class frmNumerico
  6.  
  7.     Public Function MD5(ByVal Word) As String
  8.         Dim Bytes() As Byte = ASCIIEncoding.ASCII.GetBytes(Word)
  9.         Dim md5h As New MD5CryptoServiceProvider
  10.         Dim Byt() As Byte = md5h.ComputeHash(Bytes)
  11.         Dim i As Integer = (Byt.Length * 2 + (Byt.Length / 8))
  12.         Dim StrBuild As StringBuilder = New StringBuilder(i)
  13.         Dim i2 As Integer
  14.         For i2 = 0 To Byt.Length - 1
  15.             StrBuild.Append(BitConverter.ToString(Byt, i2, 1))
  16.         Next i2
  17.         Return StrBuild.ToString().TrimEnd(New Char() {" "c}).ToLower
  18.     End Function
  19.  
  20.     Private Sub frmNumerico_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
  21.         End
  22.     End Sub
  23.  
  24.     Private Sub cmdstart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstart.Click
  25.         On Error Resume Next
  26.         Dim Stat As Boolean
  27.         Stat = False
  28.         Dim Num As Integer
  29.         If Len(txthash.Text) = 0 Then
  30.             MessageBox.Show("Inserire un hash da crakkare!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
  31.         Else
  32.             Dim i As Integer
  33.             For i = Numeric1.Value To Numeric2.Value
  34.                 Num = i
  35.                 If MD5(Num) = txthash.Text Then
  36.                     MessageBox.Show("L'hash " & txthash.Text & " corrisponde al numero " & Num, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
  37.                     lblris.Text = Num
  38.                     Stat = True
  39.                 End If
  40.             Next i
  41.             If Stat = False Then
  42.                 lblris.Text = "Non trovata"
  43.             End If
  44.             MessageBox.Show("Attacco numerico eseguito!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
  45.         End If
  46.     End Sub
  47. End Class