31 replies to this topic

[monchito_elroro]

Muy buenas días con todos, Antes que nada les deseo que pasen unas bonitas Fiestas Navideñas     

 

Ahora paso al problem... resulta que estoy buscando la forma de como obtener cifras aleatorias de 5 caracteres (letras+números) separados por un guión "-" el resultado final quisiera que fuera así:

7FV89-VE65V-D18V4-AF1A3-S42FA

 

 

En la búsqueda de una solución he aprendido estos métodos:

 

Para obtener un número aleatorio simple:

php

var key1: integer;
Randomize;  // necesario para iniciar el azar
Key1:=random(100);    //  elegimos un num aleatorio cualquiera de 1-100
showmessage(inttostr(key1));   // mostramos el resultado

Para obtener un rango de números aleatorios:

php

uses
. . . , math;
 
procedure TForm1.Button1Click(Sender: TObject);
var key1: integer;
begin
Randomize;  // necesario para iniciar el azar
Key1:=RandomRange(100, 105);    //  // el resultado será desde 100 hasta 105
showmessage(inttostr(key1));   // mostramos el resultado
end;

También les comento que logré crear un generador pero sólo con números, de momento me funciona y es así:

 

php

procedure TForm1.Button6Click(Sender: TObject);
var i, key1, key2, key3, key4, key5 : integer;
begin
Randomize;
key1:=RandomRange(10000, 99999);
key2:=RandomRange(10000, 99999);
key3:=RandomRange(10000, 99999);
key4:=RandomRange(10000, 99999);
key5:=RandomRange(10000, 99999);
Edit1.Text:=inttostr(key1)+'-'+inttostr(key2)+'-'+inttostr(key3)+'-'+inttostr(key4)+'-'+inttostr(key5);
end;

El resultado es así:     57740-29098-10690-25573-14420

Lo cual es algo próximo a lo que busco, pero como les vuelvo a repetir necesito que sean números + letras.

Acudo a su ayuda amigos.....

 

[egostar]

Hola

 

Si no fuese un formato fijo de 5 cada sector, podrías utilizar el GUID por ejemplo ['{BD0AF488-223B-4B93-BD79-42F0948FB681}']

 

Por lo que yo utilizaría tu idea pero con números hexadecimales, algo así:

delphi

begin
  Randomize;
  key1:=RandomRange(65536, 1048575);
  key2:=RandomRange(65536, 1048575);
  key3:=RandomRange(65536, 1048575);
  key4:=RandomRange(65536, 1048575);
  key5:=RandomRange(65536, 1048575);
  Edit1.Text := IntToHex(key1,5) + '-' + IntToHex(key2,5) + '-' +
                IntToHex(key3,5) + '-' + IntToHex(key4,5) + '-' + IntToHex(key5,5);
end;

Y utlizo el rango (65536, 1048575) para que tenga los 5 caracteres que se requieren y sin ceros a la izquierda. En hexadecimal tomarían los valores (10000,FFFFF).

 

Saludos

[monchito_elroro]

Muchas gracias Egostar por su respuesta, es una buena idea  los GUID no lo había pensado...

también he probado su idea y es muy buena,de momento he logrado obtener los siguientes resultados:

 

79061-B454B-3C981-232BA-583B0

B3F08-DB9D0-D50D8-D23EB-3C54F

F4BC3-DA684-F7C3D-336F6-75593

 

claro que he tenido que cambiar este valor para que funcione:

php

var key1, key2, key3, key4, key5 : integer;   // antes era string

Tambien veo que las letras Hexadecimales van desde A hasta F.

Aún así es muy buen código , mas si no fuera mucha molestía quisiera saber más formas de poderlo realizar la primera incognita...

[egostar]

Aún así es muy buen código , mas si no fuera mucha molestía quisiera saber más formas de poderlo realizar la primera incognita...

 

Para crear los GUID es muy fácil. Con éste código lo haces.

 

delphi

var
  MiGuid : TGUID;
begin
  if CreateGUID(MiGuid) <> 0 then
     Edit1.Text := 'No se pudo crear GUID'
  else
     Edit1.Text := GUIDToString(MiGuid);
end;

Saludos

[monchito_elroro]

Gracias de nuevo Egostar lo he probado y funciona a la primera

en las pruebas me da estos resultados:

 

{6AE82E58-EB3D-4DA1-AA1E-DD730A9B4FFB}
{77A563B8-FEBD-419A-BD5E-2FF7B23E60A4}
{65B4D693-5AEE-40AF-BBF6-B6B2F595754E}

 

Ahora para poder quitarles los corchetes lo estoy usando de esta forma (por favor corregirme si esta mal):

php

procedure TForm1.Button4Click(Sender: TObject);
  var
    MiGuid : TGUID;
    texto: string;
  begin
    if CreateGUID(MiGuid) <> 0 then
       Edit1.Text := 'No se pudo crear GUID'
    else
       texto:=GUIDToString(MiGuid);
       texto:=AnsiMidStr(texto,2,Length(texto));
       Texto:=Copy(Texto, 0, Length(Texto)-1);
     Edit1.Text := texto;
  end;

EL RESULTADO ES:

61986F2D-6590-4EF1-8658-4207F11AB4B7
C11CD312-7444-4DE7-9BC8-EF7E214DC542
16FA609E-7F56-4966-A93A-07C5094643E0

 

 

Es una buena manera de poder obtener códigos al azar, los voy a guardar para tenerlos en cuenta. 

[Delphius]

Hoy me encuentro buenito, dejo aquí un código de ejemplo de como llegar a lo mismo de otra forma y que incluso permite indicar la cantidad de claves, su longitud y el separador.

php

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
    function RandomStringsKeys(KeysCount, KeysLength: integer; Separator: char = '-'): string;
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := RandomStringsKeys(5, 5);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text := RandomStringsKeys(4, 5, '#');
end;
 
function TForm1.RandomStringsKeys(KeysCount, KeysLength: integer;
  Separator: char): string;
const
  CHARS = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
var k, l: integer;
begin
  result := '';
  for k := 1 to KeysCount do
  begin
    for l := 1 to KeysLength do
      result := result + CHARS[Random(Length(CHARS) + 1)];
 
    if k <> KeysCount
       then result := result + Separator;
  end;
end;
 
end.

Por el código puede verse que utiliza todo el abecedario, excepto por la Ñ. Si se va a contemplar la Ñ y viendo que estás empleando Lazarus debes tener en cuenta el tema del encode. Por defecto Lazarus trabaja con UTF8, pero si modificas el código para agregarle la Ñ recibirás en lugar de la Ñ un signo de pregunta ?. Recomiendo leer sobre encoding en Lazarus.

 

Saludos,

[monchito_elroro]

Muchas gracias Delphius lo acabo de probar y funciona bien 
pero porque ha veces me pone el simbolo de dollar $ en los resultados:

4H$1M-700FL-SRBLG-F$F2Q-H5L77
VFT$4-B0YQP-YSV6Z-9QHPX-6IE$H
452OU#EOAB9#YMPOZ#A5M9$

[egostar]

Vaya, no había caído en cuenta que es Lazarus, no Delphi, pues que bueno que las funciones son identicas en ambos productos.

 

Saludos

[Delphius]

Muchas gracias Delphius lo acabo de probar y funciona bien 
pero porque ha veces me pone el simbolo de dollar $ en los resultados:

4H$1M-700FL-SRBLG-F$F2Q-H5L77
VFT$4-B0YQP-YSV6Z-9QHPX-6IE$H
452OU#EOAB9#YMPOZ#A5M9$

 

¿Lo modificaste para que trabaje con la Ñ o cualquier otro carácter no ANSI? Porque como he dicho, el código que puse no es "UTF8-friendly" para que trabaja con esos "carácteres extraños" hay que hacer más trabajo. Por eso he dicho que debe estudiarse el tema del encoding.

 

Saludos,

[Delphius]

Me estoy dando cuenta de que mi código puede mejorarse un poco: directamente en Random() puede ponerse Random(37) de modo que en CHARS[] al sumarse 1 se lea en forma aleatoria desde CHARS[1]  a CHARS[37].

 

Ahora bien, me he quedado pensando en lo la Ñ y del encoding, y quizá no tenga sentido tener que estar aplicando tanto cambios. Debería ser lo mismo asi que probé añadiendo la Ñ.

Hice esto:

delphi

function TForm1.RandomStringsKeys(KeysCount, KeysLength: integer;
  Separator: char): string;
const
  CHARS = 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789';
var k, l: integer;
    rnd: string;
begin
  {
  rnd := '';
  for k := 1 to KeysCount do
  begin
    for l := 1 to KeysLength do
      rnd := rnd + CHARS[Random(38) + 1];
 
    if k <> KeysCount
       then rnd := rnd + Separator;
  end;
  result := rnd;
  }
  ShowMessage(CHARS);
 
  for k := 1 to 38 do
    rnd := rnd + CHARS[k];
 
  ShowMessage(rnd);
 
  result := rnd;
end;

Y efectivamente tanto el primer showMessage() como el 2do, y el texto que finalmente se muestra en el Edit son lo mismo y puede leerse Ñ.

Ahora bien esto:

delphi

function TForm1.RandomStringsKeys(KeysCount, KeysLength: integer;
  Separator: char): string;
const
  CHARS = 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789';
var k, l: integer;
    rnd: string;
begin
  rnd := '';
  for k := 1 to KeysCount do
  begin
    for l := 1 to KeysLength do
      rnd := rnd + CHARS[Random(38) + 1];
 
    if k <> KeysCount
       then rnd := rnd + Separator;
  end;
  result := rnd;
end;

No respeta la lógica, y se puede obtener cosas como estas: SUZ4U-4S4OV-W?OL5-C8K?Q-22SQT

 

Puede verse que se ha reemplazado la Ñ por el signo de pregunta. Cabe la pregunta entonces, ¿porqué en la muestra anterior respeta la Ñ cuando se lee CHARS[15] y se la concatena para formar la cadena CHARS original y aquí, aún concatenando, no?

 

¡Cosas mandinga!

 

Saludos,

[egostar]

Me estoy dando cuenta de que mi código puede mejorarse un poco: directamente en Random() puede ponerse Random(37) de modo que en CHARS[] al sumarse 1 se lea en forma aleatoria desde CHARS[1]  a CHARS[37].

 

Ahora bien, me he quedado pensando en lo la Ñ y del encoding, y quizá no tenga sentido tener que estar aplicando tanto cambios. Debería ser lo mismo asi que probé añadiendo la Ñ.

Hice esto:

delphi

function TForm1.RandomStringsKeys(KeysCount, KeysLength: integer;
  Separator: char): string;
const
  CHARS = 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789';
var k, l: integer;
    rnd: string;
begin
  {
  rnd := '';
  for k := 1 to KeysCount do
  begin
    for l := 1 to KeysLength do
      rnd := rnd + CHARS[Random(38) + 1];
 
    if k <> KeysCount
       then rnd := rnd + Separator;
  end;
  result := rnd;
  }
  ShowMessage(CHARS);
 
  for k := 1 to 38 do
    rnd := rnd + CHARS[k];
 
  ShowMessage(rnd);
 
  result := rnd;
end;

Y efectivamente tanto el primer showMessage() como el 2do, y el texto que finalmente se muestra en el Edit son lo mismo y puede leerse Ñ.

Ahora bien esto:

delphi

function TForm1.RandomStringsKeys(KeysCount, KeysLength: integer;
  Separator: char): string;
const
  CHARS = 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789';
var k, l: integer;
    rnd: string;
begin
  rnd := '';
  for k := 1 to KeysCount do
  begin
    for l := 1 to KeysLength do
      rnd := rnd + CHARS[Random(38) + 1];
 
    if k <> KeysCount
       then rnd := rnd + Separator;
  end;
  result := rnd;
end;

No respeta la lógica, y se puede obtener cosas como estas: SUZ4U-4S4OV-W?OL5-C8K?Q-22SQT

 

Puede verse que se ha reemplazado la Ñ por el signo de pregunta. Cabe la pregunta entonces, ¿porqué en la muestra anterior respeta la Ñ cuando se lee CHARS[15] y se la concatena para formar la cadena CHARS original y aquí, aún concatenando, no?

 

¡Cosas mandinga!

 

Saludos,

 

Bueno,

 

La longitud de CHARS es 37, si se está buscando el caracter 38 o 39 según el caso no lo va a encontrar y por eso se muestra el signo "?",

 

Lo que yo propongo es utilizar la función pero con Random(36) + 1  o Random(37) según el caso.

 

Saludos

 

PD, curioso que nunca haya elegido el 38 en el primer ejemplo

[Delphius]

Ups... ando dormido y cuento mal.

 

Pero he probado esto:

php

function TForm1.RandomStringsKeys(KeysCount, KeysLength: integer;
  Separator: char): string;
const
  CHARS = 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789';
var k, l: integer;
    rnd: string;
begin
  rnd := '';
  for k := 1 to KeysCount do
  begin
    for l := 1 to KeysLength do
      rnd := rnd + CHARS[Random(37) + 1];
 
    if k <> KeysCount
       then rnd := rnd + Separator;
  end;
  result := rnd;
  ShowMessage('Longitud: ' + IntToStr(Length(CHARS)) + ' CHAR[15] = ' + CHARS[15] + ' CHARS[16] = ' + CHARS[16]);
end;

Y obtengo: STY3U-3S3?V-V?OL4-C7K?P-12RPT; y el ShowMessage me dice: "Longitud: 38 CHAR[15] = ? CHARS[16] = "

 

Ya he visto cual es el asunto. Creo saber como tratarlo.

 

Saludos,

[egostar]

Y obtengo: STY3U-3S3?V-V?OL4-C7K?P-12RPT; y el ShowMessage me dice: "Longitud: 38 CHAR[15] = ? CHARS[16] = "

 

Ya he visto cual es el asunto. Creo saber como tratarlo.

 

Saludos,

 

Vaya, pues no se de donde sale el 38, si son 27 letras del alfabeto y 10 numeros

 

Saludos

[Delphius]

Función ya corregida:

delphi

function TForm1.RandomStringsKeys(KeysCount, KeysLength: integer;
  Separator: char): string;
const
  CHARS = 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789';
var k, l, c: integer;
    rnd: string;
begin
  rnd := '';
  for k := 1 to KeysCount do
  begin
    for l := 1 to KeysLength do
    begin
      c := Random(37) + 1;
      case c of
         15: rnd := rnd + CHARS[c] + CHARS[c+1];
         1..14: rnd := rnd + CHARS[c];
      else rnd := rnd + CHARS[c+1];
      end;
    end;
 
    if k <> KeysCount
       then rnd := rnd + Separator;
  end;
  result := rnd;
end;

¡Me están haciendo gastar neuronas che! Ya no me van a quedar siquiera para poder recordar mi nombre

 

Saludos,

[Delphius]

Vaya, pues no se de donde sale el 38, si son 27 letras del alfabeto y 10 numeros

 

Saludos

 

Todo se debe a como es que funciona UTF8 amigo. En UTF8 los carácteres son compuestos de dos partes. Para poder almacenar la Ñ se requiere "combinar" el bytecode correspondiente a la ? y al del carácter ´. Es decir Ñ = bytecode(?) + bytecode(´). Para las otras letras no hay drama ya que hay correspondencia directa del esquema ANSI a UTF8. Ñ es tratada de forma "especial".

De este modo Ñ se compone de dos posiciones, de ahí que tenga 38.

[egostar]

Todo se debe a como es que funciona UTF8 amigo. En UTF8 los carácteres son compuestos de dos partes. Para poder almacenar la Ñ se requiere "combinar" el bytecode correspondiente a la ? y al del carácter ´. Es decir Ñ = ?´

De este modo Ñ se compone de dos posiciones, de ahí que tenga 38.

 

 

Pero eso en Lazarus ¿no? porque Delphi me da 37.......

 

Saludos

[Delphius]

Pero eso en Lazarus ¿no? porque Delphi me da 37.......

 

Saludos

 

Efectivamente. Esto es en Lazarus, y el hilo está en el foro de Lazarus. Asi es como funciona en Lazarus, que a menos que se indique lo contrario asume como UTF8. Asi es que cuando uno le pone A en un string, sabe leer la parte alta y baja del bytecode correspondiente. Y cuando lo pones la Ñ, como en mi caso a la variable CHARS, internamente debe trabajar con el esquema ?´ que he descrito antes.

 

Desde que ya no toco Delphi las cosas son diferentes.

 

Se que en un futuro, no muy cercano tengo entendido, Lazarus va ir hacia UTF-16 como lo es Delphi ahora. Desconozco en como se las arregló Delphi internamente para meterse en el UNICODE y poder operar con UTF-16 sin tener que hacer "magia" como yo en Lazarus.

 

Saludos,

[egostar]

Efectivamente. Esto es en Lazarus, y el hilo está en el foro de Lazarus. Asi es como funciona en Lazarus, que a menos que se indique lo contrario asume como UTF8. Asi es que cuando uno le pone A en un string, sabe leer la parte alta y baja del bytecode correspondiente. Y cuando lo pones la Ñ, como en mi caso a la variable CHARS, internamente debe trabajar con el esquema ?´ que he descrito antes.

 

 

Si si,  ya lo había dicho en un hilo anterior, solo que me pareció bastante extraño ese comportamiento. 

 

Vaya, no había caído en cuenta que es Lazarus, no Delphi, pues que bueno que las funciones son identicas en ambos productos.

 

Saludos

 

Saludos

[Delphius]

Pues asi es amigo. Lazarus se esfuerza mucho en tener buena compatibilidad con Delphi y hace que código escrito en Delphi pueda ser portado con casi ningún cambio o sin problemas. Pero como acabas de ver por mis ejemplos también tiene sus grandes diferencias. Quizá si activara la directiva de compilación {mode delphi} en lugar de la que está por defecto {mode objfpc} el código que puse inicialmente (corrigiendo el tema del índice por supuesto) funcione sin problemas.

 

Saludos,

[monchito_elroro]

Muchas gracias Delphius por el apoyo, me funciona el último código que compartió

Mas si no fuera mucha molestía dos pequeñas consultas:

 

1. Como puedo hacer para trabajar sin las Ñ, pues con tal solo quitarla de la lista el soft genera códigos cortos y largos como esto:

VW16X-6V6QY-YOPRL7-C

OP95CM-DYAN5-

 

2. En la primera ejecución el resultado siempre es:

TUZ4V-4T4OW-WÑPL5-C8KÑQ-23SQU

Ñ73CM-DWAN3-81F55-9Q22Q-S1YEZ

 

Agradezco su ayuda...