MyCity » Visual Studio -> Visual Basic » Izdvojeno: Zastita programa od kopiranja

Zastita programa od kopiranja

Napisano na dan: 23.9.2007

Zastita programa od kopiranja
Sledeća strana Pagination

Idi na vrh

Poslao: 23 Sep 2007 02:21
Idi na vrh
offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

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:

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:
[Link mogu videti samo ulogovani korisnici]



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.

MyCity » Visual Studio -> Visual Basic » Izdvojeno: Zastita programa od kopiranja

Ko je trenutno na forumu
 

Ukupno su 2260 korisnika na forumu :: 113 registrovanih, 4 sakrivenih i 2143 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 6018 - dana 19 Dec 2025 13:41

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 100ka, 6.5lapua, Adaminho1985, aramis s, Ares12356, Avalon015, Avladi, awathorn, babaroga, Beardonitch, bigfoot, Bobrock1, Bombona, Boris BM, BORUTUS, cemix, cifra, Czrweni, del boy, Despot Đurađ, Dexlex, djile1, djuradj, Dovla 1980, DovlaODR, Draganeli, drpera, due, dusan.l, Duschi, Dzuki, eagle.rs, ElvisP, Ercomero, Feller, Fog of War, Futog 74, ghoost, gorval, Hans Gajger, Hitri, Inner-Cell, Jakonjveliki, Jaxupa, jeen yuhs, Jeremiah, joca83, Kapetan Hadok, Kawasaki1000, knutveliki, komsija1, Kosmos Banja Luka, Koča, krkalon, LUDI, luka35, Macalone, mane123, max power, Metanoja, mig21, mikki jons, mikrimaus, Milan Miscevic, MiljanXD, Milo97, Milometer, miodrag, Mis uz pusku, Misa63, Mićko, Mldo, mustangkg, narandzasti, Naum T, nebkv, Nemanja.M, neutrino, nevjerna beba, novator, operniki, Panter, pceklic, pein, PlayerOne, Povratak1912, RajkoB, rakivan, Romuluss, rovac, Rumun2000, sap, sasa87, Sharpshooter, Slingshot, Snorks, spalev, sparkie, Steeeefan, Str2022, strn, Su 57, The_new_Statesman, Titan, tvlada, vaci, vathra, vazduh, veljkovicdani, vjetar, vladom6, Voice1, zeka013