Tema: una consulta
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 06/04/2002, 14:47
Avatar de mamon
mamon
 
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)