Asp.Net > Code Snippets

Generating Serial Code For Your Applications

Generating Serial Code For Your Applications

<%@ Page Language="VB" Debug="true" %>
<script runat="server">
Sub Page_Load(Source as Object, E as EventArgs)
Dim chars as string = "ABCDEFGHIJKLMNOPRSTUVYZX0123456789" 
Dim i, z, p as integer
Dim r as string
for z = 0 to 4
for p = 0 to 4
i = CInt(Int((33 * Rnd()) + 1)) 
r += mid(chars ,i, 1)
next p
r += "-"
next z
example.InnerHtml = "Serial Code : " & left(r, 29)
end sub
</script>
<SPAN id=example runat="server" />

Result of this page will be similiar like this :

Serial Code : JMJ78-NJFFY-NNXKV-GGUCP-5I1MJ