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

Najviše korisnika na forumu ikad bilo je 19602 - dana 30 Mar 2026 00:11

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 015, 4. Ozrenska, _Rade, ALEKSICMILE, Alexandar-1973, AMCXXL, Apok, ArchaBasha, Arsenije, Asparagus, Asteker, black venom, bobo85, Bobrock1, Bojan198527, Boroš, borya90, Brankojle, CCCP, cifra, Cirkon, Colt D, croato, Deki Duga Devetka, deLacy, Dimitrije Paunovic, dozorni, DrNeoCortex, dusan.l, dushkomkd, dzada, Dzuki, ElGenius, Feller, foksmolder, goran.vvv, GT, Hans Gajger, hyla, Igorkg77, Igritelj, jalos, Joint Chief, jopicus, Jose, Jovan.D, Kajzer Soze, Kaponi, KizJ, kuntalo, Kupresko polje, lacko, Mackomen, Mahovljani, markolopin, markusx, marsi, MaschinenPistole, megadeki, mercedesamg, Mercury, Mig 29, Miki 24pbr, milenko crazy north, miodrag, Mićko, Mrav Obrad, nebidrag, Neutral-M, nevjerna beba, nikola013, Nikola9223, nuke92, pisac12, Podljub, Radio operater, raster12, Ray1973, Rebel Frank, royst33, sale_bih, Samo gledam, SamoGledam, Sharpshooter, shlauf, skok, slono, Solunac na steroidima, sslay, sspp, StalniPromatrač, stegonosa, steksi, Stevan2026, Stoilkovic, stokssone, Str2022, Tasman0081, Toper, TRZH92, vathra, vensla, vidra1, virked, vlad4, Vojo06, VPV, zdrebac, Zerajic, zexon