ALIAS DE GÉNÉRATION DE MOTS DE PASSE ALÉATOIRES

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; alias de génération de caractere a-z A-Z 0-9 ;;
;; version finale 1.0.0                         ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
randChr {
  return $iif($rand(0,1) = 0, $rand(0,9), $iif($rand(0,1) = 0, $rand(a,z), $rand(A,Z)))
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; alias génération de chaine aléatoire avec randChr ;;
;; version 0.0.1                                     ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; code d erreur                                     ;;
;; 0 => retourne le pass                             ;;
;; 1 => abscence de parametre ou parametre invalide  ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
makeRandomPassword {
  ;; syntaxe /makeRandomPassword 6à12
  if ($1 isnum 6-12) {
    set %iteratorMkPass 0
    ;; génération aléatoire
    while (%iteratorMkPass < $1) {
      set %newPassword %newPassword $+ $iif($rand(0,1) = 0, $iif($rand(0,1) = 0, $rand(a,z), $rand(A,Z)), $rand(0,9))
      inc %iteratorMkPass 1
    }
    ;; désallocation des variables
    unset %iteratorMkPass
    timerUnsetNewPassword 1 0 /unset %newPassword 
    return %newPassword 
  }
  else {
    return 1
  }
}

27 avril 2006 08:13:57 :

Juste un probleme au niveau du cartouche de presentation du code (j'apprends comment ça marche) D'ailleurs si quelqu'un a une solution pour pas qu'il me skippe les espaces ça serait bien....