[R] Créer une WhiteList

[Saachaa]

Pas de solution ?

[mikell]

Scuz j'étais ailleurs...

Code : Tout sélectionner

 If StringCompare($ar_Array[$J], $whilelist[$k]) = 0 Then [strike]ContinueLoop[/strike] ExitLoop

[Saachaa]

Salut,

Fonctionne pas : Whitelist, et réécrit la détection du nombre de rang de l'array de la whitelist.

► Afficher le texte

Code : Tout sélectionner

|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Program Files\GIMP-2.0\share\gimp\2.0\patterns\cracked.pat
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.cbp
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\Softs\Crack Fighter\Crack Fighter.layout
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *crack*    |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Bureau\STC\search_the_crack.txt
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *removeWAT*  |  C:\Windows\System32\slmgr.vbs.removewat
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Users\Sacha\Dropbox\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm
|  *Keyfinder*  |  C:\Windows.old\Documents and Settings\Saachaa Corporation\Mes documents\Exe2Aut\!SourceCode\SRC\FrmAHK_KeyFinder.frm

 

[blacksoul305]

Salut,

rajoute des spoilers ! !!!

[mikell]

Ouch
Sorry...

► Afficher le texte

Code : Tout sélectionner

      For $a = 1 To $disque[0]
            For $I = 0 To UBound($recherche) - 1
                Global $drive = StringUpper($disque[$a])
                Global $ar_Array = _FileListToArrayEx($drive, $recherche[$I], 1, "", True)
                For $J = 1 To UBound($ar_Array) - 1
                    For $k = 0 To UBound($whilelist) - 1
                        ; MsgBox(0, "$ar_Array", $ar_Array[$J])
                        ; MsgBox(0, "$whilelist", $whilelist[$k])
                        If StringCompare($ar_Array[$J], $whilelist[$k]) = 0 Then ContinueLoop 2
                    Next
                    $true = 1
                    FileWriteLine($TXT, "[" & $recherche[$I] & "]" & " -> " & $ar_Array[$J])
                Next
            Next
        Next

[Saachaa]

Oups... sorry !

@Mikell... toujours pas

[Tlem]

Il serait peut être judicieux de prendre une fonction "moins performante" mais qui permet de faire des exclusions : http://www.autoitscript.fr/forum/viewto ... 893#p34893

[mikell]

NdD
J'avais pas testé... parmi la foultitude des fonctions FileListToArray tu as choisi celle qui retourne les chemins complets
Donc pas de StringCompare, mais StringInStr ou StringRegExp ^^

► Afficher le texte

Code : Tout sélectionner

For $J = 1 To UBound($ar_Array) - 1
   For $k = 0 To UBound($whilelist) - 1
       ; MsgBox(0, "$ar_Array", $ar_Array[$J])
       ; MsgBox(0, "$whilelist", $whilelist[$k])
       If StringInStr($ar_Array[$J], $whilelist[$k]) Then ContinueLoop 2
   Next
     $true = 1
     FileWriteLine($TXT, "[" & $recherche[$I] & "]" & " -> " & $ar_Array[$J])
Next

[Saachaa]

Salut tout le monde !

@Mikell, je teste de suite. NDD ça veut dire quoi ?

@Tlem, Oui j'ai d'ailleurs choisis ma fonction de recherche la dedans, mais je voulais absolument faire un array (pour mes connaissances personnelles ).

[blacksoul305]

NdD = Nom de Dieu. Enfin, moi j'ai compris ça.

[Saachaa]

Ha oui pas bête !

Bah il ne trouve rien même avec ça...

J'ai mis la partie des fois que...

Fichier : hacking.exe sur le bureau, il ne trouve pas...

► Afficher le texte

Dim $recherche[24] = _
["*crack*", _
"*serial*key*", _
"*keymaker*", _
"*keygen*", _
"*pirater*", _
"*piratage*", _
"*removeWAT*", _
"*XP*Activat*", _
"*Vista*Activat*", _
"*Seven*Activat*", _
"*chew*wga*", _
"*antiwat*", _
"*winkeygpack*", _
"*AntiGA*", _
"*wga*fix*", _
"*wga*remover*", _
"*MGA_crack*", _
"*Keyfinder*", _
"*AntiWPA*", _
"xpkey.exe", _
"nec-XPact.exe", _
"hale.exe", _
"watermark.exe", _
"*hack*"]

Dim $whilelist[24] = _
["VLC", _
".png", _
".ico", _
".wav", _
".frm", _
".md3", _
".dss", _
".wav", _
".wkz", _
".mp3", _
".pat", _
".class", _
"iehacks", _
"ResHack", _
"hackman", _
"ophcrack", _
"eggcrack", _
"WildGames", _
"imageshack", _
"firecrackle", _
"ImagesHackUs", _
"IE5Mac_backslash_hack.csn", _
"\Dreamweaver\configuration\Content\Reference\PHP"]

FileWriteLine($TXT, "¤¤¤¤¤¤¤¤| Résultat de la recherche" & @CRLF)
FileWriteLine($TXT, "")
FileWriteLine($TXT, "")

For $a = 1 To $disque[0]
For $I = 0 To UBound($recherche) - 1
Global $drive = StringUpper($disque[$a])
Global $ar_Array = _FileListToArrayEx($drive, $recherche[$I], 1, "", True)
For $J = 1 To UBound($ar_Array) - 1
For $k = 0 To UBound($whilelist) - 1
If StringInStr($ar_Array[$J], $whilelist[$k]) = 0 Then ContinueLoop 2
$true = 2
FileWriteLine($TXT, "| " & $recherche[$I] & " | " & $ar_Array[$J])
Next
Next
Next
Next

[blacksoul305]

Ne pas oublier la balise code dans le spoiler

[mikell]

Tu m'aurais mis d'emblée du code utilisable, on aurait gagné du temps
Là j'ai fait un script de test (donc à adapter) mais qui marche ^^

► Afficher le texte

Code : Tout sélectionner

;#Include <Array.au3>

Dim $recherche[24] = _
["*chants*", _
"*serial*key*", _
"*keymaker*", _
"*keygen*", _
"*pirater*", _
"*piratage*", _
"*removeWAT*", _
"*XP*Activat*", _
"*Vista*Activat*", _
"*Seven*Activat*", _
"*chew*wga*", _
"*antiwat*", _
"*winkeygpack*", _
"*AntiGA*", _
"*wga*fix*", _
"*wga*remover*", _
"*MGA_crack*", _
"*Keyfinder*", _
"*AntiWPA*", _
"xpkey.exe", _
"nec-XPact.exe", _
"hale.exe", _
"watermark.exe", _
"*hack*"]

Dim $whilelist[24] = _
["VLC", _
".png", _
".ico", _
".wav", _
".frm", _
".md3", _
".dss", _
".wav", _
".wkz", _
".mp3", _
".pat", _
".class", _
"iehacks", _
"ResHack", _
"hackman", _
"ophcrack", _
"eggcrack", _
"WildGames", _
"imageshack", _
"firecrackle", _
"ImagesHackUs", _
"IE5Mac_backslash_hack.csn", _
"\Dreamweaver\configuration\Content\Reference\PHP"]

$TXT = "1.txt"
FileWriteLine($TXT, "¤¤¤¤¤¤¤¤| Résultat de la recherche" & @CRLF)
FileWriteLine($TXT, "")
FileWriteLine($TXT, "")


For $I = 0 To UBound($recherche) - 1
    $ar_Array = _FileListToArrayEx(@desktopdir, $recherche[$I], 1, "", True)
;_ArrayDisplay($ar_Array)
    For $J = 1 To UBound($ar_Array) - 1
        For $k = 0 To UBound($whilelist) - 1
           $f = 0
           If StringInStr($ar_Array[$J], $whilelist[$k]) Then 
            $f = 1 
            Exitloop
           EndIf
        Next
        If $f = 0 Then
          $true = 2
          FileWriteLine($TXT, "| " & $recherche[$I] & " | " & $ar_Array[$J])
        EndIf
    Next
Next

;=======================================================================

Func _FileListToArrayEx($sPath, $sFilter = '*.*', $iFlag = 0, $sExclude = '', $iRecurse = False)
    If Not FileExists($sPath) Then Return SetError(1, 1, '')
    If $sFilter = -1 Or $sFilter = Default Then $sFilter = '*.*'
    If $iFlag = -1 Or $iFlag = Default Then $iFlag = 0
    If $sExclude = -1 Or $sExclude = Default Then $sExclude = ''
    Local $aBadChar[6] = ['\', '/', ':', '>', '<', '|']
    $sFilter = StringRegExpReplace($sFilter, '\s*;\s*', ';')
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    For $iCC = 0 To 5
        If StringInStr($sFilter, $aBadChar[$iCC]) Or _
            StringInStr($sExclude, $aBadChar[$iCC]) Then Return SetError(2, 2, '')
    Next
    If StringStripWS($sFilter, 8) = '' Then Return SetError(2, 2, '')
    If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, '')
    Local $oFSO = ObjCreate("Scripting.FileSystemObject"), $sTFolder
    $sTFolder = $oFSO.GetSpecialFolder(2)
    Local $hOutFile = @TempDir & $oFSO.GetTempName
    If Not StringInStr($sFilter, ';') Then $sFilter &= ';'
    Local $aSplit = StringSplit(StringStripWS($sFilter, 8), ';'), $sRead, $sHoldSplit
    For $iCC = 1 To $aSplit[0]
        If StringStripWS($aSplit[$iCC],8) = '' Then ContinueLoop
        If StringLeft($aSplit[$iCC], 1) = '.' And _
            UBound(StringSplit($aSplit[$iCC], '.')) - 2 = 1 Then $aSplit[$iCC] = '*' & $aSplit[$iCC]
        $sHoldSplit &= '"' & $sPath & $aSplit[$iCC] & '" '
    Next
    $sHoldSplit = StringTrimRight($sHoldSplit, 1)
       
    If $iRecurse Then
        RunWait(@Comspec & ' /c dir /b /s /a ' & $sHoldSplit & ' > "' & $hOutFile & '"', '', @SW_HIDE)
    Else
        RunWait(@ComSpec & ' /c dir /b /a ' & $sHoldSplit & ' /o-e /od > "' & $hOutFile & '"', '', @SW_HIDE)
    EndIf
    $sRead &= FileRead($hOutFile)
    If Not FileExists($hOutFile) Then Return SetError(4, 4, '')
    FileDelete($hOutFile)
    If StringStripWS($sRead, 8) = '' Then SetError(4, 4, '')
    Local $aFSplit = StringSplit(StringTrimRight(StringStripCR($sRead), 1), @LF)
    Local $sHold, $a_AnsiFName
    For $iCC = 1 To $aFSplit[0]
        ; translate DOS filenames from OEM to ANSI
        $a_AnsiFName = DllCall('user32.dll','Int','OemToChar','str',$aFSplit[$iCC],'str','')
        If @error=0 Then $aFSplit[$iCC] = $a_AnsiFName[2]

        If $sExclude And StringLeft($aFSplit[$iCC], _
            StringLen(StringReplace($sExclude, '*', ''))) = StringReplace($sExclude, '*', '') Then ContinueLoop
        Switch $iFlag
            Case 0
                If StringRegExp($aFSplit[$iCC], '\w:\\') = 0 Then
                    $sHold &= $sPath & $aFSplit[$iCC] & Chr(1)
                Else
                    $sHold &= $aFSplit[$iCC] & Chr(1)
                EndIf
            Case 1
                If StringInStr(FileGetAttrib($sPath & '\' & $aFSplit[$iCC]), 'd') = 0 And _
                    StringInStr(FileGetAttrib($aFSplit[$iCC]), 'd') = 0 Then
                    If StringRegExp($aFSplit[$iCC], '\w:\\') = 0 Then
                        $sHold &= $sPath & $aFSplit[$iCC] & Chr(1)
                    Else
                        $sHold &= $aFSplit[$iCC] & Chr(1)
                    EndIf
                EndIf
            Case 2
                If StringInStr(FileGetAttrib($sPath & '\' & $aFSplit[$iCC]), 'd') Or _
                    StringInStr(FileGetAttrib($aFSplit[$iCC]), 'd') Then
                    If StringRegExp($aFSplit[$iCC], '\w:\\') = 0 Then
                        $sHold &= $sPath & $aFSplit[$iCC] & Chr(1)
                    Else
                        $sHold &= $aFSplit[$iCC] & Chr(1)
                    EndIf
                EndIf
        EndSwitch
    Next
    If StringTrimRight($sHold, 1) Then Return StringSplit(StringTrimRight($sHold, 1), Chr(1))
    Return SetError(4, 4, '')
EndFunc

[Saachaa]

Désolé je pensais avoir mis cela...

j'ai modifié ça marche Mikell , merci !

Je remets un R de plus dans le sujet ?