思迅商业之星7免费使用版！需要et99白色加密狗本人亲测可以使用

很多ET99的驱动都带毒，百威ET99无毒驱动全自动安装绝对无毒

百威ET99初始化写狗注册全套工具（没有二次打包）

加密狗密码第一道密码，第二道密码就看你的运气好坏了

.将Hid.dll复制到软件安装好的目录里面，也就是和软件的主程序EXE放在一起。然后插上加密狗运行你的软件，

坚石诚信ET99加密狗读狗工具,读取原狗的数据文件，可以保存数据

ET99加密工具(外壳),飞天诚信ET99外壳加密工具

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

ET99加密狗初始化软件，操作视频可以到本站搜索到，我也上传了

一位牛人整理硬盘的时候放出来的，版权归他本人所有