Asp.Net > Code Snippets sample source codes

 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



Privacy Policy | Link to Us | Links