Aşağıdaki Kod TC Nufus Dairesi Yasal algoritmasıdır. En alt taki SONKN sonucu 1 çıkar ise 11 rakamdan oluşan real bir TC No girilmiştir. Eğer 11 rakamdan oluşan doğru olmayan bir TC girseniz Sonuç 0 yani yanlıştır.
Let ( [
ATCNO = Int( TcNo / 100 ) ;
BTCNO = Int( TcNo / 100 ) ;
C1 = Mod ( ATCNO ; 10 ) ;
ATCNO = Int( ATCNO / 10 ) ;
C2 = Mod ( ATCNO ; 10 ) ;
ATCNO = Int( ATCNO / 10 ) ;
C3 = Mod ( ATCNO ; 10 ) ;
ATCNO = Int( ATCNO / 10 ) ;
C4 = Mod ( ATCNO ; 10 ) ;
ATCNO = Int( ATCNO / 10 ) ;
C5 = Mod ( ATCNO ; 10 ) ;
ATCNO = Int( ATCNO / 10 ) ;
C6 = Mod ( ATCNO ; 10 ) ;
ATCNO = Int( ATCNO / 10 ) ;
C7 = Mod ( ATCNO ; 10 ) ;
ATCNO = Int( ATCNO / 10 ) ;
C8 = Mod ( ATCNO ; 10 ) ;
ATCNO = Int( ATCNO / 10 ) ;
C9 = Mod ( ATCNO ; 10 ) ;
ATCNO = Int( ATCNO / 10 ) ;
TEKLER = C1+C3+C5+C7+C9 ;
CIFTLER = C2+C4+C6+C8 ;
Q1 = Mod ((10 - Mod ( TEKLER * 3 + CIFTLER ; 10 )) ; 10);
Q2 = Mod ((10 - Mod ( ( CIFTLER + Q1 ) * 3 + TEKLER ; 10 )) ; 10);
SonKN = BTCNO * 100 + Q1 * 10 + Q2
];
If ( SonKN = TcNo ; 1 ; 0 )
)