Vb.NET otomatik Key Olusturma

Vb.NET otomatik Key Olusturma


http://coderbyoneself.blogcu.com/visual-basicnet


Bu örneğimizde otomatik olarak key numaraları oluşturacağız. Ayrıca oluşturacağımız key numaralarını text dosyasına kaydedip, daha sonra text dosyasındanda yükleyebilirsiniz. Bunun için formunuza 5 adet Textbox, 4 adet Button ve 1 adet RichTextBox ekleyin. Aşağıdaki şekil gibi formunuzu oluşturun...Bahadirsa

Şekil 1
Forma yazılacak kodlar:
Public Class Form1
Dim i As Integer = 0, j As Integer = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Bahadirsa Otomatik Key Oluşturma"
Me.Width = 296
Me.Height = 327
Me.Left = 200
Me.Top = 130
Me.MaximizeBox = False
RichTextBox1.Width = 247
RichTextBox1.Height = 135
RichTextBox1.ReadOnly = True
TextBox1.MaxLength = 5
TextBox2.MaxLength = 5
TextBox3.MaxLength = 5
TextBox4.MaxLength = 5
TextBox5.MaxLength = 5
TextBox1.ReadOnly = True
TextBox2.ReadOnly = True
TextBox3.ReadOnly = True
TextBox4.ReadOnly = True
TextBox5.ReadOnly = True
Label1.Text = "Otomatik Key Oluşturma "
Label2.Text = "Oluşturduğunuz Key Sayısı:" + CStr(0)
Timer1.Enabled = True
Timer1.Interval = 10
Button1.Text = "Key Oluştur"
Button2.Text = "Text Olarak Kaydet"
Button3.Text = "Dosyadan Key Yükle"
Button4.Text = "İçeriği Temizle"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim dizi() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "v", "w", "x", "y", "z", 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "?", "+"}
Dim sayı() As Double = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25}
sayı(0) = (i * 300) Mod 62
sayı(1) = ((i + 5) * 20) Mod 62
sayı(2) = ((i * 2323) + 44) Mod 62
sayı(3) = ((i * 15) - 23) Mod 62
sayı(4) = ((3 * i + 45) * 4) Mod 62
TextBox1.Text = CStr(dizi(sayı(0))) & CStr(dizi(sayı(1))) & CStr(dizi(sayı(2))) & CStr(dizi(sayı(3))) & CStr(dizi(sayı(4)))
sayı(5) = (i + 1234) Mod 62
sayı(6) = ((i + 44) * 20) Mod 62
sayı(7) = ((i * 23) + 34) Mod 62
sayı(8) = ((i * 55) - 23) Mod 62
sayı(9) = ((88 * i + 45) * 4) Mod 62
TextBox2.Text = CStr(dizi(sayı(5))) & CStr(dizi(sayı(6))) & CStr(dizi(sayı(7))) & CStr(dizi(sayı(8))) & CStr(dizi(sayı(9)))
sayı(10) = (i) Mod 62
sayı(11) = ((i * 12) + 40) Mod 62
sayı(12) = ((i * 999) + 1234) Mod 62
sayı(13) = ((i * 155) - 12) Mod 62
sayı(14) = ((i * 100 + 20) / 10) Mod 62
TextBox3.Text = CStr(dizi(sayı(10))) & CStr(dizi(sayı(11))) & CStr(dizi(sayı(12))) & CStr(dizi(sayı(13))) & CStr(dizi(sayı(14)))
sayı(15) = (i * 88) Mod 62
sayı(16) = ((i * 2 + 125) * 2) Mod 62
sayı(17) = (((i * 23) - 23) + 44) Mod 62
sayı(18) = ((i * i) + 38) Mod 62
sayı(19) = ((34 * i + 45 - i)) Mod 62
TextBox4.Text = CStr(dizi(sayı(15))) & CStr(dizi(sayı(16))) & CStr(dizi(sayı(17))) & CStr(dizi(sayı(18))) & CStr(dizi(sayı(19)))
sayı(20) = ((i * 23) + 4) Mod 62
sayı(21) = ((i * 150) - 34) Mod 62
sayı(22) = ((2 * i) + 44) Mod 62
sayı(23) = ((i * 12) - 12) Mod 62
sayı(24) = ((10 * i + 45) * 4) Mod 62
TextBox5.Text = CStr(dizi(sayı(20))) & CStr(dizi(sayı(21))) & CStr(dizi(sayı(22))) & CStr(dizi(sayı(23))) & CStr(dizi(sayı(24)))

RichTextBox1.AppendText((TextBox1.Text & "-" & TextBox2.Text & "-" + TextBox3.Text & "-" & TextBox4.Text & "-" & TextBox5.Text) & " ")
j = j + 1
Label2.Text = "Oluşturduğunuz Key Sayısı:" & CStr(j)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
‘TextBox1.MaxLength = 5
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

i = i + 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = "Dosya C:bahadirsa.txt Adresine Kaydedildi..."
RichTextBox1.SaveFile("c:bahadirsa.txt")


End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.Text = "Dosya Yükleme İşlemi"
RichTextBox1.LoadFile("C:bahadirsa.txt")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
RichTextBox1.Clear()
End Sub
End Class

gerçekden güzel paylaşım.teşekkürler