vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.

Hinweis:
Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen zu Tipps & Tricks und Workshops im vb@rchiv
Re: Einfacher Kopierschutz mit Online-Aktivierung 
Autor: Tausch
Datum: 09.05.12 13:45

so sieht es momentan aus.

Function Hex(ByVal I As Integer) As String
        Dim S As String
        S = Conversion.Hex(I)
        While S.Length < 8
            S &= "0"
        End While
        Return S
    End Function
    Function GetHash() As String
        Dim H As String = ""
        H &= Hex(My.Computer.Info.InstalledUICulture.GetHashCode)
        H &= Hex(My.Computer.FileSystem.GetDriveInfo(Environ( _
          "SYSTEMDRIVE")).TotalSize.GetHashCode)
        H &= Hex(My.Computer.Info.OSFullName.GetHashCode)
        H &= Hex(My.Computer.Info.OSPlatform.GetHashCode)
        H &= Hex(My.Computer.Info.OSVersion.GetHashCode)
        H &= Hex(My.Computer.Info.TotalPhysicalMemory.GetHashCode)
        H &= Hex(My.Computer.Mouse.WheelExists.GetHashCode)
        H &= Hex(My.User.Name.GetHashCode)
        H &= Hex(My.User.IsAuthenticated.GetHashCode)
        H &= Hex(My.User.CurrentPrincipal.Identity.Name.GetHashCode)
        H &= Hex(Environ("PROCESSOR_ARCHITECTURE").GetHashCode)
        H &= Hex(Environ("SYSTEMROOT").GetHashCode)
        H &= Hex(Environ("NUMBER_OF_PROCESSORS").GetHashCode)
        H &= Hex(My.Computer.Registry.LocalMachine.OpenSubKey( _
          "HARDWARE\DESCRIPTION\System\CentralProcessor\0\").GetValue( _
          "~MHZ").GetHashCode)
        'H &= Hex(My.Computer.Registry.LocalMachine.OpenSubKey( _
        ' "HARDWARE\DESCRIPTION\System\BIOS\").GetValue( 
        ' "SystemManufacturer").GetHashCode)
        H &= Hex(H.GetHashCode)
        Return (LCase(H))
    End Function
 
Function KeyLen() As Integer
        Dim P() As Byte, Z As Integer
        P = My.Computer.FileSystem.ReadAllBytes(Application.ExecutablePath)
        Z = 0
        For I As Integer = 0 To 127
            Z += 1
            Z += P(I + 128)
        Next
        Return (Z * 8)
    End Function
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        Dim P() As Byte, C As String, X() As Byte, Z As Integer
        P = My.Computer.FileSystem.ReadAllBytes(Application.ExecutablePath)
        ReDim X(KeyLen() \ 8)
        C = GetHash()
        Z = 0
        For I As Integer = 0 To 127
            X(Z) = P(I) Xor Asc(C(I))  <-- FEHLER KOMMT JETZT HIER
            Z += 1
            Randomize()
            For J As Integer = Z To Z + P(I + 128)
                X(J) = CInt(Rnd() * 254)
            Next
            Z += P(I + 128)
        Next
        If System.IO.Directory.Exists("C:\NCLU") = False Then
            System.IO.Directory.CreateDirectory("C:\NCLU")
        End If
        My.Computer.FileSystem.WriteAllBytes("c:\NCLU\key.lic", X, False)
    End Sub

habe den Fehler behoben, naja man kennt das sprichwort ja mit user und bildschirm. trotzdem vielen dank


Beitrag wurde zuletzt am 09.05.12 um 14:01:18 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Workshop 119: Einfacher Kopierschutz mit Online-Aktivierung15.875TZollo07.10.10 14:13
Re: Einfacher Kopierschutz mit Online-Aktivierung10.293NiWa09.10.10 13:23
Re: Einfacher Kopierschutz mit Online-Aktivierung9.873+++MaRuSo+++21.11.10 06:50
Re: Einfacher Kopierschutz mit Online-Aktivierung9.670ModeratorRalfE21.11.10 17:05
Re: Einfacher Kopierschutz mit Online-Aktivierung9.568NiWa21.11.10 19:25
Re: Einfacher Kopierschutz mit Online-Aktivierung9.671+++MaRuSo+++18.12.10 10:40
Re: Einfacher Kopierschutz mit Online-Aktivierung9.444+++MaRuSo+++18.12.10 10:34
Re: Einfacher Kopierschutz mit Online-Aktivierung9.372NiWa18.12.10 10:58
Re: Einfacher Kopierschutz mit Online-Aktivierung9.394BasicOpa04.03.11 11:37
Re: Einfacher Kopierschutz mit Online-Aktivierung9.300NiWa24.05.11 20:55
Re: Einfacher Kopierschutz mit Online-Aktivierung9.111vbarchiv_user20.07.11 11:52
Re: Einfacher Kopierschutz mit Online-Aktivierung8.808NiWa20.07.11 14:44
Re: Einfacher Kopierschutz mit Online-Aktivierung8.847pnrooob02.09.11 20:11
Re: Einfacher Kopierschutz mit Online-Aktivierung8.913pnrooob02.09.11 20:30
Re: Einfacher Kopierschutz mit Online-Aktivierung8.803NiWa02.09.11 23:44
Re: Einfacher Kopierschutz mit Online-Aktivierung8.711pnrooob03.09.11 12:03
Re: Einfacher Kopierschutz mit Online-Aktivierung8.720pnrooob03.09.11 12:50
Re: Einfacher Kopierschutz mit Online-Aktivierung8.680NiWa03.09.11 14:42
Re: Einfacher Kopierschutz mit Online-Aktivierung8.788pnrooob03.09.11 16:11
Re: Einfacher Kopierschutz mit Online-Aktivierung8.725NiWa03.09.11 19:27
Re: Einfacher Kopierschutz mit Online-Aktivierung8.800pnrooob04.09.11 12:04
Re: Einfacher Kopierschutz mit Online-Aktivierung8.698derdieter31.01.12 00:20
Re: Einfacher Kopierschutz mit Online-Aktivierung8.686NiWa31.01.12 07:11
Re: Einfacher Kopierschutz mit Online-Aktivierung8.634derdieter31.01.12 09:21
Re: Einfacher Kopierschutz mit Online-Aktivierung8.403derdieter31.01.12 09:32
Re: Einfacher Kopierschutz mit Online-Aktivierung8.586derdieter31.01.12 12:15
Re: Einfacher Kopierschutz mit Online-Aktivierung8.547NiWa31.01.12 12:31
Re: Einfacher Kopierschutz mit Online-Aktivierung8.524derdieter31.01.12 13:11
Re: Einfacher Kopierschutz mit Online-Aktivierung8.505derdieter31.01.12 13:14
Re: Einfacher Kopierschutz mit Online-Aktivierung8.493derdieter31.01.12 13:40
Re: Einfacher Kopierschutz mit Online-Aktivierung8.360NiWa31.01.12 13:50
Re: Einfacher Kopierschutz mit Online-Aktivierung8.300derdieter31.01.12 13:52
Re: Einfacher Kopierschutz mit Online-Aktivierung8.484derdieter31.01.12 22:18
Re: Einfacher Kopierschutz mit Online-Aktivierung8.421NiWa31.01.12 22:40
Re: Einfacher Kopierschutz mit Online-Aktivierung8.326derdieter31.01.12 23:05
Re: Einfacher Kopierschutz mit Online-Aktivierung8.252Glubschi4301.04.12 23:28
Re: Einfacher Kopierschutz mit Online-Aktivierung8.186NiWa01.04.12 23:39
Re: Einfacher Kopierschutz mit Online-Aktivierung8.179Glubschi4302.04.12 11:11
Re: Einfacher Kopierschutz mit Online-Aktivierung8.273derdieter03.05.12 23:08
Re: Einfacher Kopierschutz mit Online-Aktivierung8.149NiWa03.05.12 23:22
Re: Einfacher Kopierschutz mit Online-Aktivierung8.119Tausch09.05.12 13:32
Re: Einfacher Kopierschutz mit Online-Aktivierung8.159NiWa09.05.12 13:40
Re: Einfacher Kopierschutz mit Online-Aktivierung8.190Tausch09.05.12 13:45
Re: Einfacher Kopierschutz mit Online-Aktivierung8.200derdieter03.05.12 23:34
Re: Einfacher Kopierschutz mit Online-Aktivierung8.226NiWa03.05.12 23:39
Re: Einfacher Kopierschutz mit Online-Aktivierung8.077calypso01.06.12 12:30
Re: Einfacher Kopierschutz mit Online-Aktivierung8.060NiWa01.06.12 20:52
Re: Einfacher Kopierschutz mit Online-Aktivierung8.186calypso02.06.12 18:30
Re: Einfacher Kopierschutz mit Online-Aktivierung7.973calypso13.08.12 17:14
Re: Einfacher Kopierschutz mit Online-Aktivierung7.883NiWa13.08.12 18:42
Re: Einfacher Kopierschutz mit Online-Aktivierung8.011calypso14.08.12 06:28
Re: Einfacher Kopierschutz mit Online-Aktivierung7.971calypso17.08.12 08:15

Sie sind nicht angemeldet!
Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel