Option Compare Database
Option Explicit
    Function HDDBroj()
    Dim fs, D
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set D = fs.GetDrive(fs.GetDriveName _
    (fs.GetAbsolutePathName(Access.References.Count)))
    HDDBroj = Abs(D.SerialNumber)
    End Function
    Function Kodiranje(SerBr As String)
    Const K = "1234567890A78BCSDEFGHCS344HJKLM5657NBVLC90112TGMLKBHJFZGH3234"
    Dim I As Integer
    Dim KodS As Integer
    Dim DuzinaB As Integer
    Dim Str As String
    DuzinaB = Len(SerBr)
     
        For I = 1 To DuzinaB
        Str = Mid(SerBr, I, 1)
        KodS = Asc(Str) + I
            If KodS > Len(K) Then KodS = KodS - Len(K)
            Kodiranje = Kodiranje & Mid(K, KodS, 1)
        Next I
    End Function
    Function Kljuc(GenerisaniB As String)
    Dim I As Integer
    Dim Duz As Integer
    Duz = Len(GenerisaniB)
        For I = Duz To 1 Step -1
        Kljuc = Kljuc & Asc(Mid(GenerisaniB, I, 1)) - I
        Next I
    End Function
    Function ProvjeraKljuca(GenerisaniBroj As String)
    Dim SBroj As String
    Dim Kodirani As String
    Dim I As Integer
    Dim Duz As Integer
    Dim KljucProvjera As String
    SBroj = HDDBroj
    Kodirani = Kodiranje(SBroj)
    Duz = Len(Kodirani)
        For I = Duz To 1 Step -1
        KljucProvjera = KljucProvjera & Asc(Mid(Kodirani, I, 1)) - I
        Next I
        If KljucProvjera <> GenerisaniBroj Then
          MsgBox "Program nije registrovan za rad na ovom ra
unaru!", vbCritical, "Greška"
          'Quit
          'DoCmd.OpenForm "frmRegistracijaKljuca"
          Else
          DoCmd.OpenForm "frmTPrijava"
        End If
    End Function
Function ProvjeraKljuca1(GenerisaniBroj As String)
    Dim SBroj As String
    Dim Kodirani As String
    Dim I As Integer
    Dim Duz As Integer
    Dim KljucProvjera As String
    SBroj = HDDBroj
    Kodirani = Kodiranje(SBroj)
    Duz = Len(Kodirani)
        For I = Duz To 1 Step -1
        KljucProvjera = KljucProvjera & Asc(Mid(Kodirani, I, 1)) - I
        Next I
        If KljucProvjera <> GenerisaniBroj Then
          MsgBox "Program nije registrovan za rad na ovom ra
unaru!", vbCritical, "Greška"
          DoCmd.Close
          Quit
          Else
        DoCmd.SetWarnings False
            DoCmd.RunSQL "UPDATE StanjeART SET Kolicina='" & Forms!frmRegistracijaKljuca!RegistarBroj & "' WHERE Sifra='" & "1" & "'" 'and SifSklad='" & Me.Skladiste & "'"
        DoCmd.SetWarnings True
        DoCmd.SetWarnings False
        DoCmd.RunSQL "DELETE FROM POREZI  WHERE SIFPOR='" & "4" & "'"
        DoCmd.SetWarnings True
        DoCmd.Close
          DoCmd.OpenForm "frmPocetak"
        End If
    End Function