Forum Sveta kompjutera  

Nazad   Forum Sveta kompjutera > Test Run > Programiranje

Programiranje Programski jezici, tehnike, alatke...

Odgovor
 
Alatke vezane za temu Vrste prikaza
Stara 23.9.2007, 1:55   #1
rgdrajko
Novi član
 
Član od: 18.9.2007.
Poruke: 22
Zahvalnice: 0
Zahvaljeno 5 puta na 4 poruka
Određen forumom VB Zastita programa od kopiranja

Evo kompletan program u Visual basicu za zastitu programa od kopiranja, uradjen preko XOR komande koja sifrira serijski broj diska sa nekim slovima npr . "rgdrajko". Ovo je sastavni deo programa "Autotestovi za polaganje vozackog ispita" ciji sam deo koda dao na ovom forumu.






Deo koda iz prikljucenog zip fajla sa kompletnim kodom:

Kod:
Public Sub SifriranjeSerijskogBrojaCD()
Dim sastserijskibrojCDdiskaod10cifara As String
Dim sifraod10cifara As String
Dim rezultat As Integer
Dim rezultatstring As String
Dim sifriraniseriskibrojCDdiskaodpreko20cifara As String

On Error GoTo greska
'slovoCD = Left(App.Path, 1)
slovoCD = Left(txtDisk.Text, 1)

decimalniserijskibrojCDdiska = GetSerialNumber(slovoCD + ":")
lblDecSerijskiBrojDiska.Caption = decimalniserijskibrojCDdiska

heksadecimalniserijskibrojCDdiska = Hex(decimalniserijskibrojCDdiska)
lblHexSerijskiBrojDiska.Caption = heksadecimalniserijskibrojCDdiska

sastserijskibrojCDdiskaod10cifara = heksadecimalniserijskibrojCDdiska & Left(decimalniserijskibrojCDdiska, 2)
lblsastserijskibrojCDdiskaod10cifara.Caption = sastserijskibrojCDdiskaod10cifara

sifraod10cifara = Chr(vbKeyR) & Chr(vbKeyG) & Chr(vbKeyD) & Chr(vbKeyR) & Chr(vbKeyA) & Chr(vbKeyJ) & Chr(vbKeyK) & Chr(vbKeyO) & Chr(vbKeyG) & Chr(vbKeyO)
lblSifraod10znakova.Caption = sifraod10cifara

'Sifriranje seriskog broja diska sa sifraod10cifara
sifriraniseriskibrojCDdiskaodpreko20cifara = ""
For n = 1 To 10
rezultat = Asc(Mid(sastserijskibrojCDdiskaod10cifara, n, 1)) Xor Asc(Mid(sifraod10cifara, n, 1))
rezultatstring = Hex(rezultat)
If Len(rezultatstring) < 2 Then
rezultatstring = "0" & Hex(rezultat)
End If
sifriraniseriskibrojCDdiskaodpreko20cifara = sifriraniseriskibrojCDdiskaodpreko20cifara & rezultat
Next n
lblsifriraniseriskibrojCDdiskaodpreko20cifara.Capt ion = sifriraniseriskibrojCDdiskaodpreko20cifara
Text1.Text = Mid(sifriraniseriskibrojCDdiskaodpreko20cifara, 1, 7)
Text2.Text = Mid(sifriraniseriskibrojCDdiskaodpreko20cifara, 8, 7)
Text3.Text = Mid(sifriraniseriskibrojCDdiskaodpreko20cifara, 15, 7)
Text4.Text = Mid(sifriraniseriskibrojCDdiskaodpreko20cifara, 22)

Exit Sub

greska:
lblDecSerijskiBrojDiska.Caption = ""
lblHexSerijskiBrojDiska.Caption = ""
lblsastserijskibrojCDdiskaod10cifara.Caption = ""
lblsifriraniseriskibrojCDdiskaodpreko20cifara.Capt ion = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Exit Sub
End Sub
Kompletan izvorni kod:
http://www.mycity.co.yu/Uploads/6285...0kopiranja.zip
Priloženi fajlovi
Tip fajla: zip Zastita programa od kopiranja.zip (21,3 KB, 170 puta viđeno)

Poslednja ispravka: rgdrajko (25.9.2007 u 1:54)
rgdrajko je offline   Odgovor sa citatom ove poruke
Sledećih 2 korisnika se zahvaljuje korisniku rgdrajko na korisnoj poruci:
3dM@niak (24.9.2007)
Stara 23.9.2007, 12:53   #2
VojaM
Ad Ministrator
 
Avatar korisnika VojaM
 
Član od: 19.8.2005.
Lokacija: Beograd, SK
Poruke: 7.281
Zahvalnice: 29
Zahvaljeno 3.040 puta na 1.544 poruka
Određen forumom Re: VB Zastita programa od kopiranja

Lepo je što si priložio deo programa. Nadam se da ćeš biti tu i da odgovoriš na poneko pitanje i razjasniš ponešto ako te ostali članovi budu pitali. Mislim da je ovako nešto baš neko skoro tražio.
VojaM je offline   Odgovor sa citatom ove poruke
Odgovor

Bookmarks sajtovi

Alatke vezane za temu
Vrste prikaza

Vaš status
Ne možete postavljati teme
Ne možete odgovarati na poruke
Ne možete slati priloge uz poruke
Ne možete prepravljati svoje poruke

BB kod: uključeno
Smajliji: uključeno
[IMG] kod: uključeno
HTML kod: isključeno


Slične teme
tema temu započeo forum Odgovora Poslednja poruka
OGame! Pridružite nam se! suzie Mrežne igre 603 18.3.2017 20:16
Zastita od kopiranja Ilke Aplikativni softver 4 27.1.2007 20:42


Sva vremena su po Griniču +2 h. Sada je 21:21.


Powered by vBulletin® verzija 3.8.7
Copyright ©2000–2019, vBulletin Solutions, Inc.
Hosted by Beograd.com