Alguna Idea ?

Algo sencillo sería que crearas un contador y calcularas el valor en
hexadecimal.



"Sergiou" escribió en el mensaje
news:

Hola a todos necesito 22500 códigos alfanumericos todos diferentes,
alguien sabe cómo puedo generarlos ???

Gracias.

Hubiese sido una salida, pero esto se me ajusta mas a lo que necesito

sub Generar()
dim Codigos as new HashTable
dim contenido as boolean=true

For cont As Integer = 0 To 22500
While contenido
clave = generadordeclaves(6)
If Not Codigos.Contains(clave) Then
contenido = False
Codigos.Add(clave, clave)
End If
End While
contenido = True
Next
end sub



Function generadordeclaves(ByVal longituddeclave) As String
' Nota para los principientes : el simpolo "_" es el de
continuación de linea
' Definicion del array
Dim numerodecaracteres As Integer
Dim salida As String
Dim char_array() As Char = {"0", "1", "2", "3", "4", "5", "6",
"7", "8", "9", _
"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", _
"k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
"u", "v", "w", "x", "y", "z"}


Randomize()

Do While Len(salida) < longituddeclave
salida = salida & char_array(Int(36 * Rnd()))
Loop

' establecemos el valor del resultado a devolver
generadordeclaves = salida
End Function

Gracias por todo

Cecilio wrote:

Algo sencillo sería que crearas un contador y calcularas el valor en
hexadecimal.



"Sergiou" escribió en el mensaje
news:

Hola a todos necesito 22500 códigos alfanumericos todos diferentes,
alguien sabe cómo puedo generarlos ???

Gracias.