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:
https://www.mycity.rs/must-login.png



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 1062 korisnika na forumu :: 47 registrovanih, 7 sakrivenih i 1008 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., aramis s, Ben Roj, bigfoot, bojank, bokisha253, Brana01, Denaya, dragoljub11987, Duh sa sekirom, hyla, Ilija Cvorovic, Istman, ivica976, Jeremiah, Kubovac, Lele123, Leonov, Mad Serb, Marko Marković, mercedesamg, Mercury, Miki01, milenko crazy north, Milometer, MiroslavD, mkukoleca, Motocar, novator, oldtimer, pacika, Parker, pein, Prašinar, raketaš, royst33, ruseskij, Sančo, sasa87, uruk, vargas, vladaa012, vladas87, vukdra, zixmix, Žrnov, 79693