PDA

View Full Version : Need help with VB code for keymaker in Armadillo



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]

Surej
19-02-2003, 05:35 AM
Hello..
Please help me i need this urgent...

Thanks..

[email protected]

eleoson
08-03-2003, 07:02 PM
try this:

Option Explicit
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()
surej$="Encryption Template"
'''''Text2.Text= hardware FingerPrint Without hypen "-"
str1$ = VBCreateCode(Text1.Text, surej$, Clng(Text2.Text), 0)

MsgBox str1$

End Sub

Surej
09-03-2003, 12:54 PM
Thanks...:-D

BR

Surej