Si cela en intéressent quelques uns, je peux expliquer le principe si vous n'arrivez pas à comprendre l'algorithme.
Code : Tout sélectionner
DataSection
Data.S "html:)", "121212", "131313", "123123", "654321"
Data.S "8675309", "666666", "696969", "888888", "1234567"
Data.S "21122112", "12345678", "asdfjkl;", "hal9000"
Data.S "bond007", "ncc1701d", "ncc1701e", "ncc1701"
Data.S "thx1138", "a12345", "abcd1234", "1234qwer", "1a2b3c"
Data.S "1q2w3e", "test123", "1p2o3i", "puppy123", "kitten12"
Data.S "qwerty12", "john316", "apollo13", "ne1469", "amanda1"
Data.S "mazda1", "angela1", "alpha1", "sarah1", "nirvana1"
Data.S "bubba1", "scuba1", "rambo1", "charlie1", "david1"
Data.S "digital1", "dragon1", "honda1", "shadow1", "eagle1"
Data.S "freak1", "james1", "1sanjose", "apple1", "master1"
Data.S "happy1", "martin1", "jason1", "larry1", "number1"
Data.S "robert1", "soccer1", "direct1", "chester1", "welcome1"
Data.S "french1", "hockey1", "chevy1", "scooter1", "chris1"
Data.S "lucky1", "teddy1", "phoenix1", "hello1", "julie1"
Data.S "kevin1", "pookie1", "viper1", "jenny1", "jesus1"
Data.S "kelly1", "money1", "mouse1", "sting1", "justin1"
Data.S "molly1", "sunny1", "front242", "jordan23", "2welcome"
Data.S "h2opolo", "bird33", "4runner", "babylon5", "star69"
Data.S "ib6ub9", "america7", "seven7", "number9", "porsche9"
Data.S "barbara", "database", "banana", "bananas", "canada"
Data.S "jamaica", "amanda", "valhalla", "samantha", "yamaha"
Data.S "natasha", "alaska", "tamara", "zapata", "avatar"
Data.S "basketba", "baseball", "basebal", "bastard"
Data.S "nebraska", "banane", "abigail", "sabrina", "batman"
Data.S "cocacola", "cascade", "cardinal", "claudia"
Data.S "packard", "cannonda", "apache", "america", "canela"
Data.S "camera", "caesar", "warcraft", "catalog", "chapman"
Data.S "zachary", "alicia", "patricia", "carolina", "nicarao"
Data.S "captain", "nautica", "pascal", "rascal", "camaro"
Data.S "nascar", "deadhead", "adidas", "alexande", "airhead"
Data.S "alexandr", "andrea", "gandalf", "grandma", "happyday"
Data.S "indiana", "paladin", "miranda", "adrian", "dakota"
Data.S "dallas", "mayday", "pandora", "sandra", "xanadu"
Data.S "angela", "margaret", "stargate", "savage", "gateway"
Data.S "athena", "ariane", "pearljam", "maryjane", "oatmeal"
Data.S "pamela", "pantera", "vanessa", "graymail", "iguana"
Data.S "jaguar", "galaxy", "gasman", "hannah", "hawaii"
Data.S "mariah", "jonathan", "marshal", "martha", "nathan"
Data.S "italia", "aikman", "saskia", "vanilla", "mailman"
Data.S "animal", "animals", "impala", "attila", "marina"
Data.S "mariposa", "nirvana", "arizona", "joanna", "january"
Data.S "lakota", "avalon", "alyssa", "yomama", "montana"
Data.S "mantra", "tazman", "tarzan", "starwars", "bobcat"
Data.S "badboy", "barbie", "babies", "basketb", "rabbit"
Data.S "bamboo", "rebecca", "abcdef", "abcdefg", "blackie"
Data.S "excalibu", "campbell", "tacobell", "bigmac"
Data.S "jsbach", "columbia", "buddha", "badger", "butthead"
Data.S "bradley", "brenda", "bernard", "ladybug", "diablo"
Data.S "blizzard", "brandi", "bandit", "brandon", "brandy"
Data.S "beagle", "isabelle", "elizabet", "beanie", "beatles"
Data.S "webmaste", "beaner", "beaver", "fireball", "beautifu"
Data.S "gabriell", "gabriel", "poohbear", "bertha", "benjamin"
Data.S "bailey", "beavis", "basket", "blaster", "albert"
Data.S "blazer", "barney", "strawber", "braves", "buffalo"
Data.S "football", "softball", "footbal", "foobar", "bigman"
Data.S "gambit", "global", "malibu", "library", "brasil"
Data.S "brazil", "rainbow", "obiwan", "kombat", "snowball"
Data.S "marlboro", "snowbal", "playboy", "absolut", "wombat"
Data.S "canced", "icecream", "chance", "celica", "cracker"
Data.S "cancer", "access", "pacific", "chicago", "chocolat"
Data.S "arctic", "clancy", "cactus", "dickhead", "maddock"
Data.S "medical", "claude", "sundance", "dancer", "crawford"
Data.S "richard", "wildcat", "picard", "colorado", "conrad"
Data.S "corrado", "changeme", "chelsea", "peaches", "research"
Data.S "teachers", "teacher", "creative", "cleaner"
Data.S "france", "challeng", "michael", "charlie", "archie"
Data.S "hacker", "chanel", "rachel", "charles", "patches"
Data.S "jackie", "janice", "jessica", "maverick", "metallic"
Data.S "caroline", "special", "claire", "iceman", "maurice"
Data.S "maveric", "veronica", "carrie", "cassie", "active"
Data.S "slacker", "packer", "packers", "marcel", "coltrane"
Data.S "carole", "lacrosse", "scarlet", "scarlett", "castle"
Data.S "carmen", "pacers", "racerx", "stacey", "catfish"
Data.S "californ", "francois", "francis", "falcon", "graphic"
Data.S "logical", "garlic", "camping", "racing", "cougars"
Data.S "cougar", "chiquita", "christia", "nicholas"
Data.S "champion", "cynthia", "charity", "charlott"
Data.S "champs", "caitlin", "victoria", "tricia", "patrick"
Data.S "calvin", "monica", "macintos", "action", "picasso"
Data.S "jackson", "malcolm", "coolman", "classroo", "carlos"
Data.S "crystal", "compaq", "tomcat", "marcus", "cannon"
Data.S "corona", "cyrano", "topcat", "tractor", "laddie"
Data.S "undead", "edward", "maddog", "diamond", "donald"
Data.S "woodland", "greenday", "danielle", "dreamer"
Data.S "reader", "garfield", "alfred", "reading", "gerald"
Data.S "garden", "shithead", "daniel", "ireland", "raider"
Data.S "raiders", "daytek", "leonard", "dreams", "anderson"
Data.S "darren", "sanders", "andrew", "retard", "tuesday"
Data.S "asdfghjk", "asdfgh", "dragonfl", "florida", "friday"
Data.S "asdfjkl", "digital", "godzilla", "douglas", "dragon"
Data.S "harold", "rhonda", "zaphod", "howard", "shadows"
Data.S "shadow", "thursday", "indian", "island", "lindsay"
Data.S "lizard", "madison", "pyramid", "darwin", "tardis"
Data.S "wizard", "majordom", "jordan", "dollars", "orlando"
Data.S "portland", "ronald", "rodman", "raymond", "monday"
Data.S "sunday", "password", "passwd", "jeanette", "sweetpea"
Data.S "jaeger", "general", "eagles", "heather", "kathleen"
Data.S "hawkeye", "elephant", "sheena", "theresa", "theatre"
Data.S "whatever", "whateve", "amelie", "melanie", "elaine"
Data.S "valerie", "jeanne", "yankees", "walleye", "please"
Data.S "seattle", "weasel", "awesome", "netware", "teresa"
Data.S "grateful", "frankie", "fireman", "ferrari", "farmer"
Data.S "safety", "maggie", "georgia", "aggies", "imagine"
Data.S "galileo", "goalie", "enigma", "mirage", "wrangler"
Data.S "angels", "german", "orange", "oranges", "ranger"
Data.S "garnet", "voyager", "garrett", "target", "health"
Data.S "katherin", "sheila", "stephani", "sapphire"
Data.S "asshole", "harley", "stealth", "whales", "ashley"
Data.S "hammer", "herman", "theman", "hamster", "matthew"
Data.S "panther", "hearts", "harvey", "jasmine", "mikael"
Data.S "mailer", "melissa", "valentin", "lorraine", "alpine"
Data.S "aliens", "tequila", "reality", "laurie", "alexis"
Data.S "sammie", "maxime", "marine", "vampire", "insane"
Data.S "painter", "petunia", "praise", "pirate", "sierra"
Data.S "asterix", "xavier", "jasper", "lakers", "walker"
Data.S "kramer", "market", "tanker", "wanker", "parker"
Data.S "startrek", "skater", "maxwell", "stella", "montreal"
Data.S "temporal", "sampler", "marley", "samuel", "napoleon"
Data.S "espanol", "snapple", "planet", "lauren", "stanley"
Data.S "apples", "players", "player", "raquel", "slayer"
Data.S "travel", "walter", "lestat", "superman", "masters"
Data.S "master", "tanner", "suzanne", "newpass", "peanut"
Data.S "warren", "tiffany", "wolfgang", "flamingo", "farming"
Data.S "fugazi", "franklin", "family", "fountain", "wolfman"
Data.S "smashing", "virginia", "sailing", "training"
Data.S "stingray", "giants", "guitar", "magnum", "morgan"
Data.S "mustang", "gymnast", "august", "mishka", "harrison"
Data.S "spanish", "shanti", "joshua", "kathryn", "shalom"
Data.S "hansolo", "phantom", "thomas", "shannon", "hanson"
Data.S "anthony", "sharon", "hatton", "author", "arthur"
Data.S "nikita", "williams", "william", "raistlin", "olivia"
Data.S "julian", "jasmin", "allison", "marilyn", "alison"
Data.S "polaris", "sailor", "quality", "sylvia", "ironman"
Data.S "mountain", "tinman", "marino", "martin", "marvin"
Data.S "matrix", "nissan", "passion", "station", "tristan"
Data.S "austin", "utopia", "warriors", "warrior", "artist"
Data.S "travis", "krystal", "spanky", "sparky", "apollo"
Data.S "salmon", "psalms", "larson", "royals", "taylor"
Data.S "norman", "snowman", "sampson", "samson", "mozart"
Data.S "watson", "saturn", "tattoo", "toyota", "sparrow"
Data.S "parrot", "passwor", "qwaszx", "stuart", "taurus"
Data.S "bubbles", "debbie", "bluebird", "bigbird", "pebbles"
Data.S "robbie", "hobbit", "jimbob", "booboo", "december"
Data.S "quebec", "robotech", "republic", "october", "public"
Data.S "zxcvbnm", "broncos", "cowboys", "scooby", "cowboy"
Data.S "firebird", "bigred", "bridges", "dogbert", "thunderb"
Data.S "birdie", "blondie", "dilbert", "doobie", "blonde"
Data.S "rosebud", "bigdog", "bulldog", "sunbird", "remember"
Data.S "septembe", "homebrew", "herbert", "biteme", "bernie"
Data.S "reebok", "rebels", "byteme", "brewster", "webster"
Data.S "boogie", "junebug", "goblue", "goober", "shelby"
Data.S "theboss", "kimberly", "zombie", "timber", "bonnie"
Data.S "benoit", "business", "nesbitt", "bootsie", "bluesky"
Data.S "brooke", "volleyb", "bullet", "blowme", "trouble"
Data.S "butler", "boomer", "benson", "booster", "trebor"
Data.S "buster", "bigfoot", "blowfish", "bright", "bowling"
Data.S "biology", "gibson", "bullshit", "robinhoo", "bookit"
Data.S "wilbur", "bonjour", "symbol", "boston", "browns"
Data.S "buttons", "button", "brutus", "cccccc", "electric"
Data.S "science", "chicken", "cricket", "celtics", "cyclone"
Data.S "connect", "concept", "soccer", "success", "church"
Data.S "chucky", "scotch", "cloclo", "cuddles", "depeche"
Data.S "mercedes", "frederic", "deutsch", "duckie", "wicked"
Data.S "cinder", "director", "orchid", "dominic", "doctor"
Data.S "cheese", "coffee", "fletcher", "gretchen", "college"
Data.S "michelle", "michele", "speech", "chester", "celine"
Data.S "eclipse", "pierce", "service", "colleen", "telecom"
Data.S "welcome", "spencer", "center", "except", "secret"
Data.S "chiefs", "fletch", "fuckme", "fucker", "michell"
Data.S "mitchell", "michel", "chipper", "hockey", "cheryl"
Data.S "techno", "porsche", "hector", "cherry", "justice"
Data.S "pickle", "mickey", "snicker", "snickers", "cookie"
Data.S "cookies", "nicole", "police", "clipper", "mexico"
Data.S "connie", "vincent", "prince", "princess", "picture"
Data.S "pisces", "security", "cruise", "rocket", "puckett"
Data.S "tucker", "clover", "computer", "compute", "mercury"
Data.S "newcourt", "courtney", "cooper", "scooter", "coyote"
Data.S "copper", "fuckoff", "scruffy", "fiction", "fuckyou"
Data.S "gocougs", "christin", "christop", "chrissy"
Data.S "christ", "christy", "school", "psycho", "politics"
Data.S "knicks", "lincoln", "unicorn", "scorpion", "corwin"
Data.S "sonics", "scorpio", "victor", "victory", "curtis"
Data.S "trucks", "control", "compton", "moocow", "cosmos"
Data.S "popcorn", "xcountry", "country", "scotty", "deedee"
Data.S "dundee", "freddy", "dodger", "dodgers", "defense"
Data.S "freedom", "fender", "legend", "deliver", "denise"
Data.S "kennedy", "ledzep", "denver", "speedo", "speedy"
Data.S "dexter", "friend", "friends", "doggie", "digger"
Data.S "goldie", "redwing", "design", "doogie", "dougie"
Data.S "golden", "hendrix", "thunder", "inside", "kinder"
Data.S "redskin", "dookie", "lindsey", "dennis", "trident"
Data.S "sendit", "sidney", "detroit", "spider", "strider"
Data.S "donkey", "reynolds", "elwood", "redrum", "wonder"
Data.S "notused", "student", "sydney", "windsurf", "oxford"
Data.S "midnight", "dwight", "hotdog", "indigo", "kingdom"
Data.S "snoopdog", "gordon", "phurivdli", "judith", "dolphin"
Data.S "dolphins", "hotrod", "dorothy", "midori", "skidoo"
Data.S "domino", "nimrod", "wisdom", "windows", "dustin"
Data.S "stupid", "drizzt", "london", "studly", "voodoo"
Data.S "peewee", "reefer", "eugene", "sweetie", "kleenex"
Data.S "skeeter", "penelope", "steelers", "steele", "eeyore"
Data.S "weezer", "jeffrey", "jennifer", "jenifer", "ferret"
Data.S "reggie", "george", "wheeling", "genesis", "sergei"
Data.S "energy", "hershey", "kenneth", "shelley", "helpme"
Data.S "wheels", "promethe", "hermes", "stephen", "einstein"
Data.S "jessie", "nellie", "leslie", "letmein", "zeppelin"
Data.S "etoile", "nemesis", "internet", "pierre", "jewels"
Data.S "jeremy", "jensen", "jester", "kelsey", "loveme"
Data.S "people", "explorer", "wrestle", "letter", "wesley"
Data.S "velvet", "western", "newuser", "steven", "popeye"
Data.S "europe", "pepper", "express", "tester", "stever"
Data.S "testtest", "sweets", "sweety", "tweety", "griffey"
Data.S "golfer", "fisher", "spitfire", "flipper", "xfiles"
Data.S "fozzie", "sunflowe", "flowers", "flower", "flyers"
Data.S "forest", "surfer", "future", "ginger", "tigger"
Data.S "google", "nugget", "gregory", "theking", "gopher"
Data.S "gemini", "gilles", "piglet", "penguin", "guinness"
Data.S "singer", "testing", "genius", "tigers", "gretzky"
Data.S "gunner", "nguyen", "grover", "shirley", "memphis"
Data.S "sunshine", "phoenix", "whitney", "zenith", "hootie"
Data.S "sophie", "joseph", "huskers", "shelly", "mother"
Data.S "thumper", "hornets", "hornet", "hunter", "shooter"
Data.S "topher", "horses", "zephyr", "sherry", "millie"
Data.S "willie", "olivier", "minnie", "winnie", "trixie"
Data.S "jupiter", "killme", "killer", "mookie", "kermit"
Data.S "kristen", "tinker", "kittens", "kitten", "pookie"
Data.S "skipper", "miller", "soleil", "elliot", "little"
Data.S "merlin", "simple", "smiles", "smiley", "online"
Data.S "wolverin", "liverpoo", "iloveyou", "oliver"
Data.S "louise", "violet", "silver", "sylvie", "mortimer"
Data.S "swimmer", "emmitt", "monique", "pentium", "mittens"
Data.S "niners", "intern", "winner", "tennis", "senior"
Data.S "sniper", "sunrise", "winter", "tootsie", "puppies"
Data.S "ripper", "sprite", "monkey", "smokey", "network"
Data.S "newyork", "volley", "yellow", "russell", "lennon"
Data.S "nelson", "looney", "loveyou", "protel", "wolves"
Data.S "purple", "russel", "turtle", "memory", "summer"
Data.S "monster", "vermont", "trumpet", "system", "newton"
Data.S "yvonne", "runner", "preston", "entropy", "reznor"
Data.S "sunset", "rooster", "property", "porter", "export"
Data.S "trevor", "qwerty", "fluffy", "muffin", "snuffy"
Data.S "golfing", "froggy", "kingfish", "fishing", "flight"
Data.S "gofish", "goforit", "informix", "pinkfloy", "foxtrot"
Data.S "frosty", "zhongguo", "knights", "knight", "nothing"
Data.S "hunting", "wright", "shotgun", "lionking", "skiing"
Data.S "vikings", "viking", "swimming", "running", "roping"
Data.S "spring", "grumpy", "topgun", "groovy", "phillip"
Data.S "philip", "whisky", "timothy", "smiths", "sunshin"
Data.S "horizon", "history", "johnson", "johnny", "murphy"
Data.S "houston", "python", "shorty", "kristin", "kristi"
Data.S "million", "mission", "tintin", "vision", "spirit"
Data.S "junior", "justin", "pumpkin", "punkin", "skinny"
Data.S "stinky", "skippy", "kristy", "suzuki", "willow"
Data.S "wilson", "moroni", "mirror", "morris", "stimpy"
Data.S "winston", "poiuyt", "squirt", "spunky", "spooky"
Data.S "monopoly", "molson", "moomoo", "stormy", "toronto"
Data.S "snoopy", "support", "sports"
EndDataSection
LastWord = 1274
Global Dim Car.S(9), Chaine1.S, Chaine2.S, Txt.S, Clip.S
Procedure Open_Window_0()
If OpenWindow(0, 419, 89, 913, 52, "Trouve", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(0))
StringGadget(1, 29, 10, 770, 22, "")
ButtonGadget(2, 830, 10, 60, 30, "Stop")
EndIf
EndIf
EndProcedure
Procedure.S TriAlpha(String.S)
String = RSet(String,10," ")
For n = 1 To 10
Car(n-1)=Mid(String,n,1)
Next
SortArray(Car(),0)
Ret.S=""
For n=0 To 9
Ret+Car(n)
Next
ProcedureReturn Ret
EndProcedure
Procedure Trouve(Param)
Repeat
If Clip<>GetClipboardText()
Clip=GetClipboardText()
Clip = ReplaceString(Clip,"#","")
Clip = ReplaceString(Clip," ","")
Clip = ReplaceString(Clip,Chr(13),",")
Clip = ReplaceString(Clip,Chr(10),"")
Clip = ReplaceString(Clip,",,",",")
Debug Clip
Ret.S=""
For n=1 To 10
Chaine1 = TriAlpha(StringField(Clip,n,","))
Ret + Trim(Mid(Txt,FindString(Txt,Chaine1,1)+11,10))
Ret+", "
Next
Clip=Ret
SetGadgetText(1,Ret)
SetClipboardText(Clip)
EndIf
Delay(300)
ForEver
EndProcedure
Open_Window_0()
Txt=""
For i = 0 To LastWord
Read.S Chaine1
Chaine2=TriAlpha(Chaine1)
Txt + Chaine2 + " " + RSet(Chaine1,10," ")+" "
Next
SetClipboardText("")
Clip=""
CreateThread(@Trouve(),0)
Repeat
Event = WaitWindowEvent()
GadgetID = EventGadget()
If Event = #PB_Event_Gadget
If GadgetID = 2
End
EndIf
EndIf
Until Event = #PB_Event_CloseWindow
