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 |
Partager