Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Program za zastitu aplikacije od kopiranja

[es] :: Visual Basic 6 :: Program za zastitu aplikacije od kopiranja

[ Pregleda: 4244 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Program za zastitu aplikacije od kopiranja23.09.2007. u 12:57 - pre 201 meseci
Evo kompletan program za zastitu aplikacije 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 u ovom forumu

Evo dela koda iz prikljucenog zip fajla:
Code:

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


[Ovu poruku je menjao Aleksandar Ružičić dana 23.09.2007. u 18:58 GMT+1]
rgdrajko
Prikačeni fajlovi
 
Odgovor na temu

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 4901
*.dynamic.sbb.co.yu.

Jabber: xfiles@elitesecurity.org


+638 Profil

icon Re: Program za zastitu aplikacije od kopiranja23.09.2007. u 13:48 - pre 201 meseci
Iako svakako služe svrsi, zaštite zasnovane na na GetVolumeInformation() su jako lake za razbijanje, a ponekad su i nepraktične.

1) Svaki FORMAT particije (radi reinstaliranja Windowsa, npr) uslovljava i promenu broja particije i tada program više ne radi.
2) Usaglašavanje oznake particije sa oznakom na računaru koji ima validan licencni ključ uslovljava da program radi.

Bolje zaštite se sprovode:
- čitanjem hardverskog broja HD-a
- čitanjem broja mrežne kartice
- čitanjem broja BIOS-a
- čitanjem broja procesora
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Re: Program za zastitu aplikacije od kopiranja23.09.2007. u 14:32 - pre 201 meseci
Citat:
X Files: Iako svakako služe svrsi, zaštite zasnovane na na GetVolumeInformation() su jako lake za razbijanje, a ponekad su i nepraktične.

1) Svaki FORMAT particije (radi reinstaliranja Windowsa, npr) uslovljava i promenu broja particije i tada program više ne radi.
2) Usaglašavanje oznake particije sa oznakom na računaru koji ima validan licencni ključ uslovljava da program radi.

Bolje zaštite se sprovode:
- čitanjem hardverskog broja HD-a
- čitanjem broja mrežne kartice
- čitanjem broja BIOS-a
- čitanjem broja procesora


Pa sve ja to znam, ali to sto si ti naveo mnogo sputava kupca programa i uvek zahteva javljanje pri svakoj novoj instalaciji programa, sto je cesto zamorno, zar ne?
Ovo je primer program koji sam uradio pre 10-ak godina. A ako cemo iskreno najbolja zastita se postize kada se uradi program za zastitu slicno programu za virus, kao sto je to uradjeno kod mnogih profesionalnih programa. Pozdrav, Rajko
rgdrajko
 
Odgovor na temu

Oblivion89
Milan Pantic
Smederevska Palanka

Član broj: 128963
Poruke: 4
*.vdial.verat.net.



Profil

icon Re: Program za zastitu aplikacije od kopiranja23.09.2007. u 17:16 - pre 201 meseci
Bolje zaštite se sprovode:
- čitanjem hardverskog broja HD-a
- čitanjem broja mrežne kartice
- čitanjem broja BIOS-a
- čitanjem broja procesora
Dali mozes da postavis neki kod koi iskoriscava ovaj vid yastite???
 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
195.252.105.*



+7 Profil

icon Re: Program za zastitu aplikacije od kopiranja24.09.2007. u 23:58 - pre 200 meseci
Pogledaj ovaj kod http://www.elitesecurity.org/t257173-0#1586130
Iscitava nesto od ovog sto si napisao.
Inace , moje misljenje , na zastitu ne treba obracati toliko paznje (osim ako nemas neku ekstra dobru stvar ili zastita mora da bude dobra iz nekih drugih razloga).
Vise paznje treba posvetiti tome da se program uopste koristi & prodaje
A kad je nesto dobro to se pre ili kasnije iskrekuje...
Pozdrav


[Ovu poruku je menjao Eurora3D Team dana 25.09.2007. u 12:28 GMT+1]
 
Odgovor na temu

Milan89SD
S. Palanka

Član broj: 156007
Poruke: 1
*.vdial.verat.net.



Profil

icon Re: Program za zastitu aplikacije od kopiranja25.09.2007. u 16:31 - pre 200 meseci
Ma pitam onako, interesujeme. Inace da neko nezna slucajno kako ide kod za Stand by? Ja sam to imao negde nego ne znam gdemije. A hitno mi treba......
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Re: Program za zastitu aplikacije od kopiranja27.09.2007. u 21:33 - pre 200 meseci
evo na adresi: http://www.visualbasic.happyco...ndows_and_Controls/code46.html

Code:
Turning the Computer Screen-Monitor on and off 

To switch a monitor on/off or to standby, use the following code. Note, this may
not work on some NT machines.

Private Const SC_MONITORPOWER = &HF170&
Private Const SC_SCREENSAVE = &HF140&
Private Const WM_SYSCOMMAND = &H112
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'Purpose     :  Switches the monitor on or off
'Inputs      :  bPowerOn            If True, turns the monitor on
'                                   else turns to monitor off
'               [lHwnd]             VB: The form handle OR
'               [sFormCaption]      VBA: The caption of the form calling the
'                                   routine, can be Me.Caption or Application.Caption


Sub MonitorPower(bPowerOn As Boolean, Optional lHwnd As Long, Optional sFormCaption As String)
    Dim lState As Long
    If lHwnd = 0 Then
        lHwnd = FindWindowA(vbNullString, sFormCaption)
    End If
    If bPowerOn Then
        lState = -1
    Else
        lState = 2
    End If
    Call SendMessage(lHwnd, WM_SYSCOMMAND, SC_MONITORPOWER, lState)
End Sub


'Purpose     :  Changes the monitor standby mode
'Inputs      :  bStandBy            If True, sets the monitor to Stand by
'                                   else turns the Stand by off
'               [lHwnd]             VB: The form handle OR
'               [sFormCaption]      VBA: The caption of the form calling the
'                                   routine, can be Me.Caption or Application.Caption


Sub MonitorStandby(bStandBy As Boolean, Optional lHwnd As Long, Optional sFormCaption As String)
    Dim lState As Long
    If lHwnd = 0 Then
        lHwnd = FindWindowA(vbNullString, sFormCaption)
    End If
    If bStandBy Then
        lState = 1
    Else
        lState = -1
    End If
    Call SendMessage(lHwnd, WM_SYSCOMMAND, SC_MONITORPOWER, lState)
End Sub

rgdrajko
 
Odgovor na temu

[es] :: Visual Basic 6 :: Program za zastitu aplikacije od kopiranja

[ Pregleda: 4244 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.