Editor Login | Register
Ekle

> Akademik İnternet ® > ASP.NET
Generating Serial Code For Your Applications (ing) - ASP.NET - Akademik İnternet ® -
CWhite
(Relased 26.01.2008 18:36:43)


Generating Serial Code For Your Applications (ing)
İstediğiniz biçimde kullanabileceğiniz windows serial kodları gibi dizilmiş rastgele üreten bir kod.
Kod"u bir sayfaya koymanız ve kayıt etmeniz yeterli.Uzantısı aspx olmalı.

***********************************************************



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




Derecelendir
Kaynak CWhite Tarafından yazılmış/derlenmiştir.
İçerik İhbarı
Bağlantılar: bilgininefendisi.net

Open Source Document Project AUP&TOS