Konu: TC Kimlikno tutarlılık kontrolü
Biliyorsunuz. Artık TC kimlik no sormak malesef aboneliğe bağlı. Bu kodla en azından karşınızdakinin kafadan bir TC kimlik no sallamadığına emin olabiliyorsunuz. Bu kod alakasız bir konuyu araştırırken karşıma çıktı ve foxproya çevirdim.
Lparameters lctc
Local k1,k2,k3,k4,k5,k6,k7,k8,k9,k10,k11,tekler,ciftler,t1,t2,t3,c1,c2
k1 = Subs(m.lctc,1, 1)
k2 = Subs(m.lctc,2, 1)
k3 = Subs(m.lctc,3, 1)
k4 = Subs(m.lctc,4, 1)
k5 = Subs(m.lctc,5, 1)
k6 = Subs(m.lctc,6, 1)
k7 = Subs(m.lctc,7, 1)
k8 = Subs(m.lctc,8, 1)
k9 = Subs(m.lctc,9, 1)
k10 = Subs(m.lctc,10, 1)
k11 = Subs(m.lctc,11, 1)
tekler = Val(m.k1)+Val(m.k3)+Val(m.k5)+Val(m.k7)+Val(m.k9)
ciftler = Val(m.k2)+Val(m.k4)+Val(m.k6)+Val(m.k8)
t1 = ( m.tekler * 3 ) + m.ciftler
c1 = ( 10 - ( m.t1 % 10 ) ) % 10
t2 = m.c1 + m.ciftler
t3 = ( m.t2 * 3 ) + m.tekler
c2 = ( 10 - ( m.t3 % 10 ) ) % 10
If m.c1 = Val(m.k10) And m.c2 = Val(m.k11)
Return
Endif
Return .F.
www.metinemre.com