elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Generar Codigos Alfanumericos		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Generar Codigos Alfanumericos  (Leído 8,215 veces)
{_The_Alwar_}


Desconectado Desconectado

Mensajes: 711

Who dares win


Ver Perfil WWW
Generar Codigos Alfanumericos
« en: 11 Octubre 2005, 18:02 pm »
¿Como puedo crear codigos alfanumericos de x digitos? existe alguna funcion o api para esto? Si hay algun post donde se explique esto, avisenme
Saludos!
En línea
noob_Setup

Desconectado Desconectado

Mensajes: 117



Ver Perfil WWW
Re: Generar Codigos Alfanumericos
« Respuesta #1 en: 11 Octubre 2005, 18:09 pm »
hola lo que puedes hacer es escribir en un txt o un dat a travez de random. Busca por ahi
En las msdn tienes ayuda sobre el tema

saludos
En línea
{_The_Alwar_}


Desconectado Desconectado

Mensajes: 711

Who dares win


Ver Perfil WWW
Re: Generar Codigos Alfanumericos
« Respuesta #2 en: 11 Octubre 2005, 18:12 pm »
si pero ramdon me genera un numerito, y yo qero una clave de 10 numeros y letras, buscare en la msdn
Gracias!
En línea
c0rrupt_gamer


Desconectado Desconectado

Mensajes: 764



Ver Perfil
Re: Generar Codigos Alfanumericos
« Respuesta #3 en: 12 Octubre 2005, 12:05 pm »
Podrias generas una variable con random k diera numeros aleatorios entre 1 y (num.caracteres del text), k diera unos cuantos valores y los caracteres correspondientes cambiarlos a letras.

Ej: text = 10 caracteres
variable aleatoria te da los valores 2, 5 y 9.
Al segundo, quinto y noveno caracter le poner el Chr$(pa pasarlo a letra) y ya esta.
En línea
{_The_Alwar_}


Desconectado Desconectado

Mensajes: 711

Who dares win


Ver Perfil WWW
Re: Generar Codigos Alfanumericos
« Respuesta #4 en: 12 Octubre 2005, 12:37 pm »
podria, pero si me diera el 1?? eso en ascii me parece q es nulo, weno ya me pasaron un codigo, y creo q mas o menos es como tu dices, os lo pego por si a alguien le interesa:

Código:
Private Function Palabra(iCarMin As Integer, iCarMax As Integer) As String
Dim sPalabra As String
Dim iTotalCarac As Integer
    
    If iCarMin > iCarMax Then Exit Function
   
    iTotalCarac = Int((iCarMax - iCarMin + 1) * Rnd + iCarMin)
    For j = 1 To iTotalCarac
        sPalabra = sPalabra + Chr(Int((122 - 97 + 1) * Rnd + 97))
    Next j
    Palabra = sPalabra
End Function
Nota: iCarMin = Caracteres minimos que quieres que tenga la cadena
iCarMax = Caracteres Maximos que tendra la cadena
En línea
c0rrupt_gamer


Desconectado Desconectado

Mensajes: 764



Ver Perfil
Re: Generar Codigos Alfanumericos
« Respuesta #5 en: 12 Octubre 2005, 13:33 pm »
Citar
sPalabra = sPalabra + Chr(Int((122 - 97 + 1) * Rnd +97))


1 question: si le pones el chr$ a todo solo deberian salir letras, no?
En línea
{_The_Alwar_}


Desconectado Desconectado

Mensajes: 711

Who dares win


Ver Perfil WWW
Re: Generar Codigos Alfanumericos
« Respuesta #6 en: 12 Octubre 2005, 14:35 pm »
Si el procedimiento ahora solo hace letras, pero weno me vale, ¿se les ocurre como hacer para que intercale numeros?
En línea
dexer

Desconectado Desconectado

Mensajes: 10


Ver Perfil
Re: Generar Codigos Alfanumericos
« Respuesta #7 en: 12 Octubre 2005, 15:17 pm »
Citar
Dim letra As String
Dim final As String
Dim DigitosMax As Integer
DigitosMax = 10 'NUMERO DE DIGITOS
Dim i As Integer
For h = 1 To DigitosMax
Randomize Timer
i = Rnd * 35 + 1
Select Case i
Case 10
 letra = "A"
Case 11
 letra = "B"
Case 12
 letra = "C"
Case 13
 letra = "D"
Case 14
 letra = "E"
Case 15
 letra = "F"
Case 16
 letra = "G"
Case 17
 letra = "H"
Case 18
 letra = "I"
Case 19
 letra = "J"
Case 20
 letra = "K"
Case 21
 letra = "L"
Case 22
 letra = "M"
Case 23
 letra = "N"
Case 24
 letra = "O"
Case 25
 letra = "P"
Case 26
 letra = "Q"
Case 27
 letra = "R"
Case 28
 letra = "S"
Case 29
 letra = "T"
Case 30
 letra = "U"
Case 31
 letra = "V"
Case 32
 letra = "W"
Case 33
 letra = "X"
Case 34
 letra = "Y"
Case 35
 letra = "Z"
Case Else
 letra = i
End Select
final = final & letra
Next h
If Len(final) > DigitosMax Then
 final = Mid(final, 1, DigitosMax) 'Por si se pasa de los DigitosMAX xD
End If
Text1.Text = final
puedes añadir mas letras o lo que quieras cambiando el RNd y añadiendo mas Case X
« Última modificación: 12 Octubre 2005, 15:27 pm por dexer » En línea
c0rrupt_gamer


Desconectado Desconectado

Mensajes: 764



Ver Perfil
Re: Generar Codigos Alfanumericos
« Respuesta #8 en: 12 Octubre 2005, 15:20 pm »
Citar
For j = 1 To iTotalCarac
        sPalabra = sPalabra + Chr(Int((122 - 97 + 1) * Rnd + 97))
    Next j

Pues con una variable aleatoria k diero valores entre 1 o 0, en caso k diera 1 k se ejecute la orden con el chr$. En caso k diera 0 pues k ejecute una orden como la anterior pero sin el chr$.
Supongo k algo asi:

Código:
 
dim R as integer
randomize timer
R = int(rnd*2)
For j = 1 To iTotalCarac
 if R = 1 then
        sPalabra = sPalabra + Chr(Int((122 - 97 + 1) * Rnd + 97))
elseif R = 0 then
        sPalabra = sPalabra + Int((122 - 97 + 1) * Rnd + 97)
end if
Next j
« Última modificación: 12 Octubre 2005, 15:22 pm por c0rrupt_gamer » En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Idea para cifrado de datos alfanuméricos
Seguridad 		zikotik 1 2,809 Último mensaje 13 Febrero 2014, 23:43 pm
por engel lex
buenas quiero generar codigos qr reales desde mi aplicacion y que se paguen con mercadopago
.NET (C#, VB.NET, ASP) 		Beginner Web 0 1,798 Último mensaje 23 Octubre 2020, 04:33 am
por Beginner Web
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines