vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
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-Aktivierung13.697TZollo07.10.10 14:13
Re: Einfacher Kopierschutz mit Online-Aktivierung8.839NiWa09.10.10 13:23
Re: Einfacher Kopierschutz mit Online-Aktivierung8.318+++MaRuSo+++21.11.10 06:50
Re: Einfacher Kopierschutz mit Online-Aktivierung8.266ModeratorRalfE21.11.10 17:05
Re: Einfacher Kopierschutz mit Online-Aktivierung8.168NiWa21.11.10 19:25
Re: Einfacher Kopierschutz mit Online-Aktivierung8.140+++MaRuSo+++18.12.10 10:40
Re: Einfacher Kopierschutz mit Online-Aktivierung8.045+++MaRuSo+++18.12.10 10:34
Re: Einfacher Kopierschutz mit Online-Aktivierung8.015NiWa18.12.10 10:58
Re: Einfacher Kopierschutz mit Online-Aktivierung8.055BasicOpa04.03.11 11:37
Re: Einfacher Kopierschutz mit Online-Aktivierung7.903NiWa24.05.11 20:55
Re: Einfacher Kopierschutz mit Online-Aktivierung7.667vbarchiv_user20.07.11 11:52
Re: Einfacher Kopierschutz mit Online-Aktivierung7.459NiWa20.07.11 14:44
Re: Einfacher Kopierschutz mit Online-Aktivierung7.492pnrooob02.09.11 20:11
Re: Einfacher Kopierschutz mit Online-Aktivierung7.565pnrooob02.09.11 20:30
Re: Einfacher Kopierschutz mit Online-Aktivierung7.441NiWa02.09.11 23:44
Re: Einfacher Kopierschutz mit Online-Aktivierung7.315pnrooob03.09.11 12:03
Re: Einfacher Kopierschutz mit Online-Aktivierung7.377pnrooob03.09.11 12:50
Re: Einfacher Kopierschutz mit Online-Aktivierung7.356NiWa03.09.11 14:42
Re: Einfacher Kopierschutz mit Online-Aktivierung7.400pnrooob03.09.11 16:11
Re: Einfacher Kopierschutz mit Online-Aktivierung7.403NiWa03.09.11 19:27
Re: Einfacher Kopierschutz mit Online-Aktivierung7.454pnrooob04.09.11 12:04
Re: Einfacher Kopierschutz mit Online-Aktivierung7.328derdieter31.01.12 00:20
Re: Einfacher Kopierschutz mit Online-Aktivierung7.221NiWa31.01.12 07:11
Re: Einfacher Kopierschutz mit Online-Aktivierung7.163derdieter31.01.12 09:21
Re: Einfacher Kopierschutz mit Online-Aktivierung7.088derdieter31.01.12 09:32
Re: Einfacher Kopierschutz mit Online-Aktivierung7.163derdieter31.01.12 12:15
Re: Einfacher Kopierschutz mit Online-Aktivierung7.068NiWa31.01.12 12:31
Re: Einfacher Kopierschutz mit Online-Aktivierung7.027derdieter31.01.12 13:11
Re: Einfacher Kopierschutz mit Online-Aktivierung7.127derdieter31.01.12 13:14
Re: Einfacher Kopierschutz mit Online-Aktivierung7.170derdieter31.01.12 13:40
Re: Einfacher Kopierschutz mit Online-Aktivierung7.044NiWa31.01.12 13:50
Re: Einfacher Kopierschutz mit Online-Aktivierung6.945derdieter31.01.12 13:52
Re: Einfacher Kopierschutz mit Online-Aktivierung7.113derdieter31.01.12 22:18
Re: Einfacher Kopierschutz mit Online-Aktivierung7.039NiWa31.01.12 22:40
Re: Einfacher Kopierschutz mit Online-Aktivierung7.019derdieter31.01.12 23:05
Re: Einfacher Kopierschutz mit Online-Aktivierung6.925Glubschi4301.04.12 23:28
Re: Einfacher Kopierschutz mit Online-Aktivierung6.877NiWa01.04.12 23:39
Re: Einfacher Kopierschutz mit Online-Aktivierung6.858Glubschi4302.04.12 11:11
Re: Einfacher Kopierschutz mit Online-Aktivierung6.823derdieter03.05.12 23:08
Re: Einfacher Kopierschutz mit Online-Aktivierung6.812NiWa03.05.12 23:22
Re: Einfacher Kopierschutz mit Online-Aktivierung6.812Tausch09.05.12 13:32
Re: Einfacher Kopierschutz mit Online-Aktivierung6.847NiWa09.05.12 13:40
Re: Einfacher Kopierschutz mit Online-Aktivierung6.830Tausch09.05.12 13:45
Re: Einfacher Kopierschutz mit Online-Aktivierung6.835derdieter03.05.12 23:34
Re: Einfacher Kopierschutz mit Online-Aktivierung6.854NiWa03.05.12 23:39
Re: Einfacher Kopierschutz mit Online-Aktivierung6.715calypso01.06.12 12:30
Re: Einfacher Kopierschutz mit Online-Aktivierung6.684NiWa01.06.12 20:52
Re: Einfacher Kopierschutz mit Online-Aktivierung6.798calypso02.06.12 18:30
Re: Einfacher Kopierschutz mit Online-Aktivierung6.639calypso13.08.12 17:14
Re: Einfacher Kopierschutz mit Online-Aktivierung6.567NiWa13.08.12 18:42
Re: Einfacher Kopierschutz mit Online-Aktivierung6.568calypso14.08.12 06:28
Re: Einfacher Kopierschutz mit Online-Aktivierung6.650calypso17.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-2020 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