Slet ikke nogen der kan hjælpe?
--
Ved ikke helt hvordan jeg ellers skal forklare det men jeg kan da prøve.
Den her fil skulle jeg have mit program til at oprette forbindelse til mit Website
<?xml version="1.0"?>
<assembly>
<block name="myAuthorizer"
class="com.biz.cornerstone.blocks.MyAuthorizer">
</block>
<block name="myBlock"
class="com.biz.cornerstone.blocks.MyBlock">
<provide name="myAuthorizer"
role="com.biz.cornerstone.services.Authorizer"/>
<proxy disable="true"/>
</block>
<listener name="myListener"
class="com.biz.cornerstone.listeners.MyListener">
</listener>
</assembly>
Det mit program gør når man siger aktiver og har skrevet navn og key ind også den skal til at tjekke om det navn og key passer til programmet.
Public Sub CheckAdmin()
Checkmatch()
End Sub
Public Sub Checkmatch()
NameNum = TextBox1.Text()
NameNum = des.Encrypt(NameNum)
NameNum = NameNum.Remove(0, (NameNum.Length - 10))
If NameNum = TextBox2.Text Then
ProcessOK()
Else
TextBox2.Text = ""
MsgBox("Denne CD Key eller Navn er Invalid," & vbNewLine & "eller du køre en forkert version.", MsgBoxStyle.Critical, "Invalid CD Key")
End If
End Sub
Public Sub ProcessOK()
Dim Form1 As New Form2
Dim IsOK
IsOK = "Yes"
Form1.Show()
Me.Hide()
End Sub
#Region "DES"
Private ReadOnly key() As Byte = _
{0, 7, 45, 9, 45, 61, 1, 3, 9, 23, 15, 162, 4, 82, _
15, 6, 7, 15, 95, 27, 11, 0, 73, 4}
Private ReadOnly iv() As Byte = {8, 3, 6, 5, 54, 2, 1, 32}
' instantiate the class with the arrays
Private des As New cTripleDES(key, iv)
Det er så her oppe i mellem jeg skriver de bruger der skal være blokeret ind i
Public Sub CheckAdmin()
Checkmatch()
End Sub
Public Sub Checkmatch()
If TextBox2.Text = "m9Oacs/A==" Then
MsgBox("Bloket", MsgBoxStyle.Exclamation, "Pirat CD Key")
Else
NameNum = TextBox1.Text()
NameNum = des.Encrypt(NameNum)
NameNum = NameNum.Remove(0, (NameNum.Length - 10))
If NameNum = TextBox2.Text Then
Det er så i stedet for at den gør det her:
If TextBox2.Text = "m9Oacs/A==" Then
MsgBox("Bloket", MsgBoxStyle.Exclamation, "Pirat CD Key")
Så skal den oprette forbindelse til mit website og tjekke i det XML dokument om den key man prøver og aktiver med er blokeret.
Det XML dokument i ser længer oppe.
Håber der er nogen der forstå mig nu ;)
--