Difference between revisions of "Random password generator"

Revision as of 21:49, 5 June 2006

This script will allow you to generate a random password, of required length and using characters you want to.

; Usage: $pwgen(length,used characters)
; Examples
; $pwgen(10,a-z A-Z)
; $pwgen(20,a-z 0-9 0-9)
; $pwgen(17,0-9 $chr(36) $+ - $+ $chr(41))

alias pwgen {
  ; first we check if this alias is used as identifier
  if (!$isid) { return }
  ; also check if the length is correct
  if ($int($1) == 0) { return }   
  ; the next part will fill &chars with characters that can be picked to make the password
  ;
  ; we cycle the different sets of "used characters"
  var %i = $numtok($2,32)
  while (%i > 0) {
    var %set = $gettok($2,%i,32)
    ; if the length of the current set is 3, we assume its the right syntax
    if ($len(%set) == 3) {
    ; get the ascii values of the two characters
      var %asc1 = $asc($left(%set,1)) , %asc2 = $asc($right(%set,1))
      var %j = $iif(%asc1 < %asc2,%asc1,%asc2) , %max = $iif(%asc1 < %asc2,%asc2,%asc1)
      ; we will loop from the smallest ascii number to the largest
      while (%j <= %max) {
      ; we add the ascii value to the &chars binvar
        bset &chars $calc($bvar(&chars,0) + 1) %j
        inc %j
      }
    }
    dec %i
  }
  ; check if &chars is not empty
  if ($bvar(&chars,0) == 0) { return }
  ;
  ; now we filled &chars we randomly pick characters out of &chars to make the password
  var %i = $iif($abs($int($1)) > 900,900,$v1)
  ; we do this $1 times, as long as its not larger then 900
  ; (wich is approximate the limit of commands)
  while (%i > 0) {
    var %pw = %pw $+ $bvar(&chars,$rand(1,$bvar(&chars,0))).text
    dec %i
  }
  ; and its done
  return %pw
}