Gerador de codigos aleatorios

[mellosp 0]

Ola pessoal, eu peguei um arquivo na net que gera senha aleatoria com numeros e letras e utilizei para um site de produtos, ou seja, a senha gerada estou usando como código do produto.

O problema é que em alguns é gerado o mesmo codigo e alguns produtos começam a dar problemas pelos codigos iguais...

Alguem conhece um codigo ou um modo de gerar codigos para produtos que não se repitam, sempre gerando um novo?

 

O codigo que estou utilizando é esse:

 

---- codigo ----

<%Dim firstNumber, firstLower, firstUpper, firstOther, latterNumber, _latterLower, latterUpper, latterOther, passwordLength, extraChars firstNumber = "true"firstLower =  "false"firstUpper =  "true"firstOther =  "false"latterNumber = "true"latterLower = "false"latterUpper = "true"latterOther = "false"passwordLength = 5extraChars = "true"Function getRandomNum(lbound, ubound) For j = 1 To (250 - ubound)	Randomize 	getRandomNum = Int(((ubound - lbound) * Rnd) + 1)Next End FunctionFunction getRandomChar(number, lower, upper, other, extra) numberChars = "0123456789"lowerChars = "abcdefghijklmnopqrstuvwxyz"upperChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"otherChars = "`~!@#$%^&*()-_=+[{]}\\|;:"""'\,<.>/? "extraChars = "asdfghtbot24376891mVDSACR"charSet = extra	if (number = "true") Then charSet = charSet + numberChars	if (lower = "true") Then charSet = charSet + lowerChars	if (upper = "true") Then charSet = charSet + upperChars	if (other = "true") Then charSet = charSet + otherChars	if (extra = "true") Then charSet = charSet + extraCharsjmi = Len(charSet) getRandomChar = Mid(charSet, getRandomNum(1, jmi), 1)End FunctionFunction getPassword(length, extraChars, firstNumber, firstLower, _firstUpper, firstOther, latterNumber, latterLower, latterUpper, latterOther)rc = ""	If (length > 0) Then		rc = rc + getRandomChar(firstNumber, firstLower, firstUpper, firstOther, extraChars)	End If	For idx = 1 To length - 1		rc = rc + getRandomChar(latterNumber, latterLower, latterUpper, latterOther, extraChars)	NextgetPassword = rcEnd Functiongeracod = getPassword(passwordLength, extraChars, _firstNumber, firstLower, firstUpper, firstOther, _latterNumber, latterLower, latterUpper, latterOther)%>

onde o que é mandado para o bd como codigo é a variavel geracod

 

abraços a todos e obrigado.

[Ted k' 126]

amigo se você quizer dar uma olhada no codigo de senhas aleatórias que crie estás lá no Laboratório de Scripts veja æ

 

http://forum.imasters.com.br/index.php?showtopic=219735