Archive version of: simple-password-generator.r ... version: 1 ... caridorc 19-Sep-2014

Amendment note: new script || Publicly available? Yes

REBOL [
    title:"Simple password generator"
    date: 19-09-2014
    file: %simple-password-generator.r
    Purpose: {This program allows you to create passwords
     setting two parametres:
     1) The length
     2) The type (numbers, alphabet ...)
     }
     Level: Beginner
     Type: 'tool

    ]

random/seed now/precise

make-password: func[length chars] [
    password: copy ""
	loop length [append password (pick chars random (length? chars))]
	password
	]

password-stuff: func[length chars] [
    password: make-password length chars
    write clipboard:// password
	alert password
	]
	
view layout [
    text "Just paste: the password is automatically copied to your clipboard"
    field "Length" [length: to-integer value]
	across
	button "Numbers" [chars: "0123456789" password-stuff length chars]
	button "Alphabet" [chars: "qwertyuiopasdfghjklzxcvbnm" password-stuff length chars]
	button "Alphabet and numbers" 180x24 [chars: "1234567890qwertyuiopasdfghjklzxcvbnm" password-stuff length chars]
	button "All characters" [chars: "1234567890qwertyuiopasdfghjklzxcvbnm|!£$%&/()=?^[]@#{}" password-stuff length chars]
	]