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

Board index FiveWin para Harbour/xHarbour Alguien sabe como generar un serial a partir de un nombre??

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Alguien sabe como generar un serial a partir de un nombre??
Posted: Sun Aug 08, 2010 12:43 AM

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 :wink:

Aida

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Alguien sabe como generar un serial a partir de un nombre??
Posted: Sun Aug 08, 2010 07:20 AM

Aida,

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

Code (fw): Select all Collapse

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 (fw): Select all Collapse

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Alguien sabe como generar un serial a partir de un nombre??
Posted: Sun Aug 08, 2010 07:26 AM

Y ahora, camino de ida y vuelta

Code (fw): Select all Collapse

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: Alguien sabe como generar un serial a partir de un nombre??
Posted: Mon Aug 09, 2010 02:24 AM

Muchas gracias Antonio

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

FiveTech Support Forums

Continue the discussion