DiegoQueiroz

using System;
using System.Text;
using System.Security.Cryptography;
          
public class Program {

  public static void Main()  {
    Console.WriteLine(GeraDigitosAleatorios(8));    
  }
  

DiegoQueiroz

Imports System.Text
Imports System.Security.Cryptography

Module VBModule

  Sub Main()
    Console.WriteLine(GeraDigitosAleatorios(8))
  End Sub
  
  Function GeraDigitosAleatorios(ByVal tamanho As Integer) As String

DiegoQueiroz

Attribute VB_Name = "GeraDigitosAleatorios"
Option Explicit

Private Declare Function BCryptGenRandom Lib "bcrypt.dll" (ByVal hAlgorithm As Long, ByRef pbBuffer As Long, ByVal cbBuffer As Long, ByVal dwFlags As Long) As Long
Const BCRYPT_USE_SYSTEM_PREFERRED_RNG = &H2
Const STATUS_SUCCESS = &H0

Public Function GeraDigitosAleatorios(ByVal tamanho As Integer) As String

    Const ERRO_GERACAO_SEQUENCIA_NUMERO = vbObjectError + 1

DiegoQueiroz

uses
  Windows, SysUtils;
  
function GeraDigitosAleatorios(tamanho: Integer): String;
type
  TBCryptGenRandom = function(hAlgorithm: THandle; pbBuffer: PUCHAR;
                              cbBuffer, dwFlags: ULONG): ULONG; stdcall;
const
  bcryptdll = 'bcrypt.dll';
  STATUS_SUCCESS = $00000000;