[es] - Kako shtitite svoje aplikacije od nezeljenog kopiranja, tj. kradje aplikacija???

ilekicika
dipl pravnik

Član broj: 257869
Poruke: 34
..178.212.adsl.dyn.beotel.net.

Profil

Re: Kako shtitite svoje aplikacije od nezeljenog kopiranja, tj. kradje aplikacija???

^{15.10.2010. u 00:30 - pre 164 meseci}

Pogledao sam sve opcije o serijskim brojevima HD kao i drugim karakteristikama koje ste mi dali. Pomogli ste mi da donesem odluku u kom pravcu da rešim zadatak. Odlucio sam da kompletan serijski broj sa slovinim oznakama pretvorim u number, jer ono što je meni bitno jeste da ću uz pomoć tog numeričkog izraza moći da postavim drugi broj koji će biti regisracioni, a ovaj prvi retko može biti isti na dva kompa. U suštini završava posao. Lutajući po temama uspeo sam da pronađem način kako da serijski broj u kome se nalaze i slovne oznake postavim u numerički izraz evo primera. Ako neko ima bolje rešenje dobro došlo je.

Public Function HDBroj(ByVal inTekst As String) As String
Dim varInput_Value As Variant
Dim varResult As Variant

HDBroj = ""
If inTekst = "" Then Exit Function

ObradiSerBroj inTekst
If Not IsNumeric(inTekst) Then Exit Function

varInput_Value = CDec(inTekst)
varResult = CDec(varInput_Value)
varResult = Round(varResult, 2)
varResult = Round(varResult)

HDBroj = CStr(varResult)
If Len(HDBroj) = 1 Then
HDBroj = "0" & HDBroj
End If

End Function

Function ObradiSerBroj(ByRef inTekst As String)
Dim Slova
Dim Vrednosti

Dim intBrojac As Integer
Dim intBrojac2 As Integer
Dim strTMP As String

inTekst = UCase(inTekst)
strTMP = ""

Slova = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _
"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", _
"K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", _
"U", "V", "W", "X", "Y", "Z")

Vrednosti = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _
"10", "11", "12", "13", "14", "15", "16", "17", "18", "19", _
"20", "21", "22", "23", "24", "25", "26", "27", "28", "29", _
"30", "31", "32", "33", "34", "35")

For intBrojac = 1 To Len(inTekst)
For intBrojac2 = 0 To UBound(Slova)
If Mid(inTekst, intBrojac, 1) = Slova(intBrojac2) Then
strTMP = strTMP & Vrednosti(intBrojac2)
End If
Next
Next

inTekst = strTMP

End Function

I.L.

Odgovor na temu

banem
Kikinda

Član broj: 16619
Poruke: 583
*.dynamic.sbb.rs.

+15 Profil

Re: Kako shtitite svoje aplikacije od nezeljenog kopiranja, tj. kradje aplikacija???

^{15.10.2010. u 00:51 - pre 164 meseci}

EDIT: Izvinjavam se, sad vidim da je neko već postavio ovo
----

Hm, ima i kraće. :)

Function ShowDriveSN(drvpath)
Dim fs, d, s, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
ShowDriveSN = Abs(d.SerialNumber)
End Function

Pozdrav,
Branislav

Odgovor na temu

Zoran.Eremija
Zoran Eremija
SYSTEM ANALYST
Freelancer
Beograd

Član broj: 251342
Poruke: 855
..106.109.adsl.dyn.beotel.net.

Sajt: zoraneremija.wix.com/erem..

+47 Profil

Re: Kako shtitite svoje aplikacije od nezeljenog kopiranja, tj. kradje aplikacija???

^{15.10.2010. u 09:17 - pre 164 meseci}

Odavno sam odustao od teme zastite. Na tome su pali mnogo veci, npr. svojevremeno jedna od najvecih racunarskih firmi DEC (Digital Equipment Corporation http://en.wikipedia.org/wiki/Digital_Equipment_Corporation) je pala na temu zastite svojih softvera. Microsoft je poucen njihovim iskustvom promenio politiku zastite intelektualnog dela. Od tada sve sto sam uradio davao sam u 150% otvorenom obliku i veoma lepo se osecam.

Znaci od zlonamernih je tesko se stititi, tako sam pre nekoliko godina u nameri identifikacije racunara na kom je instalisan neka front end aplikacija zeleo, da vec pomenute metode u ovoj temi, iskoristim Serijski broj diska, doziveo totalni "SOK" i to iskustvo izneo u ovoj temi http://www.elitesecurity.org/t391848-0#2525153, verovali ili ne...:-) :-(

http://zoraneremija.wix.com/eremijacv

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: Kako shtitite svoje aplikacije od nezeljenog kopiranja, tj. kradje aplikacija???

^{15.10.2010. u 10:26 - pre 164 meseci}

Slažem se sa Zoranom da za dobrog majstora nema dovoljno moćne brave. Odnos između realne cene aplikacije na tržištu i utrošenog vremena na implementiranju sigurnosnog sistema je prava mera. Nije baš dobro ni držati vrata kuće otvorena kad domaćin nije tu. To je otvoreni poziv za svakojake goste. Ako se malo potrudite, prosečni provalnik će odustati. Oni jako dobri, koji to rade iz koristi (ne iz egocentričnih pobuda kao što su izazov i avanturizam), vagaju da li im se napor isplati. Glavna maksima kod zaštite je Učiniti stepen naprezanja napadača većim od koristi koju on može da ostvari.

Što se Microsofta tiče, njihova je politika da određeni procenat prodaju, po cenu da i više od pola bude piratizovano, samo da ostanu lideri na tržištu. Mislim da će se, vrlo ubrzo, sav softver uključujući i OS koristiti preko neta, a intelektualna svojina će biti namirivana iz prodaje pristupa putem internet provajdera.

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

banem
Kikinda

Član broj: 16619
Poruke: 583
*.adsl.eunet.rs.

+15 Profil

Re: Kako shtitite svoje aplikacije od nezeljenog kopiranja, tj. kradje aplikacija???

^{15.10.2010. u 11:22 - pre 164 meseci}

Da, tačno, ali se aplikacija ne štiti od znalca, već od duduka tutumraka koji kad dobije pristup dizajnu svakakva čuda zna da napravi. Tu kombinacija mde (accde) + šifra na vba + autostart + custom interface + jedna mala custom zaštita jako pomaže. Ako to sve zaobiđe, onda i zaslužuje da priđe dizajnu. :)

Inače, nisam drveni advokat, ali to što pričaš nije politika Microsofta.

Pozdrav,
Branislav

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

Re: Kako shtitite svoje aplikacije od nezeljenog kopiranja, tj. kradje aplikacija???

^{15.10.2010. u 14:14 - pre 164 meseci}

Citat:

Od tada sve sto sam uradio davao sam u 150% otvorenom obliku i veoma lepo se osecam.

Potpisujem 100%.
Ovde nije bilo reci toliko o zastiti dizajna od destrukcije, nego o zastiti aplikacije od neovlascenog kopiranja. A zasto bih stitio aplikaciju od neovlascenog kopiranja? Da je neko ne ukrade i proda neovlasceno? Kome da proda? Kako da instalira i podesi sve kako treba?

Mene moze da zanima kako radi kod koji je napisao Getsbi ili Zoran (ili Banem, Trtko, Zonic, Small, Nikola iz Kragujevaca, Savke, BiloKoje, Vujkev, Catc22, izvinjavam se ako sam zabotravio nekoga, spisak bi bio predugacak), ali svakako necu uzeti celu aplikaciju i prodati je nekome. Svi majstori vec inace dele besplatno na forumima sta god hocete, nema sta da se ukrade, verujte mi. Zasto necu uzeti celu aplikaciju? Pa zato sto sam navikao da neke stvari radim na drugaciji nacin i jednostavno mi se cela postavka ne svidja, iako je sasvim dobra i sasvim dobro radi, cak i bolje nego nesto sto sam sam uradio. Tako rezonuje majstor - znaci majstor od masjtora nece ukrasti remek delo. Majstor ukrade znanje ili ideju, koje ionako dobijem na forumu, ovom ili nekom drugo, i ne kosta nista i ljudi sus recni da pomognu.

A neko ko nije majstor, ma moze da krade i gleda koliko hoce, moze i da proda i instalira sistem ako ume, ali nece umeti da ga pokrene.

Prema tome, vreme provedeno na ucenju kako da se zastiti remek delo od neovlacenog kopiranja je uzalud utroseno. No, ako neko ima vremena napretek, neka brate radi u tom smeru koliko hoce. Neko to radi iz ciste zabave ili da malo provezba mozak. I planinari se panju na planine bez nekog posebnog razloga i uzivaju u tome.

Odgovor na temu