Bu Videoda Program İçinde '$#½#£#cz^^' Gibi Anahtar Şifreler Oluşturmayı Öğrendik Bu Şekilde Şifre Oluşturucu VB. Hayal Gücünüze Göre Yapabilirsiniz.
Globaller :
Dim Anahtar As String
Private Consts buyukharfler As String = "ABCDEFG"
Anahtar Oluşturma Fonksiyonu :
Private Function GenMask(ByVal Mask As String) As String
Dim random As New Random
Dim output As New StringBuilder
For c As Integer = 0 To Mask.Length -1
If Mask(c) = "#" Then
output.Append(random.Next(0,9))
ElseIf Mask(c) = "?" Then
output.Append(buyukharfler(random.Next(0,buyukharfler.length)))
End If
Next
Return output.ToString
End Function
Button1 Kodları:
anahtar = GenMask("#?")
TextBox1.Text = anahtar
Dim Anahtar As String
Private Consts buyukharfler As String = "ABCDEFG"
Anahtar Oluşturma Fonksiyonu :
Private Function GenMask(ByVal Mask As String) As String
Dim random As New Random
Dim output As New StringBuilder
For c As Integer = 0 To Mask.Length -1
If Mask(c) = "#" Then
output.Append(random.Next(0,9))
ElseIf Mask(c) = "?" Then
output.Append(buyukharfler(random.Next(0,buyukharfler.length)))
End If
Next
Return output.ToString
End Function
Button1 Kodları:
anahtar = GenMask("#?")
TextBox1.Text = anahtar
0 Comment "[VB.NET]Anahtar Oluşturucu Yapımı"
Yorum Gönder