Generateur de mots

Soyez le premier à donner votre avis sur cette source.

Vue 4 956 fois - Téléchargée 235 fois

Description

pour augmenter a + de 100 possibiltés de lettres dans le code source remplacer la variable la commande :"dim tl(100)" par "dim tl(150)" ou "dim tl(1000)" etc .. mais par par une variable cela ne fonctionneras pas une fois cette modification effectuée le programme pourra acceptée n'importe quel quantités de lettres en dessous du maximum que vous venez de fixez.

Source / Exemple :


set fso=createobject("scripting.filesystemobject")
set file=fso.createtextfile(fso.getparentfoldername(WScript.ScriptFullname)&"\Genkey.txt")
t1=0
t2=0
compte=0
i3=0
nl=inputbox("Combien de lettres ?	(Pas plus de 101)")
nl=1*nl
dim tl(100)
i=0
t1=time
do
tl(i)=chr(97)
i=i+1
loop while i<nl
i=nl
tl2=asc(tl(i-1))-1
do
if i=nl then f=122
if i<nl then f=asc(tl(i-1))+1
do
tl2=tl2+1
if tl2<123 then compte=compte+1
increm tl,i,tl2
loop while tl2<f
if i<nl and f<123 then i=nl
if asc(tl(i-1))=123 then 
i2=i
do
tl(i-1)=chr(97)
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
msgbox "Lorsque il y a "&nl&" lettres il y a "&compte&" possibilitées "&chr(13)&chr(13)&"Elles ont étés calculés entre ces labs de temps:"&chr(13)&chr(13)&t1&chr(13)&t2
sub ecriture
r=0
elem=""
for each e in tl
if e="{" then r=1
elem=elem+e
next
if r=0 then file.writeline elem
end sub

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

Conclusion :


Il s'agitt d'un code Programmation VBScript qui crée un fichier Genkey.txt où il écrit toutes les possibilités et affaiche à la fin le total

helmut01@caramail.com

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
2
Date d'inscription
vendredi 30 décembre 2005
Statut
Membre
Dernière intervention
11 juillet 2007

SUPER JE PENSAIS QUE C'ETAIT PAS POSSIBLE A PROGRAMMEZ PARCE QUE TROP LONG
ENFIN JY CROIS ENCORE MERCI BOUCOUP
DESORMAIS DANS LA PARTIE MATH PAGE 2 LE CODE :"GENERATEUR DE MOTS (QUI PEUVENT ETRE DES PASS OU LOGIN)"
PERMET DE GENERER DES MOTS AVEC DES CHIFFRES ET CARCTERES DE TOUTE LA TABLE ASCII EN + PLEIN D'OPTIONS EN + SONT DISPONIBLES ALLEZ VOIR CA VAUT LE COUP.

tout compte fait, ya des bonnes aplication à ce code!
à commencer par un casseur de pass!
j'y travaille des que j'ai fini Clock-Design...

Merci helmut!
pas en france mais beirouth.

Combien? Ou ça?
je la trouve nul part!
Afficher les 12 commentaires

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)