如何使用加密狗加密程序？

Question

我现在有一套用vb开发的软件，想通过软件狗加密，但摸索了好久都不知道如何下手，请各位高手指点指点！！

Answer 1

'Add "moduModule1.bas","moduModule2.bas" to your project! Dim buffer(0 to 1024) as Byte
Dim cmddata(0 to 1024) as Byte
Dim errcode as Long
Dim hic,i,num,wRetLen as Long Dim mgnCode(0 to 3)as Integer '{{**查找打开锁
'注:查找方法1,2只能选一个,默认是1,普通查找,
'如果选2,则将其注释去掉,再将方法1注释掉即可

'{查找方法1:普通查找，找到所有加密锁
num = Find()
'}全是类似这样的

Answer 2

我前几天刚买了个加密狗 2xx 直接加的的是外壳狗，简单方便并且不需要源代码，直接对exe等加密，加密后程序启动检测狗是否存在，如果存在继续运行，不存在就拒绝之行。
至于把加密狗检测、计算集成到源代码里，买加密狗时厂家提供些实例，都是api函数等