软件注册与加密

时　间:2007-11-03 13:41:57
作　者:刘贵平整理   ID：14  城市：长沙
摘　要:软件注册与加密
正　文:

实现过程:

  1\新建一个数据库(ACCESS),创建一个新的窗体.默认属性为FORM1,设置成CAPTION属性为"******"

2\在窗体中添加一个FRAME控件,设置其CAPTION属性为无,添加4个控件,设置其中3个控件的CAPTION属性为"利用网卡注册系统"."注册码"."注册号为:123-456-789',第4个控件的CAPTON属性为无,用于显示已注册或是未注册的提示信息,添加2个COMMANDBUTTON控件,设置其CAPTION属性分别为"注册"和"关闭";添加3个TEXTBOX控件,2个LINE控件.

3主要程序代码如下:

Dim myNCB As NCB
  Dim myASTAT As ASTAT, TempASTAT As ASTAT
  Dim Pastat As Long
    myNCB.NCB_Command = NCBRESET
    Netbios myNCB
    myNCB.NCB_Command = NCBASTAT
    myNCB.NCB_Lana_Num = 0
    myNCB.NCB_CallName = "*"
    myNCB.NCB_Length = Len(myASTAT)
    Pastat = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS or HEAP_ZERO_MEMORY, myNCB.NCB_Length)
    myNCB.NCB_Buffer = Pastat
    Netbios myNCB
    CopyMemory myASTAT, myNCB.NCB_Buffer, Len(myASTAT)
    M_Num = Hex(myASTAT.Adapt.Adapter_Address(0)) & "-" & Hex(myASTAT.Adapt.Adapter_Address(1)) & "-" & Hex(myASTAT.Adapt.Adapter_Address(2)) & "-" & Hex(myASTAT.Adapt.Adapter_Address(3)) & "-" & Hex(myASTAT.Adapt.Adapter_Address(4)) & "-" & Hex(myASTAT.Adapt.Adapter_Address(5))
   
    HeapFree GetProcessHeap(), 0, Pastat
    M_ReadNum = GetFromINI("zc", "zc", P_path) '读取注册
4\请注意此代码只提供参考作用,也是主要代码,如需要时请完善.同时请高手多多指教!