Funktionen generer en talrække til FI kort, med checkciffer.
Fu8nktionen er lavet i asp (vbscript)
<%
'---------------modulus
function modulus(talraekke)
fiknr = talraekke
while len(fiknr)<14
fiknr = "0" & fiknr
wend
tal = fiknr
msum = 0
i = len(tal)
while i >0
if i mod 2 <> 0 then
tmp = Cint(Mid(tal,i,1))* 1
else
tmp = Cint(Mid(tal,i,1))* 2
end if
if tmp >= 10 then
tmp = Cint(left(tmp,1)) + Cint(right(tmp,1))
end if
msum = msum + tmp
i = i - 1
wend
msum = msum mod 10
if(msum > 0) then msum = 10 - msum
fiknr = fiknr & msum
response.write fiknr
end function
'--------------modulus slut
%>
'---------------modulus
function modulus(talraekke)
fiknr = talraekke
while len(fiknr)<14
fiknr = "0" & fiknr
wend
tal = fiknr
msum = 0
i = len(tal)
while i >0
if i mod 2 <> 0 then
tmp = Cint(Mid(tal,i,1))* 1
else
tmp = Cint(Mid(tal,i,1))* 2
end if
if tmp >= 10 then
tmp = Cint(left(tmp,1)) + Cint(right(tmp,1))
end if
msum = msum + tmp
i = i - 1
wend
msum = msum mod 10
if(msum > 0) then msum = 10 - msum
fiknr = fiknr & msum
response.write fiknr
end function
'--------------modulus slut
%>
Den kaldes så blot på denne måde:
<%
modulus(1234)
%>
Hvilket giver følgende output:
000000000012344
Og lad os så få sendt nogle FI kort ud.
