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 1101 korisnika na forumu :: 115 registrovanih, 10 sakrivenih i 976 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: 015, 6footboy, 9k38, A.R.Chafee.Jr., akrep, Apok, avalon, Ba4e, Bane san, Barista, Baždaranac, Belac91, blatruc82, Bobrock1, Bojcca, bojcistv, brufen, BrusLi, bukefal, burevesnik, Chainsaw, CikaKURE, Coficab, Dambi, Darth Malak, deki1001, Desmond, dnevnasoba, Dogma21, Dolinc, doom83, Dorcolac2, draganl, Dungorth, dusan.l, Dzambas, entriun, Feller, foka106, FOX, gale48, GeoM, Georgius, GH69, Grandmaster1, Hardenberg, Ilija Grubor, ivanR164, Jaz, Jeremiah, Jester, JOntra, kihot, Kobrim, kolle.the.kid, kori, krca73, LostInSpaceandTime, lucianovercetti, madza, mainstream, Makarid, mercedesamg, mikrimaus, Milometer, Milos ZA, miodrag, Ne doznajem se u oružje, nebkv, nekdo, neko iz mase, nemkea71, nevjerna beba, Niki2024, Orc, ostoja, panonski mornar, Panter, PedjaDikovic, pein, petar0301, Petrusci, pisac12, Pohovani_00, Povratak1912, promajauglavi, Pururin, RD84, sabros, Schmidt, shone34, sluga, sova72, srđan, sspp, Stanlio, strela, synergia, t84dar, taomaster, Teodor60, tm, troki1971, Tvrtko I, vathra, VBoss, vjetar, Vlada78, voja64, Wehicle, wizzardone, Zrcalo, zubri, zzeljko, 79693