Question

我正在为使用VB6 Rnd（）和Randomize（）方法进行用户密码加密的旧数据库编写C＃前端。 encryption function非常简单，并不是那么安全，但它是所有当前密码的存储内容。

我希望能够做的是从C＃应用程序验证传统用户。我可以为VB6编写新的加密（或最好是散列）代码，以便所有未来的用户都拥有更安全的密码，并且可以在C＃中复制。但我不想要求当前用户在使用新前端之前重置密码。

有没有什么方法可以在C＃中重新实现该算法，以便它产生与传统VB6代码相同的结果？

Answer 1

应该可以。棘手的部分将模拟对Visual Basic的Randomize语句和Rnd函数的调用。

我刚刚发现了一篇知识库文章，看起来它可能包含您需要的信息：

How Visual Basic Generates Pseudo-Random Numbers for the RND Function

修改...

经过一些调查后，最近版本的Visual Basic中的Randomize和Rnd实现似乎使用与VB6完全相同的算法。

所以，好消息是你不需要自己弄清楚并重新实现VB6算法。只需导入Microsoft.VisualBasic命名空间，就可以从C＃调用内置方法：

using Microsoft.VisualBasic; // ... float x = VBMath.Rnd(-1); VBMath.Randomize(password.Length); float y = VBMath.Rnd(); // etc

（如果您仍然对使用的实际算法感到好奇，可以随时查看Reflector！）

Answer 2

您可以从VB6和C＃生成相同的序列。只需观察我们的舍入错误（C＃的结果更精确）。在将新种子传递给VBMath.Rnd(-1)之前，请务必致电VBMath.Randomize()。

[TestFixture]
public class VbaRandomTests
{
    // Random numbers generated from a known seed from VB6
    [TestCase(1, new[] { 0.333575300f, 0.068163870f, 0.593829300f, 0.766039500f, 0.189289400f, 0.537398600f, 0.326994400f, 0.393937000f, 0.073419150f, 0.831542500f, 0.854963000f, 0.828829900f, 0.962344000f, 0.833957400f, 0.090149820f, 0.645974500f, 0.192794900f, 0.346950500f, 0.188133400f, 0.691135000f })]
    [TestCase(32, new[] { 0.579913200f, 0.579150200f, 0.310870300f, 0.864916400f, 0.142658500f, 0.927291200f, 0.407316600f, 0.402970200f, 0.296319500f, 0.412841300f, 0.361066500f, 0.560519300f, 0.017275630f, 0.919162500f, 0.084534590f, 0.912820200f, 0.642257800f, 0.248561900f, 0.733299400f, 0.305637000f })]
    [TestCase(327680, new[] { 0.882708600f, 0.733264000f, 0.661029000f, 0.376940400f, 0.919086800f, 0.660506500f, 0.020170630f, 0.126908200f, 0.437005600f, 0.053283210f, 0.252240800f, 0.449496400f, 0.662844500f, 0.044955970f, 0.519654200f, 0.169961300f, 0.183334400f, 0.687831900f, 0.227989400f, 0.384067200f })]
    public void generates_same_results_as_VB6(int seed, float[] values)
    {
        VBMath.Rnd(-1);
        VBMath.Randomize(seed);

        float[] results = new float[values.Length];
        for (int index = 0; index < results.Length; index++)
        {
            results[index] = VBMath.Rnd();
        }

        CollectionAssert.AreEqual(values, results, new FloatEpsilonComparer(0.0000001f));
    }

    private class FloatEpsilonComparer
        : IComparer<float>, IComparer
    {
        private readonly float _epsilon;

        public FloatEpsilonComparer(float epsilon)
        {
            _epsilon = epsilon;
        }

        public int Compare(float x, float y)
        {
            float difference = x - y;

            if (Math.Abs(difference) < _epsilon)
            {
                return 0;
            }
            if (x < y)
            {
                return -1;
            }
            return 1;
        }

        public int Compare(object x, object y)
        {
            float xF = Convert.ToSingle(x);
            float yF = Convert.ToSingle(y);
            return Compare(xF, yF);
        }
    }
}

Answer 3

示例VB代码：

Randomize()
Dim x as Single = Rnd()

（粗略地）等效的C＃代码：

Random r = new Random();
double x = r.NextDouble();

Random类构造函数使用当前时间初始化随机数生成器，这是Randomize的作用。您还可以将种子传递给构造函数，这相当于使用种子参数

调用Randomize

将VB6随机化转换为C＃

3 个答案: