Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

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

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

[ Pregleda: 3447 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

ex-baccko

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



Profil

icon Zaštita aplikacije pomoću generisanja broja labele sa hd.31.05.2006. u 13:59 - pre 217 meseci
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
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.ded.ameritech.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Zaštita aplikacije pomoću generisanja broja labele sa hd.31.05.2006. u 15:48 - pre 217 meseci
Ovo je za Access forum
 
Odgovor na temu

izonic
ishab zonic
Tuzla

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

Sajt: www.icentar.ba


+2 Profil

icon Re: Zaštita aplikacije pomoću generisanja broja labele sa hd.02.06.2006. u 00:09 - pre 217 meseci
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
 
Odgovor na temu

ex-baccko

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



Profil

icon Re: Zaštita aplikacije pomoću generisanja broja labele sa hd.02.06.2006. u 14:11 - pre 216 meseci
Stari imašli što gotovo na ovaj fazon registracije pozdrav bascko.
 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
*.PPPoE-2892.sa.bih.net.ba.

Sajt: www.icentar.ba


+2 Profil

icon Re: Zaštita aplikacije pomoću generisanja broja labele sa hd.02.06.2006. u 16:12 - pre 216 meseci
Imas kompletan kod i objasnjenja ovdje:
http://www.icentar.com/showthread.php?t=1293
zxz
 
Odgovor na temu

ex-baccko

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



Profil

icon Re: Zaštita aplikacije pomoću generisanja broja labele sa hd.05.06.2006. u 19:22 - pre 216 meseci
Daj molim te pogledaj ovaj moj kod moželi se tu šta odraditi
pozdrav.....................
 
Odgovor na temu

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

[ Pregleda: 3447 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.