Просьба помочь трансформировать код с Cшарп в вижл бейсик

[kibernetics]

Народ, всем привет! Всё реже заглядываю на форум.. и в этот раз снова за помощью. Есть код рандомайзера, работающий на энтропии системы, но правда под .net.
А мне нужно сделать кое-какое приложение под vb6.0 основанное на этом генераторе. Прошу поомощи, кто перешёл на c# и помнит ещё бейсик. Вот сам код:

Код: Выделить всё

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace PrefCraw.Game
{
    public class RandomCrypto
    {
        private Queue<byte> queue = new Queue<byte>();
        private int QueueBuffer = 1000;

        public RandomCrypto()
        {
        }

        public RandomCrypto(int queueBuffer)
        {
            QueueBuffer = queueBuffer;
        }

                public int NextInt(int maxValue)
        {
            return (int)(NextDouble() * maxValue);
        }

        public int NextInt(int minValue, int maxValue)
        {
            int num = maxValue - minValue;
            return (((int)(NextDouble() * num)) + minValue);
        }

        public T[] Shuffle<T>(T[] source)
        {
            T[] original = (T[])source.Clone();
            T[] result = new T[source.Length];

            for (int i = 0; i < original.Length; i++)
            {
                int pos = NextInt(original.Length - i);
                result[i] = original[pos];
                original[pos] = original[original.Length - i - 1];
            }
            return result;
        }

        public T[] Shuffle<T> (IEnumerable<T> source)
        {
            return Shuffle(source.ToArray());
        }

        private object LockObject = new object();
        public byte[] NextBytes(int length)
        {
            lock (LockObject)
            {
                if (queue.Count < length)
                    AppendBytes(Math.Max(length, QueueBuffer));

                byte[] buffer = new byte[length];
                for (int i = 0; i < length; i++)
                {
                    buffer[i] = queue.Dequeue();
                }
                return buffer;
            }
        }

            }
}

[Admiralisimys]

Привет kibernetics.
Приведённый код это обёртка которая скрывает взаимодействие с .NET классом RNGCryptoServiceProvider, который является одним из криптографическим генератором случайных чисел (см. использование криптографического генератора случайных чисел).
По этому, поставленная задача, если требуется сопоставимая стойкость генерации, уже будет сводится не просто к переводу кода, но также реализации криптографического генератора случайных чисел на подобии RNGCryptoServiceProvider на VB6.

[kibernetics]

Admiralisimys - большое спасибо за разъяснение. Вопрос снимаю тогда.