Visual Basic - como verificar DNI,C. Corriente y N tarj. Credito

me gustaria que obtener los algoritmos para verificar el DNI, Pasaporte, Cuenta corriente bancario, y en numero de la tarjeta de credito.

Atentamente,
Jose.

La del DNI (NIF) :
Dim LetraNif$, dc%

Function DIGITONIF(Nif As String) As String
LetraNif = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (Text1.text Mod 23) + 1, 1)
dc = (Text1.text Mod 97)
End Function

Text1.text es donde quieres que se visualice el resultado.

El resto, no lo sé.

Pedro

Estimada amiga:
En www.ambsoftware.com encontrarás ejemplos que te muestran cómo hacerlo.
Para localizarlos te recomiendo que utilices el buscador de recursos de la página principal y escribas en la casilla la palabra "dni" para el primer ejemplo y "tarjeta" para el segundo.
Respecto a la cuenta corriente no te puedo ayudar.
Espero que esta información te sirva de ayuda.
Fdo.- Alvaro Marín

Esto es lo que encontré para la tarjeta de crédito:

Si el número tiene un formato válido devuelve 'True'. Si tiene un formato no válido devuelve 'False'. Este algoritmo puede trabajar con todas las tarjetas de crédito. Si una tarjeta es validada con este código, no significa que sea buena actualmente sino sólo que el número tenga un formato válido. Si no es validada por este algoritmo tiene que esperar algún tiempo hasta que procese la tarjeta y diga que definitivamente no es válida.

Se usa esta función en programas CGI,s que necesitan la validación de una tarjeta de crédito.

Function CheckCard(CCNumber As String) As Boolean

Dim Counter As Integer, TmpInt As Integer

Dim Answer As Integer

Counter = 1
TmpInt = 0
While Counter <= Len(CCNumber)
If IsEven(Len(CCNumber)) Then
TmpInt = Val(Mid$(CCNumber, Counter, 1))
If Not IsEven(Counter) Then
TmpInt = TmpInt * 2
If TmpInt > 9 Then TmpInt = TmpInt - 9
End If
Answer = Answer + TmpInt
'Debug.Print Counter, TmpInt, Answer
Counter = Counter + 1
Else
TmpInt = Val(Mid$(CCNumber, Counter, 1))
If IsEven(Counter) Then
TmpInt = TmpInt * 2
If TmpInt > 9 Then TmpInt = TmpInt - 9
End If
Answer = Answer + TmpInt
'Debug.Print Counter, TmpInt, Answer
Counter = Counter + 1
End If
Wend
Answer = Answer Mod 10
If Answer = 0 Then CheckCard = True
End Function

Espero que te sirva, ya te falta menos.

Saludos.

Pedro



Visual Basic
1.-Ejecutar desde una aplica