(028)[技术资料]et99加密狗打开函数的一个小bug

et99加密狗的打开函数,其官方vb调用申明如下:
Declare Function et_OpenToken Lib "FT_ET99_API.dll" (ByRef et99handle As Long, ByVal et99pid As Any, ByVal et99index As Integer) As Long
这最后一个参数的类型应该是long,否则该函数永远执行失败

转载于:https://www.cnblogs.com/afeibfp/p/8710826.html

If Combo.Text = "" Then MsgBox "请选择加密方案", vbExclamation: Exit Sub '空狗 et99pid = "FFFFFFFF" et99pin = "FFFFFFFFFFFFFFFF" retcode = et_FindToken(et99pid, et99count) '查找加密狗 If retcode = 0 Then retcode = et_OpenToken(et99handle, et99pid, 1) '打开加密狗 retcode = et_Verify(et99handle, 1, et99pin) '验证SOPIN retcode = et_GenPID(et99handle, LenB(StrConv(et99seed, vbFromUnicode)), et99seed, et99pid) '设置硬件PID retcode = et_GenSOPIN(et99handle, Len("33102150"), "33102150", et99pin) '修改SOPIN retcode = et_ChangeUserPIN(et99handle, "FFFFFFFFFFFFFFFF", "1984011219840112") '修改USERPIN writestr = Format(Date, "YYYY-MM-DD") writearr = StrConv(writestr, vbFromUnicode) retcode = et_Write(et99handle, 0, Len(writestr), writearr(0)) '写入日期 retcode = et_CloseToken(et99handle) '关闭加密狗 MsgBox "加密狗设置成功,采用的方案:" & 产品名称, vbInformation Exit Sub End If '已经写过的狗 Call OpenEt99数据表 If Et99数据表.RecordCount <= 0 Then GoTo Er: For i = 0 To Et99数据表.RecordCount - 1 et99pid = Et99数据表("硬件PID") retcode = et_FindToken(et99pid, et99count) If retcode = 0 Then retcode = et_OpenToken(et99handle, et99pid, 1) '打开加密狗 et99pin = "FFFFFFFFFFFFFFFF" '可以修改成自己的SOPIN retcode = et_Verify(et99handle, 1, et99pin) '验证SOPIN If retcode 0 Then et99pin = "FFFFFFFFFFFFFFFF" retcode = et_Verify(et99handle, 1, et99pin) '验证SOPIN If retcode 0 Then GoTo Er: End If retcode = et_GenPID(et99handle, LenB(StrConv(et99seed, vbFromUnicode)), et99seed, et99pid) '设置硬件PID writestr = Format(Date, "YYYY-MM-DD") writearr = StrConv(writestr, vbFromUnicode) retcode = et_Write(et99handle, 0, Len(writestr), writearr(0)) '写入日期 retcode = et_CloseToken(et99handle) '关闭加密狗 MsgBox "加密狗设置成功,采用的方案:" & 产品名称, vbInformation Call CloseEt99数据表 Exit Sub End If Et99数据表.MoveNext Next i Er: Call CloseEt99数据表 MsgBox
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值