Alguien sabe como generar un serial a partir de un nombre??

[AIDA]

Hola

Alguien tendrá por ahí alguna rutinita para generar seriales a partir de un nombre y su contra parte que al poner el nombre en una aplicación valide que el numero de serie que se de de alta corresponde a ese nombre


Saluditos

Aida

[Antonio Linares]

Aida,

Puedes pasar el nombre a sus valores en hexadecimal, por ejemplo:

Code: Select all  Expand view

function Main()

   local cName := "Aida"
   local n, cSerial := ""

   for n = 1 to Len( cName )
      cSerial += PadL( DecToHex( Asc( SubStr( cName, n, 1 ) ) ), 2, "0" )   
   next

   MsgInfo( cSerial )

return nil
 

Ahora, si lo quieres complicar un poquito mas, puedes encriptar con una clave:

Code: Select all  Expand view

function Main()

   local cName := "Aida"
   local n, cSerial := "", cPassword := "Five"

   cName = Encrypt( cName, cPassword )

   for n = 1 to Len( cName )
      cSerial += PadL( DecToHex( Asc( SubStr( cName, n, 1 ) ) ), 2, "0" )
   next

   MsgInfo( cSerial )

return nil
 

[Antonio Linares]

Y ahora, camino de ida y vuelta

Code: Select all  Expand view

function Main()

   local cName := "Aida"
   local n, cSerial := "", cPassword := "Five"

   cName = Encrypt( cName, cPassword )

   for n = 1 to Len( cName )
      cSerial += PadL( DecToHex( Asc( SubStr( cName, n, 1 ) ) ), 2, "0" )
   next

   MsgInfo( cSerial )

   cName = ""
   
   for n = 1 to Len( cSerial ) step 2
      cName += Chr( HexToDec( SubStr( cSerial, n, 2 ) ) )
   next
   
   cName = Decrypt( cName, cPassword )
   
   MsgInfo( cName )  

return nil
 

[AIDA]

Muchas gracias Antonio

Saluditos