string$ = "e"
 
if not(empty(string$)) then
    print "String is not null"
 else
    print "String is null"
end if
end
 
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
 
 

 
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
 

 
for i=0 to 7 'Pour générer un mdp a 8 caractères
    gen = rand(0,35) 'On genere un nombre aléatoire
    mdp$= mdp$ + tableau$(gen) 'Et on enregistre le tout dans un autre tableau, pour pouvoir l'afficher en ligne (penser à trouver une autre solution)
next
 
    print "Votre mot de passe : "
    print
    print mdp$
    print
    input "Appuyer sur entrer pour quitter";retour
 
 

 
'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