iCentar » Racunari i oprema » Programirannje i baze podataka » Access

freeman	06.11.2016 23:24
Predmet:Registracija aplikacije MoÅ¾e li pomoć oko ove zaÅ¡tite.Pitanje:Koliko je dobra za zaÅ¡titu aplikacije?VaÅ¡a ocjena.Zanima me Kako radi? Gdje se sprema zapis nakon Å¡to se izvrÅ¡i registracija.NaÅ¡ao sam na netu pa moÅ¾da bude joÅ¡ nekom korisno.Kako jednostavno kopirati formu registracije zajedno sa modulima u svoju aplikaciju i prilagoditi je za svoje potrebe.Pozdrav.
Prilozi: UnLocker.zip (Velicina datoteke:55.08 KB)

zxz	08.11.2016 19:20
Predmet:Re: Registracija aplikacije Pogledal ovo iko? Covjek postavio da pogledamo. Nisam imao vremena ali ja cu sutra malo detaljnije pogledati.

Avko	08.11.2016 21:12
Predmet:Re: Registracija aplikacije ja gledao otvorio u accesu izvrtio kotacicem misa sve kodove i u cudu sve to gledao te se zapitao; cemu to sve sluzi?

freeman	12.11.2016 12:15
Predmet:Re: Registracija aplikacije Nadam se da će netko naći malo vremena za komentar.

Gjoreski	12.11.2016 13:51
Predmet:Re: Registracija aplikacije Pogledao sam ova. Podatci o registracija se upise u registri. Ja u zadnje vreme sam odusto od pravejne zastita za registracija aplikacije. Na moi aplikacie samo sam zabraio na klientima da promene podatke o firme , te podatke stavljam u modul i pred pravejne Mde izaberem za koja firma se odnosi. To se pokazalo kako dovoljno za zastita aplikacije. Niko ne dira program na koi ne moze promeniti nazv firme ,adresa , danocni broeve i drugo. To je za access aplikacije . Oni drugi sta sam pravio vo vb za niv zastita sam stavio vo setup.ini pored aplikacije i ali podatke pred upisivajne na ini su kriptirane i ne moze se promeniti nikako osim iz aplikacije. Tamo u ini upisem dali je program trajal ili je full verzija i date za trajal verzija od do , isto tamo sam zapisao i seriski broj diska i seriski broj procesora koi naravno nisu isti sa onaj koj ti iscitas nego su preradeni po neka formula i naravno i oni su kriptirane. Ova tvoja zastita radi za access 2007 i nagore. jas za Access 2003 imam nesto slicno samo sto podatke se ne upise u registri ngo u nevidlive tabele u samoj aplikacije. pogledaj modul M_CheckRegistry tamu je ispisano u koj register sta se upise.

Gjoreski

12.11.2016 13:51

Predmet:Re: Registracija aplikacije

Pogledao sam ova.
Podatci o registracija se upise u registri.
Ja u zadnje vreme sam odusto od pravejne zastita za registracija aplikacije.
Na moi aplikacie samo sam zabraio na klientima da promene podatke o firme , te podatke stavljam u modul i pred pravejne Mde izaberem za koja firma se odnosi.
To se pokazalo kako dovoljno za zastita aplikacije.
Niko ne dira program na koi ne moze promeniti nazv firme ,adresa , danocni broeve i drugo.
To je za access aplikacije .
Oni drugi sta sam pravio vo vb za niv zastita sam stavio vo setup.ini pored aplikacije i ali podatke pred upisivajne na ini su kriptirane i ne moze se promeniti nikako osim iz aplikacije.
Tamo u ini upisem dali je program trajal ili je full verzija i date za trajal verzija od do , isto tamo sam zapisao i seriski broj diska i seriski broj procesora koi naravno nisu isti sa onaj koj ti iscitas nego su preradeni po neka formula i naravno i oni su kriptirane.
Ova tvoja zastita radi za access 2007 i nagore.
jas za Access 2003 imam nesto slicno samo sto podatke se ne upise u registri ngo u nevidlive tabele u samoj aplikacije.

pogledaj modul M_CheckRegistry tamu je ispisano u koj register sta se upise.

zxz	12.11.2016 14:54
Predmet:Re: Registracija aplikacije Eto ja pregledah i dat cu svoje misljenje. Prvo sto mi se ne svidja je svaranje po registijima i to na pricipu shela do vb ima svoju naredbu za upis u registrije i sigurniji je sto se tice verzija op. sistema. Dobro da krenemo od pocetka. Prvo podizemo formu F_registration i tu imamo produkt kod. Evo kako se generise: ProductCode = Version & "-" & Mid(DateInstalled, 1, 3) & "-" & Mid(DateInstalled, 4, 3) & "-" & Mid(DateInstalled, 7, 2) Do prve crtice je verzija programa koja je tako nezgrapno uradjena. Napr ja bih je zapisao u neku tabelu pa odatle citao ili pak napraviio kao konstantu. Ovako je obicnom korisniku to tesko naci gdje da promijeni. Evo te procedure: PreuzmiIzvorni kôd (Visual Basic): Function WriteToReg1() Dim RegKey As String Dim RegObj Dim Value As String Dim WTR1 As Object 'Writes the Version Number in the Registry 'This can be done by Package Solution Wizard RegKey = "HKCU\SOFTWARE\MyApp\Version" 'Version in the format X.X.X 'X is between 0 and 9 Value = "1.2.3" Set WTR1 = CreateObject("WScript.Shell") WTR1.RegWrite RegKey, Value, "REG_SZ" End Function Znaci obican korisnik bi morao verziju programa ovdje mijenjati. Na slican nacin zapisuje u registrije i datum instalacije pa poslije cita u produkt kodu. Znaci produkt kod je generisanma instalacije i verzije programa. Po meni ako hocemo da imamo produkt kod odnosno broj proizvoda onda to treba da generise vlasnik programa i da ti posalje. Mada to i nije toliko bitno. Dalje imamo formu F_Generator gdje se na osnovu produkt koda generise registracioni kod. Ova je procedura jos gora PreuzmiIzvorni kôd (Visual Basic): Private Sub ButtonGenerate_Click() 'Add your own error handling / validation On Error Resume Next Dim A, B, C, D, E, F, G, H, I, J, K, L, M 'Gets the first part of the code A = Mid(Code1, 1, 1) B = Mid(Code1, 2, 1) C = Mid(Code1, 3, 1) 'Gets the second part of the code D = Mid(Code1, 4, 1) E = Mid(Code1, 5, 1) F = Mid(Code1, 6, 1) G = Mid(Code1, 7, 1) H = Mid(Code1, 8, 1) I = Mid(Code1, 9, 1) J = Mid(Code1, 10, 1) K = Mid(Code1, 11, 1) 'Shows the Version Number on the form VersionNumber = A & "." & B & "." & C 'Shows the Date Installed on the form 'Unscrambles the date 'Format = DDMMYYYY 'D1 Y1 D2 Y2 M1 Y3 M2 Y4 DateInstalled = D & F & "/" & H & J & "/" & E & G & I & K 'Generate the first part of the Registration Code Dim hexno1, x1 Dim Unlock1 As String hexno1 = A & B & C For x1 = 1 To Len(hexno1) Step 2 Next Unlock1 = CLng("&h" & hexno1) 'Generate the second part of the Registration Code Dim hexno2, x2 Dim Unlock2 As String hexno2 = D & E & F & G & H & I & J & K For x2 = 1 To Len(hexno2) Step 2 Next Unlock2 = CLng("&h" & hexno2) 'Generate the Registration Code 'Splits the second part in two '4 digits then the rest L = Mid(Unlock2, 1, 4) M = Mid(Unlock2, 5, 20) Code2 = Unlock1 & "-" & L & "-" & M End Sub Prvo dimenzionisanje variabli dim a,b,c, d itd Umjesto napr Dim esto(brojMem) Onda tu imaju i dvije petlje koje nista ne rade. For x1 = 1 To Len(hexno1) Step 2 ' ovdje bi trebao biti neki kod ako hocemo da nam petlja nesto radi 'Ovako petlja se izvrti na prazno. Next Na kraju se generise registracioni kod a u stvari samo se datum i verzija ispisuju heksadecimalno. Ne provjerava ni hardver niti bilo sta dugo sem datuma i verzije. I na kraju ima dvije procedure unlocker1 i unlocker2 koje u stvari rade isto sto i ova gore procedura. To mu je provjera dali je program registrovan. Ima tu i onih 30 dana demo. Ima na forumu uputstvo i sve procedure izradjene za registraciju programa sa provjerom diska ili mat ploce nesto nisam siguran ali svejedno imate dll na forumu koji cita hardver pa mozete preko njega procitati sto zelite.

zxz

12.11.2016 14:54

Predmet:Re: Registracija aplikacije

Eto ja pregledah i dat cu svoje misljenje.
Prvo sto mi se ne svidja je svaranje po registijima i to na pricipu shela do vb ima svoju naredbu za upis u registrije i sigurniji je sto se tice verzija op. sistema.

Dobro da krenemo od pocetka.
Prvo podizemo formu F_registration i tu imamo produkt kod.
Evo kako se generise:
ProductCode = Version & "-" & Mid(DateInstalled, 1, 3) & "-" & Mid(DateInstalled, 4, 3) & "-" & Mid(DateInstalled, 7, 2)

Do prve crtice je verzija programa koja je tako nezgrapno uradjena.
Napr ja bih je zapisao u neku tabelu pa odatle citao ili pak napraviio kao konstantu.
Ovako je obicnom korisniku to tesko naci gdje da promijeni.
Evo te procedure:

PreuzmiIzvorni kôd (Visual Basic):

Function WriteToReg1()
Dim RegKey As String
Dim RegObj
Dim Value As String
Dim WTR1 As Object
'Writes the Version Number in the Registry
'This can be done by Package Solution Wizard
RegKey = "HKCU\SOFTWARE\MyApp\Version"
'Version in the format X.X.X
'X is between 0 and 9
Value = "1.2.3"
Set WTR1 = CreateObject("WScript.Shell")
WTR1.RegWrite RegKey, Value, "REG_SZ"
End Function

Znaci obican korisnik bi morao verziju programa ovdje mijenjati.
Na slican nacin zapisuje u registrije i datum instalacije pa poslije cita u produkt kodu.
Znaci produkt kod je generisanma instalacije i verzije programa.

Po meni ako hocemo da imamo produkt kod odnosno broj proizvoda onda to treba da generise vlasnik programa i da ti posalje.
Mada to i nije toliko bitno.

Dalje imamo formu F_Generator gdje se na osnovu produkt koda generise registracioni kod.
Ova je procedura jos gora

PreuzmiIzvorni kôd (Visual Basic):

Private Sub ButtonGenerate_Click()
'Add your own error handling / validation
On Error Resume Next
Dim A, B, C, D, E, F, G, H, I, J, K, L, M
'Gets the first part of the code
A = Mid(Code1, 1, 1)
B = Mid(Code1, 2, 1)
C = Mid(Code1, 3, 1)
'Gets the second part of the code
D = Mid(Code1, 4, 1)
E = Mid(Code1, 5, 1)
F = Mid(Code1, 6, 1)
G = Mid(Code1, 7, 1)
H = Mid(Code1, 8, 1)
I = Mid(Code1, 9, 1)
J = Mid(Code1, 10, 1)
K = Mid(Code1, 11, 1)
'Shows the Version Number on the form
VersionNumber = A & "." & B & "." & C
'Shows the Date Installed on the form
'Unscrambles the date
'Format = DDMMYYYY
'D1 Y1 D2 Y2 M1 Y3 M2 Y4
DateInstalled = D & F & "/" & H & J & "/" & E & G & I & K
'Generate the first part of the Registration Code
Dim hexno1, x1
Dim Unlock1 As String
hexno1 = A & B & C
For x1 = 1 To Len(hexno1) Step 2
Next
Unlock1 = CLng("&h" & hexno1)
'Generate the second part of the Registration Code
Dim hexno2, x2
Dim Unlock2 As String
hexno2 = D & E & F & G & H & I & J & K
For x2 = 1 To Len(hexno2) Step 2
Next
Unlock2 = CLng("&h" & hexno2)
'Generate the Registration Code
'Splits the second part in two
'4 digits then the rest
L = Mid(Unlock2, 1, 4)
M = Mid(Unlock2, 5, 20)
Code2 = Unlock1 & "-" & L & "-" & M
End Sub

Prvo dimenzionisanje variabli
dim a,b,c, d itd
Umjesto napr Dim esto(brojMem)
Onda tu imaju i dvije petlje koje nista ne rade.
For x1 = 1 To Len(hexno1) Step 2
' ovdje bi trebao biti neki kod ako hocemo da nam petlja nesto radi
'Ovako petlja se izvrti na prazno.
Next

Na kraju se generise registracioni kod a u stvari samo se datum i verzija ispisuju heksadecimalno.
Ne provjerava ni hardver niti bilo sta dugo sem datuma i verzije.

I na kraju ima dvije procedure unlocker1 i unlocker2 koje u stvari rade isto sto i ova gore procedura.
To mu je provjera dali je program registrovan.
Ima tu i onih 30 dana demo.

Ima na forumu uputstvo i sve procedure izradjene za registraciju programa sa provjerom diska ili mat ploce nesto nisam siguran ali svejedno imate dll
na forumu koji cita hardver pa mozete preko njega procitati sto zelite.