[es] - Zaštita aplikacije pomoću generisanja broja labele sa hd.

ex-baccko

Član broj: 73210
Poruke: 144
*.222.36-130.bih.net.ba.

Profil

Zaštita aplikacije pomoću generisanja broja labele sa hd.

^{31.05.2006. u 13:59}

KAKO DA U OVAJ KOD UTRPAM DA MI OTVORI GLAVNU FORMU PROGRAMA, TEK KADA OVO REGISTRUJE
I DA SE OVA FORMA NAKON REGISTRACIJE VIŠE NE POJAVLJUJE VEĆ GLAVNA FORMA PRI STARTANJU APLIKACIJE.
OVA REGISTRACIJA FUNKCIONIŠE...
ILI MOŽDA IMATE GOTOV PRIMJER REGISTRACIJE APLIKACIJE U ACCESS-U SA KODOM MAŠINE DA SE GENERIŠE.
POZDRAV "BACKO"...

Option Compare Database
Option Explicit

Private Sub cmdCancel_Click()
DoCmd.Close acForm, Me.Name
End Sub

Private Sub Form_Open(Cancel As Integer)

Select Case Me.OpenArgs
Case "Calculate"
Me.Caption = "Calculate registration code"
Me.cmdCancel.Caption = "Exit"
Me.OK.Caption = "Calculate"
Case Else
If checkDAO() = False Then
MsgBox "Pogrešna Licenca molimo pokušajte ponovno" & vbCrLf & "BackoSoft Živiice Copyright 2006 (www.BackoSoft.com)...", vbCritical
Cancel = True
End If
Me.Caption = "Registration"
Me!PCCode = Int(UGetVolumeInfo() / 3)
If CheckReg = True Then
Me!RegName = getRegName()
Me!RegCode = getRegCode()
Me!RegName.Enabled = False
Me!RegCode.Enabled = False
Me!PCCode.Enabled = False
Me!cmdCancel.Visible = False
Exit Sub
Else
End If
End Select
Me!PCCode.Locked = Not (Nz(Me.OpenArgs) = "Calculate")
Me!RegCode.Locked = (Nz(Me.OpenArgs) = "Calculate")
End Sub

Private Sub OK_Click()
On Error Resume Next
Dim namestr As String, i, addition As Long, regstr, setkey, j, s, k
addition = 0
namestr = "SGS" & Me!RegName
For i = 1 To Len(namestr)
addition = addition + Asc(mID(namestr, i, 1))
Next i
Select Case Me.OpenArgs
Case "Calculate"
k = Nz((Me!PCCode))
Case Else
k = Int(UGetVolumeInfo / 3)
End Select
s = CStr(addition)
j = Int(Len(CStr(k)) / Len(CStr(s))) + 1
For i = 1 To j
s = s & CStr(addition)
Next i
s = Left(s, Len(CStr(k)))
addition = CLng(s)
Select Case Me.OpenArgs
Case "Calculate"
If IsNull(Me!PCCode) Then Me!RegCode = Null: Exit Sub
Me!RegCode = Nz((Me!PCCode)) Xor addition
Case Else
If Me!RegCode = (Int(UGetVolumeInfo / 3) Xor addition) Then
If CheckReg = True Then DoCmd.Close acForm, Me.Name: Exit Sub
regstr = CStr(Me!RegCode)
setkey = SetAppProp("sgRegCode", dbText, regstr)
setkey = SetAppProp("sgRegName", dbText, Me!RegName)
MsgBox "Registracija programa je uspješno završena.Hvala što koristite softvere BackoSoft.", vbInformation
DoCmd.Close acForm, Me.Name
Else
If getRegName() > "" Then
setkey = SetAppProp("sgRegCode", dbText, "0")
setkey = SetAppProp("sgRegName", dbText, "Neregistrovana Verzija Programa")
End If
MsgBox "Pogrešna Licenca, molimo pokušajte ponovno" & vbCrLf & "BackoSoft Živiice Copyright 2006 (www.BackoSoft.com).", vbCritical, "Greška pri licenciranju programa..."
End If
End Select
End Sub

Prikačeni fajlovi

Licenciranje.zip - 30.64k

^{31.05.2006. u 13:59}

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 378
*.PPPoE-103.sa.bih.net.ba.

Sajt: www.icentar.com

Profil

Re: Zaštita aplikacije pomoću generisanja broja labele sa hd.

^{02.06.2006. u 00:09}

function Ulaz()
If CheckReg = True Then
docmd.OpenForm "neka druga forma ili ne znam sta"
Else
docmd.OpenForm "ime forme" forma za upis koda
End If
exit function

Kod je popriicno nerazuman i naravno postoji jos funkcija za provjeru necega ne znam cega.
Moglo bi da bude ovako ako nema jos nekih provjera.
Umjesto select case treba upotrijrbiti if jer to brze radi.

zxz

^{02.06.2006. u 00:09}