removed money symbol in c.random

	ln <- c(LETTERS,letters,0:9)

	greak <- c("α","β","γ","δ","ε","ζ","η","θ","ι","κ","λ","μ","ν","ξ","ο","π","ρ","σ","ς","τ","υ","φ","χ","ψ","ω")

	symbol <- c("·","~","！","@","#","$","￥","€","￡","%","^","&","*","(",")","_","-","+","=","|",",",".","/","<",">","?",";","'",":","[","]","{","}")

	symbol <- c("·","~","！","@","#","$","%","^","&","*","(",")","_","-","+","=","|",",",".","/","<",">","?",";","'",":","[","]","{","}")

	if(type == "default")

	{