Surej
18-02-2003, 08:03 AM
Hi..
I need some help to make a keymaker for Armadillo in VB..
I followed the steps in the Armadillo help file but the keys were not valid..
Private Declare Function VBCreateCode Lib "CodeGen.DLL" (ByVal Name$, ByVal EncryptionTemplate$, ByVal HardWareID As Long, ByVal OtherInfo As Integer) As String
Private Declare Function VBCreateCode2 Lib "CodeGen.DLL" (ByVal Level As Long, ByVal Name$, ByVal EncryptionTemplate$, ByVal HardWareID As Long, ByVal OtherInfo1 As Integer, ByVal OtherInfo2 As Integer, ByVal OtherInfo3 As Integer, ByVal OtherInfo4 As Integer, ByVal OtherInfo5 As Integer) As String
Private Declare Function VBCreateFixClockKey Lib "CodeGen.DLL" (ByVal Project_ID$) As String
Private Declare Function MakeDate Lib "CodeGen.DLL" (ByVal Year As Long, ByVal Month As Long, ByVal Day As Long) As Integer
Private Declare Function HexToInt Lib "CodeGen.DLL" (ByVal HexString As String) As Long
Private Sub Command1_Click()
str1 = VBCreateCode((Text1.Text), surej, 0, 0)
MsgBox str1
End Sub
surej=Encryption template
I dont know VB much..
Please some one help me to make an stanalone exe for making codes..the codes i made with above dont work
Thanks
Surej
[email protected]
I need some help to make a keymaker for Armadillo in VB..
I followed the steps in the Armadillo help file but the keys were not valid..
Private Declare Function VBCreateCode Lib "CodeGen.DLL" (ByVal Name$, ByVal EncryptionTemplate$, ByVal HardWareID As Long, ByVal OtherInfo As Integer) As String
Private Declare Function VBCreateCode2 Lib "CodeGen.DLL" (ByVal Level As Long, ByVal Name$, ByVal EncryptionTemplate$, ByVal HardWareID As Long, ByVal OtherInfo1 As Integer, ByVal OtherInfo2 As Integer, ByVal OtherInfo3 As Integer, ByVal OtherInfo4 As Integer, ByVal OtherInfo5 As Integer) As String
Private Declare Function VBCreateFixClockKey Lib "CodeGen.DLL" (ByVal Project_ID$) As String
Private Declare Function MakeDate Lib "CodeGen.DLL" (ByVal Year As Long, ByVal Month As Long, ByVal Day As Long) As Integer
Private Declare Function HexToInt Lib "CodeGen.DLL" (ByVal HexString As String) As Long
Private Sub Command1_Click()
str1 = VBCreateCode((Text1.Text), surej, 0, 0)
MsgBox str1
End Sub
surej=Encryption template
I dont know VB much..
Please some one help me to make an stanalone exe for making codes..the codes i made with above dont work
Thanks
Surej
[email protected]