
06/04/2002, 14:47
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Lima
Mensajes: 1.302
Antigüedad: 23 años, 4 meses Puntos: 3 | |
una consulta hola, he leido este código en otro foro y no lo entiendo, nose si alguien me lo puede documentar, osea explicar por pasos que hace cada cosa:
<%
aux = Request.form("Rut")
verif = Request.form("rutverif")
factor = 2
suma = 0
k = "k"
cero = 0
Do While aux <> 0
digito = aux Mod 10
suma = suma + (factor * digito)
aux = Int (aux / 10)
factor = (factor + 1)
If factor = 8 Then
factor = 2
End If
Loop
dv = 11 - suma Mod 11
If dv = 10 Then
dv = k
End If
If dv = 11 Then
dv = cero
End If
Response.Write "El rut: " & Request.form("Rut") & " - " & Request.form("rutverif") & "<br>"
If verif = dv Then
Response.Write "es correcto"
Else
Response.Write "es incorrecto"
End If
%>
Gracias de antemano,
Giancarlo Loret de Mola (Mamon) |