Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Activation_Load(ByVal sender As Object, ByVal e As EventArgs)
    Dim info As DiskInfo
    Dim hash As String = ""
    Me.Icon = Resources.Keys__2_
    Dim sRegNumber As String = "000000000000"
    HDiskInfo.GetIdeDiskInfo(0, info, sRegNumber)
    Me.TxtCodeClient.Text = info.SerialNumber
    Me.daAvtivation = New OleDbDataAdapter(("select dateActivation,CleActivation from TbActivation Where CodeClient ='" & Me.TxtCodeClient.Text & "'"), MyProject.Forms.frmMain.Conn)
    Me.daAvtivation.Fill(Me.dsActivation, "Activation")
    Me.daAvtivation.Dispose
    If (Me.dsActivation.Tables.Item("Activation").Rows.Count = 0) Then
        Me.LblActivation.Text = "Version non activ" & ChrW(233) & "e!"
        Me.LblActivation.ForeColor = Color.Red
        VarGlobales.VersionActivee = False
    Else
        hash = Me.dsActivation.Tables.Item("Activation").Rows.Item(0).Item("CleActivation").ToString
        If VarGlobales.verifyMd5Hash(Conversions.ToString(VarGlobales.InverseStr((Me.TxtCodeClient.Text & "ISRA2010"))), hash) Then
            Me.TxtKey1.Text = Strings.Mid(hash, 1, 5)
            Me.TxtKey2.Text = Strings.Mid(hash, 6, 5)
            Me.TxtKey3.Text = Strings.Mid(hash, 11, 5)
            Me.TxtKey4.Text = Strings.Mid(hash, &H10, 5)
            Me.LblActivation.Text = "Version activ" & ChrW(233) & "e!"
            Me.LblActivation.ForeColor = Color.Blue
            VarGlobales.VersionActivee = True
            Me.TxtCodeClient.Enabled = False
            Me.SimpleButton1.Enabled = False
            Me.TxtKey1.Enabled = False
            Me.TxtKey2.Enabled = False
            Me.TxtKey3.Enabled = False
            Me.TxtKey4.Enabled = False
            Me.BtnActiver.Enabled = False
        Else
            Me.LblActivation.Text = "Version non activ" & ChrW(233) & "e!"
            Me.LblActivation.ForeColor = Color.Red
        End If
    End If
End Sub