
Function CreatePasswd(Size,OnlyLetters,LowerCase)

	S=""
	Randomize
	If OnlyLetters Then

		If LowerCase Then
			For Cpt=1 To Size
				n=0
				Do While ((n<=96) or (n>=123))
					n=int(rnd*126)
				Loop
				S=S+Chr(n)
			Next
		Else
			For Cpt=1 To Size
				n=0
				Do While ((n<=63) or (n>=91)) and ((n<=96) or (n>=123))
					n=int(rnd*126)
				Loop
				S=S+Chr(n)
			Next

		End If

	Else
		For Cpt=1 To Size
			n=0
			Do While (n<=32)
				n=int(rnd*126)
			Loop
			S=S+Chr(n)
		Next

	End If

	CreatePasswd = S

End Function