Microsoft Small Basic

Program Listing:
Embed this in your website
' Import ID - random genarator (speed up)
' Version 0.2
' Copyright © 2017 Nonki Takahashi. The MIT License.
' Program ID JGW676-0

t = Clock.ElapsedMilliseconds
TextWindow.Title = "Import ID - random generator 0.2"
alpha = "BCDFGHJKLMNPQRSTVWXZ"  ' except AEIOUY
na = Text.GetLength(alpha)
num = Math.GetRandomNumber(1000) - 1
For n = 1 To 1000
  id = Text.GetSubText(alpha, Math.GetRandomNumber(na), 1)
  id = id + Text.GetSubText(alpha, Math.GetRandomNumber(na), 1)
  id = id + Text.GetSubText(alpha, Math.GetRandomNumber(na), 1)
  num = Math.Remainder(num + 727, 1000)
  len = Text.GetLength(num)
  id = id + Text.GetSubTextToEnd("00", len) + num
  TextWindow.WriteLine(n + " " + id)
EndFor
t = Clock.ElapsedMilliseconds - t
TextWindow.WriteLine((t / 1000) + " sec")
Copyright (c) Microsoft Corporation. All rights reserved.