Categorias

Gerar textos aleatórios

Com esta função é possível fazer a geração de textos e números randômicos. Basta passar por parâmetro o número de caracteres que serão gerados.

Dica: Esta função pode ser utilizada para a geração de senhas automáticas, códigos para validação entre outras utilidades.

'-----------------------------------------------------
'Funcao: GerarTextoRandomico(ByVal TamanhoChave)
'Sinopse: Gerador de textos randômicos
'Parâmetros:
'	TamanhoChave: Optional (se vazio tamanho = 40)
'Retorno: String
'-----------------------------------------------------
Public Function GerarTextoRandomico(ByVal TamanhoChave)
	Dim Chave
	Dim Num
	Dim arrValores(35)
	arrValores(0) 	=	"0"
	arrValores(1)	=	"1"
	arrValores(2)	=	"2"
	arrValores(3)	=	"3"
	arrValores(4)	=	"4"
	arrValores(5)	=	"5"
	arrValores(6)	=	"6"
	arrValores(7)	=	"7"
	arrValores(8)	=	"8"
	arrValores(9)	=	"9"
	arrValores(10)	=	"A"
	arrValores(11)	=	"B"
	arrValores(12)	=	"C"
	arrValores(13)	=	"D"
	arrValores(14)	=	"E"
	arrValores(15)	=	"F"
	arrValores(16)	=	"G"
	arrValores(17)	=	"H"
	arrValores(18)	=	"I"
	arrValores(19)	=	"J"
	arrValores(20)	=	"K"
	arrValores(21)	=	"L"
	arrValores(22)	=	"M"
	arrValores(23)	=	"N"
	arrValores(24)	=	"O"
	arrValores(25)	=	"P"
	arrValores(26)	=	"Q"
	arrValores(27)	=	"R"
	arrValores(28)	=	"S"
	arrValores(29)	=	"T"
	arrValores(30)	=	"U"
	arrValores(31)	=	"V"
	arrValores(32)	=	"W"
	arrValores(33)	=	"X"
	arrValores(34)	=	"Y"
	arrValores(35)	=	"Z"
	'Randomize em todo Array
	Randomize
	If TamanhoChave = "" Then
		TamanhoChave = 40
	End If
	Do While Len(Chave) < TamanhoChave
		Num = arrValores(Int(35 * Rnd ))
		Chave = Chave + Num
	Loop
	'Retornando a função
	GerarTextoRandomico = Chave
End Function