File: randpass.awk

package info (click to toggle)
bacula 1.36.2-2sarge1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 21,520 kB
  • ctags: 8,940
  • sloc: ansic: 71,494; sh: 10,960; cpp: 7,331; makefile: 2,976; perl: 565; sql: 159; sed: 100; awk: 8; xml: 7
file content (14 lines) | stat: -rw-r--r-- 405 bytes parent folder | download | duplicates (16) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 

#   Dumb little AWK program to convert random decimal
#   values generated by rand.bc into passwords from the
#   character set defined below as "charset".

BEGIN {
    charset = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
    for (i = 0; i < length(charset); i++) {
    	set[i] = substr(charset, i, 1)
    }
}
    { printf "%s", set[$1 % length(charset)] }
    
END { printf "\n" }