Option Compare Database
Option Explicit
Global Const K = "1V2A78UZ90A78BCSD3EF4G8HCS344HJKLM5657NB3456VLC90112TGM7LKB6HJFZGH3234"
Function BrojDiska() As String
BrojDiska = HRD.GetSerialNumber
End Function
Function Korisnicki_Broj(BrojDiska As String)
Dim I As Integer
Dim KodS As Integer
Dim DuzinaB As Integer
Dim Str As String

DuzinaB = Len(BrojDiska)
 
    For I = 1 To DuzinaB
    Str = Mid(BrojDiska, I, 1)
    KodS = Asc(Str) + I
        If KodS > Len(K) Then KodS = KodS - Len(K)
        Korisnicki_Broj = Korisnicki_Broj & Mid(K, KodS, 1)
    Next I
End Function
Function Strtanje()
Dim Serb As String
Dim b As String
Serb = BrojDiska
b = Korisnicki_Broj(Serb)
Dim a
a = Kljuc(b)
End Function
Function Provjera(AutorskiBroj As String)
Dim I As Integer
Dim KodS As Integer
Dim DuzinaB As Integer
Dim Str As String

DuzinaB = Len(AutorskiBroj)
    For I = 1 To DuzinaB
    Str = Mid(AutorskiBroj, I, 1)
    KodS = Asc(Str) + I
        If KodS > Len(K) Then KodS = KodS - Len(K)
        Provjera = Provjera & Mid(K, KodS, 1)
    Next I
End Function