DIM SA$(26)
    FOR I = 1 TO 26
        SA$ = CHR$(64 + I)
    NEXT I

SA$ = CHR$(64 + I)

 
'On rentre les lettres minuscules de a à z
for valS=0 to 25 step 1
 tableau$(valS) = chr$(97+valS)
next valS
 
'On rentre les chiffre de 1 à 9
for valN=0 to 9 step 1
 tableau$(valN+ValS+1) = str$(valS)
next valN
 
 

 
string$=STA$("abcdefghijklnopqrstuvwxyz123456789")
 
while empty(STAi$(STA))=false
     print STAi$(STA)
     STA=STA+1
wend
 
function STA$(string$)
    GLOBAL STA
    lenS=len(string$)
    let STA=0
    redim STAi$(lenS)
 
    while (i<>lenS)
        STAi$(i)=left$(right$(string$,lenS-i),1)
        i=i+1
    wend
    STA$=STAi$
end function
 
function empty(string$)
   if (string$="NULL") or (string$="")then
        empty=1
   else
        empty=0
   end if
end function
 

 
'on créer la variable string qui contient tous les caractères que l'on souhaite voir figurer dans le mot de passe et on mélange les caractères aléatoirement grâce à la fonction shuffle
stringMDP$="aàbcdeéèêfghijklnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789,;:!%*$£&"
lenStringMDP=len(stringMDP$)
modStringMDP$=STA$(strShuffle$(stringMDP$, 0))
longueur=10
 
for i=0 to longueur 'Pour générer un mdp a 8 caractères
    [regen]
    gen = rand(0,lenStringMDP) 'On genere un nombre aléatoire
    if empty(STAi$(gen))=false then
         mdp$= mdp$ + STAi$(gen)
    else
        goto [regen]
    end if
next
 
 
print "Votre mot de passe : ";chr$(13);chr$(13);mdp$;chr$(13)
input "Appuyer sur entrer pour quitter";retour
 
 
end
 
function rand(min,max)
    rand = int(rnd(1)*(max-min+1))+min
end function
 
function STA$(string$)
    GLOBAL STA
    lenS=len(string$)
    let STA=0
    redim STAi$(lenS)
 
    while (i<>lenS)
        STAi$(i)=left$(right$(string$,lenS-i),1)
        i=i+1
    wend
    STA$=STAi$
end function
 
function empty(string$)
   if (string$="NULL") or (string$="")then
        empty=1
   else
        empty=0
   end if
end function
 
function strShuffle$(string$, val)
    STA$=STA$(string$)
    lenS=len(string$)
 
    while (p<>lenS)
        rand=rand(0, lenS)
        if empty(STAi$(rand)) then
            p=p
        else
            if val=1 then
                chaine$=trim$(chaine$;STAi$(rand))
            else
                chaine$=chaine$;STAi$(rand)
            end if
            STAi$(rand)=""
            p=p+1
        end if
    wend
    strShuffle$=chaine$
end function