简单一点。

你取得了 硬盘号，应该是 8位吧。
你随手输入 8个字符。
然后 把硬盘号与这个 8 个字符 进行 XOR 操作。 XOR 是最简单的加密方式了。
如果等于设定的验证码，就运行，否则就关闭系统。

'vcv5sdfg 为随机输入的值，在同一个程序及加密程序中是固定的。在不同的程序之间是不相同的。
'这个随机数据，你可能需要仔细推敲一下，以确保生成的字符是可以输入的。应该是不允许出现大写字母的数字。
dim i as string,j as string ,k as long
i=GetHDlist()
if len(i)=8 then
   for k=1 to 8
       j=j & chr( asc(mid(i,k,1)) Xor asc(mid("vcv5sdfg",k,1)) )          '转化为 字符，生成 8 位加密字串
       'j=j & hex(asc(mid(i,k,1)) Xor asc(mid("vcv5sdfg",k,1)))            '生成 8-16 位的加密字符串，实际上是以16进制保存的。
   next k
end if
if j<>输入值 then
  end
end if

和我一样呀，我搞机械的，让我搞变成坑爹呀

你比我强多了。我今天才决定学习一下VB，我可是一点基础都没有哦