Discussion :

[hacker59]

bonjour, voila dans mon combobox1 sélectionne : Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9), symbole (>?@) ..etc

TEXTBOX1: ajoute hash MD5 (ex:827ccb0eea8a706c4c34a16891f84e7b)

en démarrent avec un button1 qui décrypte MD5

voici en image:

voici une partie mes codes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Public Class Form1
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Button1.Enabled = False
        Button2.Enabled = False
        ToolStripButton3.Enabled = False
        ToolStripButton4.Enabled = False
        PictureBox1.Enabled = False
        ComboBox1.Items.Add("Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9), symbole (>?@)")
        ComboBox1.Items.Add("Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9)")
        ComboBox1.Items.Add("Minuscule (a-z), Majuscule (A-Z)")
        ComboBox1.Items.Add("Majuscule (A-Z), Chiffre (0-9)")
        ComboBox1.Items.Add("Minuscule (a-z), Chiffre (0-9)")
        ComboBox1.Items.Add("Majuscule (A-Z)")
        ComboBox1.Items.Add("Minuscule (a-z)")
        ComboBox1.Items.Add("Chiffre (0-9)")
        RichTextBox1.Text = String.Concat(New String() {Strings.Format(DateAndTime.Now, "hh:mm:ss"), " - Merci Avoir Telecharger Mon Logiciel MD5 Decrypter", Environment.NewLine, Strings.Format(DateAndTime.Now, "hh:mm:ss"), " - Bonjour, Bienvenue Mon Logiciel Pour Decrypter MD5.", Environment.NewLine, Strings.Format(DateAndTime.Now, "hh:mm:ss"), " - Entrer Un Hash MD5 ET Clicker Start Sur Decrypter MD5.."})
    End Sub
 
    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        If (Strings.Len(TextBox1.Text) < &H20) Then
            Button1.Enabled = True
            Button2.Enabled = True
            ToolStripButton3.Enabled = True
            ToolStripButton4.Enabled = True
            Timer1.Stop()
        ElseIf (Strings.Len(TextBox1.Text) = &H20) Then
            Button1.Enabled = True
            Button2.Enabled = True
            ToolStripButton3.Enabled = True
            ToolStripButton4.Enabled = True
        End If
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.SelectedIndex
            Case 0
                    Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9), symbole (>?@)
        End Select
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        RichTextBox1.ForeColor = Color.Black
        RichTextBox1.BackColor = Color.White
        PictureBox1.Enabled = True
        RichTextBox1.SelectionStart = RichTextBox1.TextLength
        RichTextBox1.ScrollToCaret()
        RichTextBox1.Select()
        Timer1.Start()
        Label5.Text = Strings.Format(DateAndTime.Now, "hh:mm:ss")
        RichTextBox1.AppendText(("" & Environment.NewLine))
        RichTextBox1.AppendText(("" & Environment.NewLine & Strings.Format(DateAndTime.Now, "hh:mm:ss") & " - Commencez Le crackage du Hash MD5 ..."))
        RichTextBox1.AppendText(("" & Environment.NewLine & Strings.Format(DateAndTime.Now, "hh:mm:ss") & " - S'il vous plaît patienter ..."))
        Button1.Enabled = False
        ToolStripButton3.Enabled = False
    End Sub

Comment on écrie le code dans combobox1?
Merci cordialement.

[prologic]

Quel code ?

[hacker59]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.SelectedIndex
            Case 0
                   Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9), symbole (>?@)
            Case 1
                   Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9)
            case 2
                  Minuscule (a-z), Majuscule (A-Z)
            case 3
                  Majuscule (A-Z), Chiffre (0-9)
            case 4
                  Minuscule (a-z), Chiffre (0-9)
            case 5
                 Majuscule (A-Z)
            case 6
                 Minuscule (a-z)
            case 7
                 Chiffre (0-9)
        End Select

Comment on écrie le code dans combobox1?
ex:
case 7
Chiffre (0-9) = "0123456789"

[_Ez3kiel]

1) Tu fais du multi-comptes sur le forum ?
2) Je dois être fatigué, mais je ne comprend pas ce que tu nous demandes.

[prologic]

Il te faut une fonction qui fait le decryptage et ta ComboBox appelle la fonction en passent des arguments différents.

La fonction doit être récursive avec une limite dans le nombre de caractères du mot de passe à tester histoire d'éviter les mdp à 1500 lettres.

Mais on va pas écrire la fonction à ta place .

[hacker59]

Merci prologic, pour cette explication mais pourrais-tu me donner un exemple?

[prologic]

http://www.developpez.net/forums/d13...ccourcir-code/

[hacker59]

bonjour, j'ai modifier mon logiciel Décryptage MD5. j'ai un petite problème avec Elapsed Time, il m'affiche l'heur a la place chrono.
Voici en image dans Pièce jointes.

Voici Une Partie de Mes Codes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        RichTextBox1.ForeColor = Color.Black
        RichTextBox1.BackColor = Color.White
        PictureBox1.Enabled = True
        RichTextBox1.SelectionStart = RichTextBox1.TextLength
        RichTextBox1.ScrollToCaret()
        RichTextBox1.Select()
        Timer1.Start()
        Label5.Text = Strings.Format(DateAndTime.Now, "hh:mm:ss")
        RichTextBox1.AppendText(("" & Environment.NewLine))
        RichTextBox1.AppendText(("" & Environment.NewLine & Strings.Format(DateAndTime.Now, "hh:mm:ss") & " - Commencez Le crackage du Hash MD5 ..."))
        RichTextBox1.AppendText(("" & Environment.NewLine & Strings.Format(DateAndTime.Now, "hh:mm:ss") & " - S'il vous plaît patienter ..."))
        Button1.Enabled = False
        ToolStripButton3.Enabled = False
        Button2.Enabled = True
        ToolStripButton4.Enabled = True
    End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Dim time As DateTime
        Dim time2 As DateTime
        PictureBox1.Enabled = False
        Timer1.Stop()
        Label5.Text = Strings.Format(DateAndTime.Now, "hh:mm:ss")
        If Not DateTime.TryParse(Label5.Text, time) Then
            Debugger.Break()
        End If
        If Not DateTime.TryParse(Label5.Text, time2) Then
            Debugger.Break()
        End If
        Dim span As New TimeSpan
        span = DirectCast((time2 - time), TimeSpan)
        RichTextBox1.ForeColor = Color.Green
        RichTextBox1.BackColor = Color.LightGreen
        RichTextBox1.AppendText(("" & Environment.NewLine))
        RichTextBox1.AppendText(("" & Environment.NewLine & Strings.Format(DateAndTime.Now, "hh:mm:ss") & " - Le hachage MD5 a été cracké avec succès!"))
        RichTextBox1.AppendText(("" & Environment.NewLine & Strings.Format(DateAndTime.Now, "hh:mm:ss") & " - Elapsed time: "))
        RichTextBox1.AppendText((span.TotalSeconds.ToString & " seconds"))
        RichTextBox1.AppendText(("" & Environment.NewLine & Strings.Format(DateAndTime.Now, "hh:mm:ss") & " - Fait!"))
        RichTextBox1.AppendText(("" & Environment.NewLine & Strings.Format(DateAndTime.Now, "hh:mm:ss") & " - Voici le texte décrypté:"Pwd"))
    End Sub

Comment On écrie le code dans Button1 pour démarrer le chrono.Merci

[prologic]

Il vient d'où ton Hash MD5 ?

Accessoirement, ta mini gestion des CPU m’intéresse. Tu peux passer le code ?

[hacker59]

ta mini gestion des CPU m’intéresse. Tu peux passer le code ?

voici mon project CPU + en image pour toi prologic.
va voir dans piece jointe.
Dans Timer1
si tu veux pas en ("%"), tu enlevé remplace ("" )

[hacker59]

bonjour, j'ai trouver la solution a mon problème voici en image dans pièce joints.
Avec START et STOP

Il me manque juste le code Pour décrypter HASH MD5
omment on écrie le code dans combobox1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.SelectedIndex
            Case 0
                Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9), symbole (>?@) = ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!#$%&'()*+,-./:;<=>?@[\]^_'{|}~
            Case 1
               Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9) = ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789
            case 2
               Minuscule (a-z), Majuscule (A-Z) = ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
            case 3
               Majuscule (A-Z), Chiffre (0-9) = ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
            case 4
               Minuscule (a-z), Chiffre (0-9) = abcdefghijklmnopqrstuvwxyz0123456789
            case 5
               Majuscule (A-Z) = ABCDEFGHIJKLMNOPQRSTUVWXYZ
            case 6
               Minuscule (a-z) = abcdefghijklmnopqrstuvwxyz
            case 7
               Chiffre (0-9) = 0123456789
            End Select

il y a t-il quelqu'un qui peut m'aider?
Merci, cordialement

[Rainui]

Bonjour,

Pour remplacer le code de Combobox1.SelectedIndexChange,qui au final ne fait pas grand chose, vous pouvez créer deux classes

La première ayant deux propriétés (ex: "Désignation" pour stocker le texte à afficher et "Value" pour stocker la chaine de caractères)

La deuxième héritant de List(Of ...)

Il ne reste plus qu'à binder la liste au combobox et de remplir les propriété .ValueMember , .DisplayMember.

Vu que votre code actuel ne lance aucun traitement, il deviendra inutile.

Pour la partie qui décrypte, la solution vous a été donné en lien dans un post de prologic.

Ex:
Définition des deux classes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Public Class DecryptValues
    Inherits List(Of DecryptValue)
End Class
 
Public Class DecryptValue
 
    Public Overloads Property Désignation() As String
    Public Overloads Property Value() As String
 
    Public Sub New(ByVal _D As String, ByVal _V As String)
        Me.Désignation = _D
        Me.Value = _V
    End Sub
 
End Class

Utilisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub ChargementFormulaire(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim lst As New DecryptValues
        With lst
            .Add(New DecryptValue("Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9), symbole (>?@)", "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!#$%&"))
            .Add(New DecryptValue("Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9)", "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"))
            .Add(New DecryptValue("Minuscule (a-z), Majuscule (A-Z)", "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"))
        End With
        With Me.ComboBox1
            .DataSource = lst
            .DisplayMember = "Désignation"
            .ValueMember = "Value"
        End With
    End Sub

Puis pour récupérer les données sélectionnées dans le combobox, il suffit d'utiliser combobox.SelectedValue là ou vous en avez besoin.

[hacker59]

bonjour, j'ai partage mon logiciel avec vous . mais il manque le code de décryptage MD5. aller voir dans pièces joint, il y a image + fichier du logiciel en winrar.

Si vous avez la solution fait moi savoir.
aller voir Mon Blog: http://zorro591.blogspot.fr/
Merci, cordialement hacker59.

[hacker59]

bonjour, avez-vous des nouvelles avec mon projet, Pour le code décrypter HASH MD5.il y a t-il quelqu'un qui pourrais m'aider a écrire le code décryptage MD5?
Merci,cordialement.

[hacker59]

bonjour,
Rainui,Pourrais-tu m'aider a créer le code décryptage Md5?
Mon projet est haut avec l'image.
Merci,cordialement.

[_Ez3kiel]

Regarde "Encrypt Decrypt md5 vb.net" sur Google, tu trouveras beaucoup d'informations pour commencer ton code. (Ou pour Copy/Paste ...)

[hacker59]

j'ai créer ce logiciel pour essayer décryptage MD5 mais j'ai cherché mais je suis sur une piste:
voici mes codes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim text As String = TextBox1.Text
        Dim alphabet As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!#$%&'()*+,-./:;<=>?@[\]^_'{|}~"
        Dim ObjCmd5 As New Cmd5
        Dim stopwatch As New Stopwatch
        Dim max As Integer = 1
        stopwatch.Start()
        TextBox3.Text = ("" & 1)
        If Not ObjCmd5.button1("", 1, alphabet, [text]) Then
            Do
                max += 1
                stopwatch.Start()
                TextBox3.Text = ("" & max)
            Loop While Not ObjCmd5.button1("", max, alphabet, [text])
        End If
        TextBox2.Text = ObjCmd5.RetourChaine
        stopwatch.Stop()
        Dim elapsedMilliseconds As Integer = CInt(stopwatch.ElapsedMilliseconds)
        MessageBox.Show(("Trouvé en : " & CStr((elapsedMilliseconds * 0.001)) & " sec"))
    End Sub

code MD5:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Class Cmd5
    Function button1(ByVal chaine As String, ByVal max As Integer, ByVal alphabet As String, ByVal text As String) As Boolean
        If (chaine.Length = max) Then
            Me.RetourChaine = chaine
            Return True
        End If
        Dim num As Integer = 0
        Do
            If Me.button1((chaine & alphabet.Chars(num)), max, alphabet, text) Then
                Return True
            End If
            num += 1
        Loop While (num < &H24)
        Return False
    End Function
    Public RetourChaine As String
 
End Class

voila quand je démarre le décryptage il m'affiche a.
il m'affiche aucune erreur. mais dans mon code il y a une erreur, peut-on corriger le problème .
Merci,cordialement
voici en image:

[_Ez3kiel]

Je ne peux pas t'aider pour la simple raison que je ne pense pas que l'on puisse décrypter du md5, car ce n'est pas de l'encryption, mais du Hash, après il existe des "convertisseurs" en ligne, mais je pense plutôt qu'ils ont une gigantesque Bdd de hash Md5 derrière, qu'ils remplissent avec des attaques BruteForce sur des Hash Md5 régulièrement, ainsi ils ont plus qu'à interroger leur Bdd.

Tu peux tenter par WebService pour récupérer leurs "Decryptions" ... Mais dans ce cas là je ne vois plus l'utilité du logiciel.


EDIT : Je confirme -> http://www.authsecu.com/decrypter-de...r-hash-md5.php

[hacker59]

bonjour, je voudrais savoir si mes codes dans combobox1 es ce que on écrie comme CA?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.SelectedIndex
            Case 1
                ComboBox1.Text = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!#$%&'()*+,-./:;<=>?@[\]^_'{|}~"
            Case 2
                ComboBox1.Text = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
            Case 3
                ComboBox1.Text = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
            Case 4
                ComboBox1.Text = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
            Case 5
                ComboBox1.Text = "abcdefghijklmnopqrstuvwxyz0123456789"
            Case 6
                ComboBox1.Text = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
            Case 7
                ComboBox1.Text = "abcdefghijklmnopqrstuvwxyz"
            Case 8
                ComboBox1.Text = "123456789"
        End Selec

Merci,cordialement.

[Rainui]

Bonsoir,

bonjour, je voudrais savoir si mes codes dans combobox1 es ce que on écrie comme CA?

Désolé mais mon décodeur est en panne

Et pour le code, je ne comprends pas l'intérêt de changer le texte affiché dans le combobox au changement de l'index sélectionné.
Pour faire plus simple, je ne comprends pas ce que vous demandez.