主题：请教随机字符串

 经过运算得到的，你可以直接使用computeId啊

自定义的函数算法还是有现成的函数生成此类型的？

 

此类型很容易吧？如果是要随机数，就类似这样写

 

Dim len As Integer = 4
Dim count As Integer = 5
Dim str As String = ""
For i As Integer = 1 To count
    For j As Integer = 1 To len
        str &= Rand.Next(10)
    Next
    str &= "-"
Next

str = str.Trim("-")
msgbox(str)

通过computeId字符串固定分解加密成以上由全数字组成的字符串，解密后为computeId字符串，不就同狐表的形式一样吗？以后再发激活码给客户，客户再激活，激活后，写进加密狗，再进行判断？是这个思路吗？

 嗯

EncryptText(Value, Key1, Key2) 函数生成的随机数是有字母的如何生成全数字的？比如说computeId获取的是12为字符，取第一位加密生成一随机字符，再取随机字符的前四位生成字符，这样组成八组字符。

 这个要自己设计算法，你去学基础吧，何种加密都是一样的，生成为全数字也不见得就安全了。

我看了帮助半天，也才了解了个皮毛，您帮我写一下代码也不就几分钟的事，何劳小弟奔波！

 任何算法的加密都是一样的，没有什么意义。

总不能裸奔吧，现实中象你们这样的高手不多，有些软件是不会买盗版的，尤其涉及到连续数据计算的和开发的，狐表盗版谁敢买？