Program za zastitu aplikacije od kopiranja

Program za zastitu aplikacije od kopiranja 23.09.2007. u 13:57 · pre 232 meseca #1

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

Potpis

rgdrajko

Zastita od kopiranja.zip21.3k

Re: Program za zastitu aplikacije od kopiranja 23.09.2007. u 14:48 · pre 232 meseca #2

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

Re: Program za zastitu aplikacije od kopiranja 23.09.2007. u 15:32 · pre 232 meseca #3

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

Potpis

rgdrajko

Re: Program za zastitu aplikacije od kopiranja 23.09.2007. u 18:16 · pre 232 meseca #4

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???

Re: Program za zastitu aplikacije od kopiranja 25.09.2007. u 00:58 · pre 232 meseca #5

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

Potpis

HomePage http://www.eurora3d.com

Re: Program za zastitu aplikacije od kopiranja 25.09.2007. u 17:31 · pre 232 meseca #6

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......

Re: Program za zastitu aplikacije od kopiranja 27.09.2007. u 22:33 · pre 232 meseca #7

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

Potpis

rgdrajko

Forum kao aplikacija na telefonu

Srodne teme