none
aide combobox1 RRS feed

  • Discussion générale

  • bonjour, je voudrais savoir comment on utilise un combobox1 en associent textbox1.

    mon combobox1:

    1. Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9), symbole (>?@)


    Comment on écrit le code.

    MERCI

    cordialement


    • Modifié zorro591 lundi 29 avril 2013 08:13
    • Type modifié Aurel Bera jeudi 4 juillet 2013 13:06 Discussion
    dimanche 28 avril 2013 16:50

Toutes les réponses

  • 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 de mes codes:

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            Button1.Enabled = False
            Button2.Enabled = False
            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
            Button1.Enabled = True
            Button2.Enabled = True
        End Sub
    
        Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    
        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
            RichTextBox1.SelectionStart = RichTextBox1.TextLength
            RichTextBox1.ScrollToCaret()
            RichTextBox1.Select()
            Timer1.Start()
            Label1.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
            End Sub

    comment on écrie le code dans combobox1. merci



    • Modifié zorro591 lundi 29 avril 2013 16:06
    lundi 29 avril 2013 15:41
  • Bonjour

    Vous avez besoin de un SELECT CASE

        Select Case ComboBox1.SelectedIndex

                Case 0

                    ‘Commande en cas de premier option sélectée

                Case 1

                    ‘Commande en cas de deuxième option sélectée

                Case 2

                    ‘Commande en cas de troisième option sélectée

            End Select

    Cordialement,


    Aurel BERA, Microsoft
    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

    mardi 30 avril 2013 07:50
  • bonjour, on écrie comment le code combobox1:

    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged SelectCase ComboBox1.SelectedIndex
    
    Case 0
    
    Minuscule(a-z), Majuscule (A-Z), Chiffre (0-9), symbole (>?@) = ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!#$%&'()*+,-./:;<=>?@[\]^_'{|}~
    
    End Select 
    End Sub
    il m'afficher une erreur dans
    Minuscule(a-z), Majuscule (A-Z), Chiffre ...etc
    comment on écrie.
    merci cordialement


    mardi 30 avril 2013 10:32
  • bonjour, comme je vous est dit dans Textbox1: ajoute hash MD5 (ex:827ccb0eea8a706c4c34a16891f84e7b)

    Combobox1: je selectionne les charactéres(Minuscule(a-z), Majuscule (A-Z), Chiffre ...etc) pour decrypter sur (textbox1= hash MD5) comme en image.

    Vous avez compris ce que je veux dire.Maintenant comment j'ecrie le code.

    Merci

    cordialement


    • Modifié zorro591 mardi 30 avril 2013 12:47
    mardi 30 avril 2013 12:44
  • ajoute hash MD5 (ex:827ccb0eea8a706c4c34a16891f84e7b)

    D'où vient ce 827ccb0eea8a706c4c34a16891f84e7b?

    C'est générée automatique, c'est le résultat d'un appel d'une fonction, c'est un chaine aléatoire?

    Cordialement,


    Aurel BERA, Microsoft
    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

    mardi 30 avril 2013 12:55
  • D'où vient ce 827ccb0eea8a706c4c34a16891f84e7b?

    sur le site http://www.md5.fr/ , je tape le text:12345 = 827ccb0eea8a706c4c34a16891f84e7b

    le but c decrypter hash MD5 Dans Textbox1 dans mon logiciel.

    mardi 30 avril 2013 13:05
  • Ok, maintenant c'est clair.

    Comme Sygrien vous a déjà répondu dans l'autre thread,

    http://social.msdn.microsoft.com/Forums/fr-FR/vbasicfr/thread/611bb3b2-6f70-42be-8d97-865ae8c1172f/#58d759fe-8acb-4dea-8cab-b77900091415

     Pour décrypter vous devez essayer de produire tous les combinassions, leur appliquer le calcul de MD5, et comparer le résultat.  

    Ce qui est assez important, et que Sygrien n'a pas écrit c'est que ça peut vous prendre des siècles ou plus.

    Pour générer les combinaisons, voici l’algorithme :

    http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/11ed7ace-5b6c-4fbe-a334-363e0e009fc1/

    Toujours je ne vois pas la liaison avec le titre de ce thread.

    Cordialement,


    Aurel BERA, Microsoft
    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

    mardi 30 avril 2013 13:34
  • Pour mieux comprendre, je vous prends un exemple :

    Pour générer tous les combinaisons pour les 5 caractères, ou on a disponibles un ensemble de :

    26 minuscules + 26 Majuscules + 10 chiffres  sans compter les symboles on a 62 caractères.

    Les combinaisons possibles sont

    62 * 62*62*62*62 = 916132832

    Pour 6 caractères vous avez 56800235584 combinaisons,

    Vous pouvez continuer le calcul, pour 7/8/9……..

    Cordialement,


    Aurel BERA, Microsoft
    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

    mardi 30 avril 2013 13:50
  • 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:

    Voici mes codes:

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            RichTextBox1.ForeColor = Color.Black
            RichTextBox1.BackColor = Color.White
            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
    
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
            If Not Timer1.Enabled Then
                Dim time As DateTime
                Dim time2 As DateTime
                Timer1.Stop()
                Label5.Text = Strings.Format(DateAndTime.Now, "hh:mm:ss")
                If Not DateTime.TryParse(Label4.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é:"))
            End If
        End Sub

    Il m'affiche avertissement avec DirectCast.

    Merci, Cordialement

    mercredi 1 mai 2013 14:28
  • bonjour, j'ai encore modifier mon logiciel pour décryptage MD5 mais j'ai toujours un problème avec Elapsed Time qui m'afficher l'heur a la place chrono.

    voici en image:

    Voici une partie de mes codes a jour:

    Public Class Form1 Private elpsTmr As New Stopwatch Private timeelapsed As Integer

    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() elpsTmr.Stop() elpsTmr.Reset() elpsTmr.Start() Label4.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(Label4.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é: 12345")) End Sub

    Il m'affiche toujours avertissement avec DirectCast.

    comment on peut corriger directcast par rapport avec mes codes.

    Merci, cordialement


    • Modifié zorro591 vendredi 3 mai 2013 21:09
    vendredi 3 mai 2013 20:53
  • Bonjour Zorro591,

    Au delà des remarques d'Aurel Bera, ton code est un peu difficile à suivre :

    • Variables inutilisées (elpsTmr, timeelapsed)
    • Arrêt de Timer1 dans l’événement Timer1_Tick

    Il me semble que Timer1 devrait être arrêté à la fin du traitement de décryptage, non ?

    Donc juste un petit bout de code qui affiche le temps :

    • de départ
    • actuel
    • écoulé
    Public Class Form1
    
        Private StartTime As DateTime
    
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            StartTime = Now
            Me.Label1.Text = Format(StartTime, "HH:mm:ss")
            Timer1.Start()
        End Sub
    
        Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
            Dim CurrentTime As DateTime
            Dim Span As New TimeSpan
    
            CurrentTime = Now
            Span = CurrentTime - StartTime
            RichTextBox1.Text = Format(CurrentTime, "HH:mm:ss") & " - Elapsed time: " & _
                                span.TotalSeconds.ToString & " seconds"
    
        End Sub
    
    End Class
    

    Et si tu tiens absolument à effectuer un Cast sur CurrentTime - StartTime, utilises Ctype au lieu de DirectCast. Mais les deux sont ici inutiles.


    Cordialement, Jacques

    samedi 4 mai 2013 12:15
  • Merci, Jaques93

    Mais j'ai trouver la solution a mon problème.

    voici en image:

    est en mode STOP:

    voici en image:

    Il me manque juste le code Pour décrypter HASH MD5

    comment on écrie le code dans combobox1

    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

    Jacques93, pourrais-tu m'aider a résoudre mon problème.

    Merci, cordialement

    samedi 4 mai 2013 13:41
  • Concernant le décryptage d'un MD5, je n'ai aucune connaissance. Je ne puis donc point t'aider sur ce point, désolé. Le seul usage que j'en connaisse est le contrôle de validité suite à téléchargement, bien que le MD5 soit généralement remplacé par  le SHA-1

    Cordialement, Jacques

    dimanche 5 mai 2013 11:43
  • bonjour, Merci pour ta réponse jacques93

    c'est rien, je vais rechercher la solution a mon problème.

    si vous avez la solution faite moi savoir.

    je partage mes logiciel avec vous ,allez voir mon Blog: http://zorro591.blogspot.fr/

    Merci, cordialement

    • Modifié zorro591 lundi 6 mai 2013 05:42
    dimanche 5 mai 2013 12:14
  • bonjour, je voudrais savoir comment on écrie le code dans combobox1? es ce que ça correspond a bien a combobox1?

    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 Select

    voici en image mon logiciel:

    Merci;cordialement.

    vendredi 17 mai 2013 17:57
  • bonjour,

    j'ai chercher une solution pour décrypter MD5 le plus rapidement. mais voila je voudrais savoir si dans mon combobox1 est-il bon par rapport au décryptage + j'ai un petit probleme avec mes codes.

    voici en image:

    voici mes codes:

    Public Class Form1
        Dim UpperCase As String
        Dim Lowercase As String
        Dim Digits As String
        Dim ObjCmd5 As New Cmd5
        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            ComboBox1.SelectedIndex = 0
        End Sub
     
        Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
            TextBox1.MaxLength = 32
            Button1.Enabled = True
            ComboBox1.Enabled = True
        End Sub
     
        Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
            Select ComboBox1.SelectedIndex
                Case 1
                    UpperCase = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
                Case 2
                    Lowercase = "abcdefghijklmnopqrstuvwxyz"
                Case 3
                    Digits = "1234567890"
            End Select
        End Sub
     
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Timer1.Start()
        End Sub
     
        Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
            Dim text As String = TextBox1.Text
            Dim alphabet As String = ComboBox1.SelectedIndex
            Dim stopwatch As New Stopwatch
            Dim maxi As String = 1
            stopwatch.Start()
            TextBox3.Text = ("" & 1)
            If Not ObjCmd5.button1("", 1, alphabet, text) Then
                Do
                    maxi += 1
                    stopwatch.Start()
                    TextBox3.Text = ("" & maxi)
                Loop While Not ObjCmd5.button1("", maxi, alphabet, text)
            End If
            TextBox2.Text = ObjCmd5.RetourChaine
            stopwatch.Stop()
            Timer1.Stop()
            Dim elapsedMilliseconds As Integer = CInt(stopwatch.ElapsedMilliseconds)
            MessageBox.Show(("Trouvé en : " & CStr((elapsedMilliseconds * 0.001)) & " sec"))
        End Sub
    End Class

    class cmd5

    Class Cmd5
        Public 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
                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

    MERCI,CORDIALEMENT.

    lundi 27 mai 2013 08:32