Microsoft Small Basic

Program Listing:
Embed this in your website
' Import ID random genarator
' Version 0.1
' Copyright © 2017 Nonki Takahashi. The MIT License.

t = Clock.ElapsedMilliseconds
TextWindow.Title = "Import ID - random generator 0.1"
Not = "True=False;False=True;"
alpha = "BCDFGHJKLMNPQRSTVWXZ"  ' except AEIOUY
na = Text.GetLength(alpha)
n = 0
While n < 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.GetRandomNumber(1000) - 1
  len = Text.GetLength(num)
  id = id + Text.GetSubTextToEnd("00", len) + num
  If Not[Array.ContainsValue(list, id)] Then
    n = n + 1
    list[n] = id
    TextWindow.WriteLine(n + " " + id)
  EndIf
EndWhile
t = Clock.ElapsedMilliseconds - t
TextWindow.WriteLine((t / 1000) + " sec")
Copyright (c) Microsoft Corporation. All rights reserved.