Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: Décrypteur MD5 [BruteForce] ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Dim 11 Déc - 18:01 (2011)    Sujet du message: Décrypteur MD5 [BruteForce] Répondre en citant

• Aperçu :



• Description :
C'est un décrypteur de MD5. Ce dernier est une version simplifié d'un de mes décrypteur. Cela m'a permis de gagner en performance. Par exemple pour décrypter zzz il me faut moins de 4 secondes alors qu'avec mon ancien décrypteur il me fallait plus d'une minute.

• Téléchargement :

http://www.megaupload.com/?d=Q33RQ4BU

• Code :

Form1 :




  1. Imports System.IO  
  2.   
  3. Public Class Form1  
  4.   
  5.     Const Chiffre As String = "0123456789"  
  6.     Const Minuscule As String = "abcdefghijklmnopqrstuvwxyz"  
  7.     Const Majuscule As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"  
  8.   
  9.   
  10.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  11.         Dim Charr, good As Integer  
  12.         Dim current As String  
  13.         Dim BFCaractere As String = ""  
  14.   
  15.         Charr = NumericUpDown1.Value  
  16.   
  17.         If Charr <= 0 Then Exit Sub  
  18.         Dim separ() As String  
  19.         ReDim separ(Charr)  
  20.   
  21.         BFCaractere = TextBox1.Text & "["  
  22.   
  23.         If TextBox4.Text = "D41D8CD98F00B204E9800998ECF8427E" Then 'MD5 vide  
  24.             TextBox5.Text = ""  
  25.             Beep()  
  26.             Exit Sub  
  27.         End If  
  28.   
  29.         separ(1) = -1  
  30.   
  31.         Do  
  32.             separ(1) = BFCaractere.Substring(InStrRegex(BFCaractere, separ(1)) + 1, 1)  
  33.   
  34.             For verif% = 1 To Charr  
  35.                 If separ(verif%) = "[" Then  
  36.                     separ(verif%) = 0  
  37.                     If verif% < Charr Then  
  38.                         separ(verif% + 1) = BFCaractere.Substring(InStrRegex(BFCaractere, separ(verif% + 1)) + 1, 1)  
  39.                     End If  
  40.                 End If  
  41.             Next  
  42.   
  43.             current = String.Join("", separ)  
  44.             Application.DoEvents()  
  45.   
  46.             If TextBox4.Text = MD5Hash(ReverseString(current)) Then  
  47.                 TextBox5.Text = ReverseString(current)  
  48.                 MsgBox("Le programme a terminer", 4160, "Succès")  
  49.                 Exit Sub  
  50.             End If  
  51.   
  52.             If current.Length() = Charr Then  
  53.                 good = 1  
  54.                 For a% = 1 To Charr  
  55.                     If separ(a%) <> strLeft(strRight(BFCaractere, 2), 1) Then good = 0  
  56.                 Next  
  57.                 If good = 1 Then Exit Do  
  58.             End If  
  59.         Loop  
  60.         Exit Sub  
  61.   
  62.     End Sub  
  63.   
  64.     Private Sub Caractère_utilisé(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, NumericUpDown1.ValueChanged  
  65.   
  66.         If CheckBox1.Checked = True And CheckBox2.Checked = False And CheckBox3.Checked = False Then  
  67.             Me.TextBox1.Text = Chiffre  
  68.         ElseIf CheckBox1.Checked = False And CheckBox2.Checked = True And CheckBox3.Checked = False Then  
  69.             Me.TextBox1.Text = Minuscule  
  70.         ElseIf CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = True Then  
  71.             Me.TextBox1.Text = Majuscule  
  72.         ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = False Then  
  73.             Me.TextBox1.Text = Chiffre & "" & Minuscule  
  74.         ElseIf CheckBox1.Checked = True And CheckBox2.Checked = False And CheckBox3.Checked = True Then  
  75.             Me.TextBox1.Text = Chiffre & "" & Majuscule  
  76.         ElseIf CheckBox1.Checked = False And CheckBox2.Checked = True And CheckBox3.Checked = True Then  
  77.             Me.TextBox1.Text = Minuscule & "" & Majuscule  
  78.         ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True Then  
  79.             Me.TextBox1.Text = Chiffre & "" & Minuscule & "" & Majuscule  
  80.         ElseIf CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False Then  
  81.             Me.TextBox1.Text = ""  
  82.         End If  
  83.   
  84.     End Sub  
  85.   
  86.     Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click  
  87.         End  
  88.     End Sub  
  89.   
  90.     Private Sub CrypteurMD5ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrypteurMD5ToolStripMenuItem.Click  
  91.         Form2.Show()  
  92.     End Sub  
  93.   
  94.     Private Sub ResetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResetToolStripMenuItem.Click  
  95.         TextBox4.Text = ""  
  96.         TextBox5.Text = ""  
  97.         CheckBox1.Checked = True  
  98.         CheckBox2.Checked = False  
  99.         CheckBox3.Checked = False  
  100.         NumericUpDown1.Value = 1  
  101.     End Sub  
  102.   
  103.     Private Sub AProposToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AProposToolStripMenuItem.Click  
  104.         MsgBox("Auteur : Guillaume17", 4128, "A propos")  
  105.     End Sub  
  106.   
  107.     Private Sub AideToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AideToolStripMenuItem.Click  
  108.         MsgBox("Ce programme permet de décrypter du MD5. Plusieurs options s'offre à vous. Puis laisser faire le programe.", 4160, "Aide")  
  109.     End Sub  
  110. End Class  





Form2 :




  1. Public Class Form2  
  2.   
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  4.         Me.TextBox1.Text = MD5Hash(TextBox1.Text)  
  5.     End Sub  
  6. End Class  






• Mot de passe :

texte -> GILA7 -> BASE-64 -> AER-256

1180678.9111144114, 1078511.1795378574, 1121719.9249700934, 1618039.9368682774, 1267715.8667241563, 1022553.9437307945, 21.48311610049632

• Scan :http://alien-hack.forum-box.com/redirect1/http://www.virustotal.com/file-sc…

http://www.virustotal.com/file-scan/report.html?id=bd5ba43e86669821589989e7…


PS : key = Guillaume17

Sachant que le md5 est un hash non réversible que l'ont doit comparer à des tables, fonctionnalitée à vérifiée..


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 18:01 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com