Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Förhindra otillåtet användande av VB-program.

Postades av 2001-05-14 08:34:00 - Mikael Gustavsson, i forum operativ/teknik, Tråden har 11 Kommentarer och lästs av 1286 personer

Jag skall skicka mitt program till en annan användare.
Programmet skall köra i ett lokalt lan, med fasta IP-adresser (inte DHCP).
Min tanke är att lägga en funktion i programmet som läser maskinens IP-adress. De som skall använda programmet, får rapportera sin IP-adress till mig. Med hjälp av en liten formel, räknar jag sedan ut ett 'serienummer' som är IP-adress-beroende. Användaren måste sedan ange detta 'serienummer' i en lokal databas där programmet skall köras, alternativt lägga det i registret.
Vid fel angivet 'Serienummer', kommer programmet inte att starta.
Är detta ett vettigt sätt att lösa problemet?
Om ja, var i registret hittar jag aktuell IP-adress?
(Kan man i registret hitta nätverkskortets mac-adress, så blir det ju ännu bättre.)

Om nej, förslag på bättre lösning.

/ Mikael


Svara

Sv: Förhindra otillåtet användande av VB-program.

Postades av 2001-05-15 07:55:00 - Eventine Elessendil

Ett sätt som används av bland annat Bentley är att ta datornamnet och lägga in det i en licensfil som de själva distribuerar. I denna fil finns då inbakat datornamnet och hur lång tid licensen skall gälla plus en del annat (har inte orkat bemöda mig att knäcka än).
Nackdelen är att det är lätt att ändra en annan dators namn till samma och på så vis "stjäla" licensen, men å andra sidan begränsar man licenstiden och skickar ut nya filer till enbart dem som har registrerat sig.
Om det är rätt för dig vet jag inte, men en alternativ lösning i alla fall.
Lycka till. :)
/EE


Svara

Sv: Förhindra otillåtet användande av VB-program.

Postades av 2001-05-16 08:44:00 - Mikael Gustavsson

Att använda datornamnet verkar inte vara bra. Alldeles för lätt att ändra.
Finns det inte något annat man kan läsa i registret som är unikt, och inte går så lätt att ändra?
Exvis IP adress, 'ProcessorID' eller liknande.

/ Mikael


Svara

Sv: Förhindra otillåtet användande av VB-program.

Postades av 2001-05-16 11:10:00 - Gert Lindström

Hårddiskens ID nummer är ganska bra.
En nackdel är att om användaren formaterar om hårdisken får den ett nytt ID nummer och då gäller ju inte licensnyckeln längre.


Svara

Sv: Förhindra otillåtet användande av VB-program.

Postades av 2001-05-16 11:16:00 - Mikael Gustavsson

Hur hittar jag Hårddiskens ID??

/ Mikael


Svara

Sv: Förhindra otillåtet användande av VB-program.

Postades av 2001-05-16 14:07:00 - Dan Persson

Men varför inte använda IP-numret. Om det nu är fast så är det ju unikt...

MvH Dan "DaPe" Persson


Svara

Sv: Förhindra otillåtet användande av VB-program.

Postades av 2001-05-16 14:13:00 - Mikael Gustavsson

IP-adressen har jag nog hittat (hexkodad i winNT), men den ligger under en nyckel som är samma som nätverkskortets namn, dvs olika nycklar beroende på nätverkskortmodell.

Om det dessutom finns mer än ett nätverkskort, vilket skall jag använda?

En annan nackdel med IPnumret är om man skulle använda svartnät eller DHCP, så fungerar det inte.

Något annat unikt vore bra att hitta.
Exvis HårdDiskID:t. Men var finns det i registret? Eller kan man nå det via något API?

/ Mikael



Svara

Sv: Förhindra otillåtet användande av VB-program.

Postades av 2001-05-19 08:56:00 - Gert Lindström

I en modul:
Private Declare Function GetVolumeInformation Lib "kernel32" Alias _
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal _
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long
Public Function GetVolSerialNum(DriveRoot As String) As String
Dim lVolSerNum As Long
Dim sTemp1 As String
Dim sTemp2 As String
Dim lretVal As Long

sTemp1 = Space(256)
sTemp2 = Space(256)

lretVal = GetVolumeInformation(DriveRoot, sTemp1, Len(sTemp1), _
lVolSerNum, 0, 0, sTemp2, Len(sTemp2))

GetVolSerialNum = Hex(lVolSerNum)
End Function


I en form
Private Sub Form_Load()
Debug.Print GetVolSerialNum("C:\")
End Sub


Lycka till


Svara

Sv: Förhindra otillåtet användande av VB-program.

Postades av 2001-05-20 10:09:00 - Mikael Gustavsson

Stort TACK.
Jag kommer i programmet att läsa in serienumret, behandla det enligt en förutbestämd formel.
När programmet startas kommer det att se om en giltig 'CheckSumma' finns på rätt ställe i registret eller ev i en databas som är kopplad till programmet. Om rätt checksumma finns, startar programmet.
Om inte, kommer det upp en msgbox med hdd:ns serienummer. Den som installerar programmet meddelar mig detta serienummer. Jag räknar då ut checksumman enligt samma formel som programmet. Den som installerat programmet måste då lägga denna checksumma i databasen eller i registret. Sedan kommer programmet att starta.
Jag tycker detta är ett ganska bra sätt att ha kontroll över att programmet inte kopieras till flera datorer.
Vad tycker ni?

/ Mikael


Svara

Sv: Förhindra otillåtet användande av VB-program.

Postades av 2001-05-27 15:05:00 - Fredrik Granvik

mm.. vet inte riktigt om det stämmer, men jag har för mig att alla CPU:er har ett unikt serienummer.. kan juh kanske vara en idé att använda det.. vet dock inte om det är mycket jobb.. ;)

problem blir det juh iofs om användaren byter CPU.. :P


Svara

Sv: Förhindra otillåtet användande av VB-program.

Postades av 2001-05-27 23:39:00 - Frans Englich

angående framtagandet av ip adress.. finns det inte något api som kan göra det åt en? Hur blir det då med flera nic's?

/Frans


Svara

Sv: Förhindra otillåtet användande av VB-program.

Postades av 2001-05-30 22:08:00 - Kjell Gustavssson

För att plocka fram ip-adresser på en dator hittar ni allt ni behöver veta på denna länken: http://www.mvps.org/vbnet/

Kjell


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 710
27 958
271 751
648
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies