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
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
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
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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: wilsongamboa and 43 guests