Fungsi Kode Verifikasi Kartu ID
FunctionCheckCardId (E)
arrverifyCode = split ("1,0, x, 9,8,7,6,5,4,3,2", ")
Wi = split ("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2", ")
Checker = split ("1,9,8,7,6,5,4,3,2,1,1", "),")
Iflen (e) <15orlen (e) = 16orlen (e) = 17orlen (e)> 18then
CheckCardId = "Nomor ID memiliki 15 kode atau total 18 digit"
CheckCardId = false
Fungsi keluar
Endif
Dimai
Iflen (e) = 18then
AI = Mid (E, 1,17)
Elseiflen (e) = 15then
Ai = e
Ai = kiri (ai, 6) & "19" & mid (ai, 7,9)
Endif
IFNOTISNUMERIC (AI) Lalu
CheckCardId = "Kecuali digit terakhir, kartu ID harus menjadi nomor!"
Fungsi keluar
Endif
Dimstryear, Stronth, Strday
stryear = cint (mid (ai, 7,4))
Stronth = cint (mid (ai, 11,2))
strday = cint (mid (ai, 13,2))
Ulang tahun = trim (stryear)+"-"+trim (strmonth)+"-"+trim (strday)
Ifisdate (ulang tahun) lalu
Ifdatediff ("yyyy", sekarang, ulang tahun) <-140orcdate (ulang tahun)> tanggal () lalu
CHECKCARDID = "Kartu identitas dimasukkan secara tidak benar!"
Fungsi keluar
Endif
IFSTRMONTH> 12OrTRday> 31then
CHECKCARDID = "Kartu identitas dimasukkan secara tidak benar!"
Fungsi keluar
Endif
Kalau tidak
CHECKCARDID = "Kartu identitas dimasukkan secara tidak benar!"
Fungsi keluar
Endif
Dimi, TotalMulaiwi
Fori = 0to16
TotalMulaiwi = TotalMulaiwi+Cint (Mid (Ai, I+1,1))*Wi (i)
Berikutnya
Dismodvalue
MODVALUE = TOTALMULAIWIMOD11
DiMStrverifyCode
StrverifyCode = arrverifyCode (ModValue)
Ai = ai & strverifyCode
CheckCardId = ai
Iflen (e) = 18ande <> aithen
CheckCardId = "Nomor kartu identitas dimasukkan secara tidak benar!"
Fungsi keluar
Endif
Fungsi endfungsi
response.writecheckcardid ("528337194801020025") '' '' '' '' '' '' '' '' 'Saya tidak tahu kartu ID siapa ini, saya mencobanya ~~~~~~~~~~~ HAHA
'' '' 'Ini jika kartu ID yang dikembalikan dimasukkan, itu berarti benar, jika tidak kesalahan akan diminta ...