זיהוי קוד מוצר ע"י תוכנה

[sky-view]

האם יש דרך לזהות את קוד המוצר של וינדוס באמצעות קוד .NET ?
האם הוא מאוחסן בריגיסטרי? א"כ איך ניגשים אליו?
צריך להיות משהו דרך הפקודה :
My.Computer.Registry.GetValue

 

[s_h]

אתה רוצה לקרוא את קוד הרשיון של מערכת ההפעלה?

 

[sky-view]

כן. אני צריך את מספר הרישיון כדי למנוע העתקת תוכנה אחרת.

 

[מקארתור]

אם אתה מתכוון לבנות אלגוריתם שיעבוד על סיסמה הנ"ל, חבל, חצי מדינה משתמשת באותו קודים
לך על הסריאל של הHDD, הרבה תוכנות עובדות כך

 

[s_h]

מסכים בהחלט.

 

[sky-view]

אולי תגלו לי מה זה הסריאל של הHDD?

 

[s_h]

ראה דוגמא כאן:
http://www.codeproject.com/KB/cs/hard_disk_serialno.aspx

או כאן:
http://www.winsim.com/diskid32/diskid32.html

 

[sky-view]

איני מכיר את שפת C# האם יש לכם את זה ב-VB.NET

 

[s_h]

הנה קוד שמצאתי לך ברשת:

#Region " Imports "
Imports System
Imports System.IO
Imports System.Management
Imports System.Windows.Forms
#End Region

Public Class Form1
    '
#Region " Form1 "
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CheckHDSN()
    End Sub
    '
    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        MessageBox.Show("Hard Disk Serial Number Matching")
    End Sub
#End Region
    '
#Region " Private Sub "
    Private Sub CheckHDSN()
        Me.Cursor = Cursors.WaitCursor
        Try
            Dim Searcher_P As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_PhysicalMedia")
            For Each queryObj As ManagementObject In Searcher_P.Get()
                If queryObj("SerialNumber").ToString.Trim = "Y2S0RKFE" Then
                    Me.Cursor = Cursors.Default
                    Exit Sub
                End If
            Next
        Catch ex As Exception
            MessageBox.Show("An error occurred while querying for WMI data: Win32_PhysicalMedia " & ex.Message)
        End Try
        '
        Try
            Dim Searcher_L As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_LogicalDisk WHERE DeviceID = 'C:'")
            For Each queryObj As ManagementObject In Searcher_L.Get()
                If queryObj("VolumeSerialNumber").ToString.Trim = "226C1A0B" Then
                    Me.Cursor = Cursors.Default
                    Exit Sub
                End If
            Next
        Catch ex As Exception
            MessageBox.Show("An error occurred while querying for WMI data: VolumeSerialNumber " & ex.Message)
        End Try
        Me.Cursor = Cursors.Default
        MessageBox.Show("Hard Disk Serial Number Not Matching !!!" & vbNewLine & vbNewLine & "Asta La Vista Baby !!!")
        End
    End Sub
#End Region
    '
End Class

 

[s_h]

בכלל אתה יכול להיעזר בתוכנה הבאה כדיי לייצר קוד.

 

[sky-view]

תודה
רבה