|
|
| |
|
|
Generating Serial Code For Your Applications (ing) |
|
1348 Görüntülenme |
İ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ı.
***********************************************************
<%@ 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" />
|
|
|
|
|
|
| |
|
| | |
|
Bu içerik hakkında 1 yorum yapılmış |
|
|
|
|
|
|
| Yorumlar(1) |
Not : Yorumlar zamana göre
son yorumdan ilk yoruma doğru(azalan) biçimde sıralanmıştır.
Yorumlarınız site yöneticileri tarafından onaylandıktan sonra eklenecektir. |
|
|
|
|
|
