topic-26776

Posts: 401

Joined: Thu Oct 06, 2005 10:15 PM

Algoritmo de Luhn
Posted: Thu Jul 11, 2013 04:23 PM

El algoritmo de Luhn o fórmula de Luhn, también conocida como "algoritmo de módulo 10", es una fórmula de suma de verificación, utilizada para validar una diversidad de números de identificación; como números de tarjetas de crédito, números IMEI, etc.

Code (fw): Select all Collapse

Function lAlgLuhn( cImei )
Local cDigCk := Val( Right( cImei, 1 ) )
Local nAt := 0
Local nSum := 0
Local c := ""

 For nAt := 1 to ( Len( cImei ) - 1 )
  If Mod( nAt, 2 ) == 0
   c := AllTrim( cStr( Val( SubStr( cImei, nAt,1) ) * 2 ) )
   cNum := If( ( Len(c) >= 2 ), AllTrim( cStr( Val( substr(c,1,1) ) + Val( substr(c,2,1) ) ) ), c )
  Else
   cNum := SubStr( cImei, nAt,1 )
  EndIf
  nSum += Val( cNum )
 Next nAt

Return( Val( substr( AllTrim( cStr( nSum * 9 ) ), -1, 1 ) ) == cDigCk )

Saludos,

Pablo Alberto Vidal

/*

------------------------------------------------------

Harbour 3.2.0, Fivewin 17.02, BCC7

------------------------------------------------------

*/

fgondi

Posts: 694

Joined: Fri Oct 07, 2005 06:58 AM

Re: Algoritmo de Luhn
Posted: Thu Jul 11, 2013 05:46 PM

Muchas gracias

Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Algoritmo de Luhn
Posted: Thu Jul 11, 2013 06:26 PM

Pablo,

Muchas gracias. Aquí queda para su posterior uso.

Saludos

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Algoritmo de Luhn
Posted: Thu Jul 11, 2013 10:42 PM

Gracias Pablo

guardado en las lib privada para un futuro

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Algoritmo de Luhn
Posted: Fri Jul 12, 2013 12:30 AM

Pablo, muchisimas gracias por este algoritmo.

Saludos

antolin

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Re: Algoritmo de Luhn
Posted: Fri Jul 12, 2013 08:15 AM

Muchas gracias Pablo

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

FiveTech Support Forums

Continue the discussion