Savel brain dump

Prireikė čia vienam žmogiukui asmens kodo tikrinimo programėlės. Teko skubiai nusirašyti iš interneto tikrinimo algorintmą ir sukišti į Microsoft Visual Basic apvalkalą. Va ir gavoasi va tokis produktas: Asmens kodo tikrinimas.

Programa gali reikalauti MS Visual Basic runtime. Ją laisvai galima rasti internete ar MS interneto puslapiuose.

Pats tikrinimo algoritmas visiškai paprastas. Manau jį lengvai galima įkišti į MS Excel Basicą:

Ženkliukas “" reiškia, kad perkėlimas į kitą eilute nereikalingas.

Private Function chksum(ak)
Dim c, c1
c = Val(Mid$(ak, 1, 1)) + Val(Mid$(ak, 2, 1)) * 2 +
\ Val(Mid$(ak, 3, 1)) * 3 + Val(Mid$(ak, 4, 1)) * 4 +
\ Val(Mid$(ak, 5, 1)) * 5 + Val(Mid$(ak, 6, 1)) * 6 +
\ Val(Mid$(ak, 7, 1)) * 7 + Val(Mid$(ak, 8, 1)) * 8 +
\ Val(Mid$(ak, 9, 1)) * 9 + Val(Mid$(ak, 10, 1))
c = c Mod 11
c1 = Val(Mid$(ak, 1, 1)) * 3 + Val(Mid$(ak, 2, 1)) * 4 +
\ Val(Mid$(ak, 3, 1)) * 5 + Val(Mid$(ak, 4, 1)) * 6 +
\ Val(Mid$(ak, 5, 1)) * 7 + Val(Mid$(ak, 6, 1)) * 8 +
\ Val(Mid$(ak, 7, 1)) * 9 + Val(Mid$(ak, 8, 1)) * 1 +
Val(Mid$(ak, 9, 1)) * 2 + Val(Mid$(ak, 10, 1)) * 3
c1 = c1 Mod 11
If c <> 10 Then
    chksum = c
ElseIf c1 <> 10 Then
    chksum = c1
Else
    chksum = 0
End If
End Function
	
Private Function ak(s)
Dim i
i = chksum(s)
If Mid$(s, 11, 1) = i Then
    ak = True
Else
    ak = False
End If
End Function

Algoritmas tekstinėje formoje.
O štai čia Asmens kodo tikrinimas MS EXCEL. Tik pasireguliuokite savo “security" nustatymus excelyje.

This entry was posted on Wednesday, July 11th, 2007 at 6:20 pm and is filed under Betkas. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.