- Este debate tiene 2 respuestas, 2 mensajes y ha sido actualizado por última vez el hace 2 semanas, 1 día por .
Viendo 3 entradas - de la 1 a la 3 (de un total de 3)
-
Entradas
-
Necesito una función para generar una cadena de texto de números grande (de por lo menos 15 caracteres). Lo que quiero es que genere 15 caracteres numéricos aleatorios. Esto lo necesito para generar un código de verificación de «doble factor» para dar seguridad a una aplicación Delphi que estoy desarrollando.
Puedes usar la siguiente función que generará una cadena de texto de números aleatorios con el tamaño que le indiques en el argumento al llamarla:
123456789101112131415161718192021222324// Generar número aleatorio grande para código de validaciónfunction generarNumeroGrandeAleatorio (longitud : integer) : string;constcaracteresNumeros = '0123456789';vari, indiceRandom: integer;numeroGrande : string;begintryRandomize;numeroGrande := '';for i := 1 to longitud dobeginindiceRandom := Random(Length(caracteresNumeros)) + 1;numeroGrande := numeroGrande + caracteresNumeros[indiceRandom];end;Result := numeroGrande;excepton E : Exception dobeginMessageDlg('Error al generar un número aleatorio grande.', mtError, [mbok], 0);end;end;end;
Viendo 3 entradas - de la 1 a la 3 (de un total de 3)
- Debes estar registrado para responder a este debate.
