Genrateur de mots

0/5 (3 avis)

Snippet vu 5 765 fois - Téléchargée 839 fois

Contenu du snippet

Ce code doit être démmarrer soit en tant que fichier portant l'extension .vbs ou peut être inclut sur une page web.

Source / Exemple :


'Programmer par HELMUT
msgbox "Programmer par Helmut",,"The Futur Titan"
repit=1*msgbox("Voulez vous qu'il y ai plusieurs fois le même caractère dans le même mot ?",67,"Etape 1")
if repit<>2 then
nl=1*inputbox("Combien de lettres doit être composée le mot ?	(Pas plus de 101)","Etape 2")
if nl>0 then
nfl2=1*inputbox("Combien de lettres ajoutés ?	(Pas plus de 101)","Etape 3")
if nfl2>=0 then
dl=1*inputbox("Entrez le code ASCII de la lettre de début"&chr(13)&"De 1 à 255    		97 pour a"&chr(13)&"256 pour seulement des lettres ajoutés.",,97)
if dl>0 and dl<257 then
fl=1+1*inputbox("Entrez le code ASCII de la lettre de fin "&chr(13)&"De 1 à 255"&chr(13)&"(ne comprenez pas les lettres à ajoutés)"&chr(13)&"122 pour z"&chr(13)&" 256 pour seulement des lettres ajoutés.",,122)
if fl>0 and fl<258 then
set fso=createobject("scripting.filesystemobject")
set file=fso.createtextfile(fso.getparentfoldername(WScript.ScriptFullname)&"\Genkey.txt")
dim tl(100)
dim fl2(100)
for i=0 to nfl2-1
fl2(i)=1*(inputbox("Entrez le code ASCII de la lettre numéro "&i+1&" à ajouter"&chr(13)&"(32 pour la lettre d'espace)",,32))
next
nl2=nfl2+(fl-dl)
if repit=7 then
npossib=1
for i=0 to nl-1
npossib=(nl2-i)*npossib
next
end if
if repit=6 then i=msgbox("Il y aura : "&nl2^nl&" possibilités écrites dans le fichier Genkey.txt il fera donc "&((nl2^nl)*(nl+2))/1024&" Koctets voulez vous continuez ?",68,"Attention") else i=msgbox("Il y aura : "&npossib&" possibilités écrites dans le fichier Genkey.txt il fera donc "&(npossib*(nl+2))/1024&" Koctets voulez vous continuez ?",68,"Attention")
if i=6 then
nfl2=nfl2+1
if dl=256 then 
t=""
for each i in fl2
t=t+chr(i)
next
dl=fl2(0)
fl=fl2(0)
t=""
for each i in fl2
t=t+chr(i)
next
i=0
do
i=i+1
loop while fl2(i)<>""
nfl2=i+1
end if
fl=fl+nfl2
t1=0
t2=0
i3=0
i=0
t1=time
do
tl(i)=chr(dl)
i=i+1
loop while i<nl
i=nl
tl2=asc(tl(i-1))-1
do
if i=nl then f=fl
if i<nl then f=asc(tl(i-1))+1
do
tl2=tl2+1
increm tl,i,tl2
loop while tl2<f
if i<nl and f<fl then i=nl
if asc(tl(i-1))=fl then 
i2=i
do
tl(i-1)=chr(dl)
i2=i2+1
loop while i2<=nl
i=i-1
end if
if i-1>-1 then tl2=asc(tl(i-1))
loop while i>0
t2=time
if repit=6 then msgbox "Lorsque il y a "&nl&" lettres et "&nl2&" caractères il y a "&nl2^nl&" possibilitées"&chr(13)&"Le fichier Genkey.txt fait "&((nl2^nl)*(nl+2))/1024&" Koctets"&chr(13)&chr(13)&"Elles ont étés calculés entre ces labs de temps:"&chr(13)&chr(13)&t1&chr(13)&t2 else msgbox "Lorsque il y a "&nl&" lettres et "&nl2&" caractères et tous les mots ont des lettres différentes il y a "&npossib&" possibilitées"&chr(13)&"Le fichier Genkey.txt fait "&(npossib*(nl+2))/1024&" Koctets"&chr(13)&chr(13)&"Elles ont étés calculés entre ces labs de temps:"&chr(13)&chr(13)&t1&chr(13)&t2
end if
end if
end if
end if
end if
end if

sub ecriture
r=0
elem=""
for each e in tl
if e>=chr(fl-1) then r=1
if e>=chr(fl-nfl2-1) then 
r4=0
for r3=fl-nfl2 to fl-2
r4=r4+1
if e=chr(r3) then e=chr(fl2(r4-1))
next
end if
elem=elem+e
next

if repit=7 and r=0 then
r=-nl
for i4=1 to len(elem)
for i5=1 to len(elem)
if mid(elem,i4,1)=mid(elem,i5,1) then r=r+1
next
next
end if

if r=<0 then file.writeline elem
end sub

sub increm(tab,nel,cc)
tab(nel-1)=chr(cc)
ecriture
end sub

Conclusion :


Ce code génère un fichier genkey.txt contenant toutes les possibilités de création de mots(qui peuvent être des pass:) )
pour s'en servir correctement veuillez suivre les instructions ci-dessous:

1 - Démmarrer le
2 - Clikez sur OK
3 - si vous souhaitez créez une liste de mmots ou un mot pourra avoir plusieurs fois la meme lettre (abca par ex mais) cliquez sur oui sinon sur non
4 - tapez le nombre de lettres qui doivent composée ce mot pa ex 5 si vous voulez des mots comme celui ci :"lopzs"
5 - il s'agit des caractères autres qu'une suite de lettres qui seront ajoutés cad que si vous voulez des mots composé de 26 letre de l'alphabet + la lettre espace et "." alors il y aura 2 lettres ajoutés.metttez 0 pour aucune lettre ajoutées
6 - tapez le code ascii de début de la suite de lettres à utilisé mettez 256 pour n'utiliser que les lettres ajoutez.
7 - tapez le code ascii de fin de la suite de lettres à utilisé mettez 256 pour n'utiliser que les lettres ajoutez.
8 - si vous avez mis des lettres a ajoutez le programme vous demande quel code ascii utilisé pour les lettres ajoutées. il vous demandera le code pour chaque lettre ajoutée
9 - le script vous affiche les propriétés du fichier genkey.txt qui sera créer cliker sur
oui
10 - patientez quelques instants le temps que le code travaille
11 - le script vous affiche le bilan il ne vous reste plus qu'a démmarrer le fichier genkey.txt pour voir la liste des mots créez

@+

Helmut

A voir également

Ajouter un commentaire

Commentaires

le meme en vb svp!!!
essaye le prog met 100 au lieu de 97 par ex et tu verras que le prog écrira les possib de 100au chiifre de fin + les lettres ajoutés capito ?
tu verras
Je ne comprends pas bien l'intérêt ... les "lettre début" et "lettre fin" sont elles la première et la dernière du mot ou est-ce autre chose ? (j'ai la flemme de lire tout le code)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Helmut)