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 1127 korisnika na forumu :: 110 registrovanih, 10 sakrivenih i 1007 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 15694 - dana 01 Feb 2026 12:23

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 8u47, abramac, Ailton, akrep, anbeast, Apok, Aska, Asteker, baltazar01, Bob.Rock, Boban0312, bobo85, Bojcca, Boris BM, BrusLi, Chainsaw, cinoeye, cojapop, Comyymoc, cyprus, Daniluska, DM1994, duro1990duro, dusan.l, dushan, Dzoni90, Džekson, eagle.rs, Ercomero, FOX, gale48, galerija, Glauber, hrkaz, ivan_8282, Johny Sack, Kajzer Soze, Kenanjoz, Kruger, Kudun, laki_bb, Leonov, Levi, Lieutenant, Lobo, Lucije Kvint, M74AB3, Mackomen, maiden6657, Marko00, markolopin, mat, mb1213, Mic, mikrimaus, milanpb, Mili026, MiljanXD, mishkooo, mladen.zovko, mnn2, mrm, MrNo, Mzee, Ndsk, Ne doznajem se u oružje, Nebojsa81, nemkea71, Niki1995, nikolapetkovic, Otto Grunf, Papadubi, pein, Piklik, pisac12, PMsnow, Poof, Posmatrac77OKB, Prečanin30, proka89, RD84, rinkomadu, royst33, S2M, samocitam, Sinisa76, suputboy, synergia, Tandrkalo, tomo2, Toper, tuf, uruk, user24, Valter071, Vanja_03, vathra, Vatreni Zmaj, Velizar, vjetar, Vlada78, Vlado82, zbic, Zec, zemljanin, ZlatniRez, zoran-ruma, Zoran1959, 1107, 223223