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   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
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.179TZollo07.10.10 14:13
Re: Einfacher Kopierschutz mit Online-Aktivierung8.480NiWa09.10.10 13:23
Re: Einfacher Kopierschutz mit Online-Aktivierung7.953+++MaRuSo+++21.11.10 06:50
Re: Einfacher Kopierschutz mit Online-Aktivierung7.915ModeratorRalfE21.11.10 17:05
Re: Einfacher Kopierschutz mit Online-Aktivierung7.805NiWa21.11.10 19:25
Re: Einfacher Kopierschutz mit Online-Aktivierung7.782+++MaRuSo+++18.12.10 10:40
Re: Einfacher Kopierschutz mit Online-Aktivierung7.682+++MaRuSo+++18.12.10 10:34
Re: Einfacher Kopierschutz mit Online-Aktivierung7.667NiWa18.12.10 10:58
Re: Einfacher Kopierschutz mit Online-Aktivierung7.716BasicOpa04.03.11 11:37
Re: Einfacher Kopierschutz mit Online-Aktivierung7.539NiWa24.05.11 20:55
Re: Einfacher Kopierschutz mit Online-Aktivierung7.317vbarchiv_user20.07.11 11:52
Re: Einfacher Kopierschutz mit Online-Aktivierung7.117NiWa20.07.11 14:44
Re: Einfacher Kopierschutz mit Online-Aktivierung7.140pnrooob02.09.11 20:11
Re: Einfacher Kopierschutz mit Online-Aktivierung7.202pnrooob02.09.11 20:30
Re: Einfacher Kopierschutz mit Online-Aktivierung7.098NiWa02.09.11 23:44
Re: Einfacher Kopierschutz mit Online-Aktivierung6.943pnrooob03.09.11 12:03
Re: Einfacher Kopierschutz mit Online-Aktivierung7.031pnrooob03.09.11 12:50
Re: Einfacher Kopierschutz mit Online-Aktivierung7.002NiWa03.09.11 14:42
Re: Einfacher Kopierschutz mit Online-Aktivierung7.017pnrooob03.09.11 16:11
Re: Einfacher Kopierschutz mit Online-Aktivierung7.060NiWa03.09.11 19:27
Re: Einfacher Kopierschutz mit Online-Aktivierung7.104pnrooob04.09.11 12:04
Re: Einfacher Kopierschutz mit Online-Aktivierung6.963derdieter31.01.12 00:20
Re: Einfacher Kopierschutz mit Online-Aktivierung6.851NiWa31.01.12 07:11
Re: Einfacher Kopierschutz mit Online-Aktivierung6.801derdieter31.01.12 09:21
Re: Einfacher Kopierschutz mit Online-Aktivierung6.734derdieter31.01.12 09:32
Re: Einfacher Kopierschutz mit Online-Aktivierung6.788derdieter31.01.12 12:15
Re: Einfacher Kopierschutz mit Online-Aktivierung6.707NiWa31.01.12 12:31
Re: Einfacher Kopierschutz mit Online-Aktivierung6.676derdieter31.01.12 13:11
Re: Einfacher Kopierschutz mit Online-Aktivierung6.747derdieter31.01.12 13:14
Re: Einfacher Kopierschutz mit Online-Aktivierung6.827derdieter31.01.12 13:40
Re: Einfacher Kopierschutz mit Online-Aktivierung6.684NiWa31.01.12 13:50
Re: Einfacher Kopierschutz mit Online-Aktivierung6.604derdieter31.01.12 13:52
Re: Einfacher Kopierschutz mit Online-Aktivierung6.778derdieter31.01.12 22:18
Re: Einfacher Kopierschutz mit Online-Aktivierung6.676NiWa31.01.12 22:40
Re: Einfacher Kopierschutz mit Online-Aktivierung6.661derdieter31.01.12 23:05
Re: Einfacher Kopierschutz mit Online-Aktivierung6.566Glubschi4301.04.12 23:28
Re: Einfacher Kopierschutz mit Online-Aktivierung6.515NiWa01.04.12 23:39
Re: Einfacher Kopierschutz mit Online-Aktivierung6.521Glubschi4302.04.12 11:11
Re: Einfacher Kopierschutz mit Online-Aktivierung6.470derdieter03.05.12 23:08
Re: Einfacher Kopierschutz mit Online-Aktivierung6.459NiWa03.05.12 23:22
Re: Einfacher Kopierschutz mit Online-Aktivierung6.459Tausch09.05.12 13:32
Re: Einfacher Kopierschutz mit Online-Aktivierung6.490NiWa09.05.12 13:40
Re: Einfacher Kopierschutz mit Online-Aktivierung6.463Tausch09.05.12 13:45
Re: Einfacher Kopierschutz mit Online-Aktivierung6.493derdieter03.05.12 23:34
Re: Einfacher Kopierschutz mit Online-Aktivierung6.493NiWa03.05.12 23:39
Re: Einfacher Kopierschutz mit Online-Aktivierung6.363calypso01.06.12 12:30
Re: Einfacher Kopierschutz mit Online-Aktivierung6.347NiWa01.06.12 20:52
Re: Einfacher Kopierschutz mit Online-Aktivierung6.425calypso02.06.12 18:30
Re: Einfacher Kopierschutz mit Online-Aktivierung6.269calypso13.08.12 17:14
Re: Einfacher Kopierschutz mit Online-Aktivierung6.215NiWa13.08.12 18:42
Re: Einfacher Kopierschutz mit Online-Aktivierung6.209calypso14.08.12 06:28
Re: Einfacher Kopierschutz mit Online-Aktivierung6.285calypso17.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-2019 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