Gerar Serial Number

[Paulo]

Olá a todos.
Alguém tem ou pode indicar uma rotina para gerar um numero de série a partir de uma string ?
Gracias

[Joseg]

Olá a todos.
Alguém tem ou pode indicar uma rotina para gerar um numero de série a partir de uma string ?
Gracias

O que eu já fiz:
Achar o valor decimal de cada caractere da string, multiplicar por por um numero fixo ou pela data.
mas há muitas outras formas, tudo depende da complexidade que se quer por nesse numero de série e qual o objectivo.
Num caso concreto o resultado da string multipliquei pelo numero de série do disco rígido.

Se o objectivo é segurança ainda se pode fazer algo do tipo:

01 b x(100).
.
.
.
inspect b converting 
"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" to 
"BCDEFGHIJKLMNOPQRSTUVWXYZ0123456789A"

Jose Manuel

[Fito]

Hola:

Tambien podes redefinir el string y hacer distintos cálculos para encontrar una clave, que cuando la quieras controlar volves a realizar la misma rutina y comparar si te da el mismo resultado.

01  nombre                   pic x(100).
01  redefines nombre.
    02 letra                 pic 9999 comp-4 occurs 100 times
01  suma                     pic 9(8).
01  ii                       pic 999.

Por ejemplo podrías hacer una rutina parecida a ésta:

     move zeros           to suma.
     perform varying ii from 1 by 2 until ii > 100
        compute suma = suma + letra(ii) + (ii / 6)
     end-perform.
     perform varying ii from 2 by 2 until ii > 100
        compute suma = suma + letra(ii) + (ii / 3)
     end-perform.

Cualquier tipo de cálculo, para el caso es lo mismo. Y te va a dar un valor en la variable "suma" que es la que tenés como serial.

Saludos.


Fito...

[Kuk]

@Joseg, yo en tu versión haría algo así:

 inspect b converting 
     "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" to 
     "HC79QWH8J52IBOZFRST6VGXYP01L34KUDMEA"

Pero además hay un punto, que es que los literales de guardan en el binario/ejecutable tal cual. Es decir, con un editor hexadecimal se podría fácilmente extraer las correspondencias.

Para que esto no pase, habría que construir cada "churro" vía cálculos, algo tipo esto:

     01  CHURRO-1                PIC X(37).
     01  CHAR                    PIC X(2).
     01  BYTE REDEFINES CHAR     PIC 9(2) COMP-5.
     
     PROCEDURE DIVISION.
     
         MOVE 1 TO IDX-1
         
         ADD 21 TO 20 GIVING BYTE
         
         PERFORM UNTIL IDX-1 > 37
             MOVE BYTE TO CHURRO-1(IDX-1:1)
             
             ADD 1 TO IDX-1 BYTE
             
             IF  BYTE > H"5A"
                 MOVE H"30" TO BYTE
             END-IF
         END-PERFORM

Y lo mismo para el "churro-2", pero con cálculo individual para cada posición.

[Paulo]

Vou testar os vossos exemplos e ver qual o que melhor se adequa ao que pretendo, que é uma chave relativamente simples.
Gracias