[VB.NET] Gerador de Strings

[Visitante]

Irá precisar de:

2 - NumericUpDown

1 - Button

1 - TextBox

1 - Timer

 

Tutorial Programa:

#NumericUpDown:

NumericUpDown1 = Posicione em algum lugar desejado e coloque um valor de 15 pra cima que será o valor de caractéres da string.

NumericUpDown2 = Coloque como valor o número 1 somente.

 

#Button:

Button1 = Coloque o nome de COPIAR

 

#TextBox

TextBox1 = Deixe sem nenhum nome posicione onde quiser.

 

#Timer

Timer1: Coloque o Timer na Form1 não coloque nenhum código nele.

 

No Final esse Será o Resultado:

 

Após isso vá no código da Form1, Apague tudo e cole esse código:

 

'1 BUTTON'1 TEXTBOX'2 NUMERICUPDONW'1 TIMER'Criado por Soften'Não Modifique o Codigo'========================================='STRING PARA VOCÊ MODIFICAR [FUD]'ÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßþÿĀāĂăŗŘřŚśŜŝŞΞΟΠΡΣΤΥΦΧĴĵĶķĸĹĺĻļÙÚÛÜÝÞßþÿĀāĂăŗŘřŚśŜ'úûüýþÿĀāĂ㥹ĆćĈĉĊċČčĎŁłŃńŅņŇňʼnŊŋŖŗŘřŚśŜŝŞşŠĬĭĮįİıIJijĴĵĶķĸĹĺĻļÙÚÛÜÝÞßþÿĀāĂăŗŘřŚś'ďĐđĒēĔĕĖėĘęĚěĜĝĞğĠġĢĒēĔĕĖėĘęÿĀāĂ㥹čĎŁłŃńŅņŇňʼnŊŚśŜŝŞşŠšŢţŤťŦŧŨĭĮįİı Public Class Form1    Dim RND As New Random    Public Function Generate_Key(ByVal length As Integer, ByVal blocks As Integer, Optional ByVal stringsplitchars As String = "-")        Dim key As String = String.Empty        Dim keychars As String = "ďĐđĒēĔĕĖėĘęĚěĜĝĞğĠġĢĒēĔĕĖėĘęÿĀāĂ㥹čĎŁłŃńŅņŇňʼnŊŚśŜŝŞşŠšŢţŤťŦŧŨĭĮįİı"        For b = 0 To blocks - 1            For l = 0 To length - 1                key &= keychars(RND.Next(0, keychars.Length - 1))            Next            key &= IIf(blocks - 1 = b, String.Empty, stringsplitchars)        Next        Return key    End Function    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        TextBox1.SelectAll()        TextBox1.Copy()    End Sub     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        If NumericUpDown1.Value > 0 And NumericUpDown2.Value > 0 Then            TextBox1.Text = Generate_Key(NumericUpDown1.Value, NumericUpDown2.Value)        Else            MessageBox.Show("Erro")        End If    End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Timer1.Start()    End SubEnd Class

Caso Quiser que ás Strings Geradas Mudem basta alterar essa parte do código:

 

Dim keychars As String = "úûüýþÿàáâãäåæçèéêëìíîïðñòóôõöĀāĂ㥹ĆćĈĉĊċČčĎĽľĿŀŁłŃńŅņŇňʼnŊŋŌōŎŏŐő"para um dos seguintes valores:'STRING PARA VOCÊ MODIFICAR [FUD]'ÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßþÿĀāĂăŗŘřŚśŜŝŞΞΟΠΡΣΤΥΦΧĴĵĶķĸĹĺĻļÙÚÛÜÝÞßþÿĀāĂăŗŘřŚśŜ'úûüýþÿĀāĂ㥹ĆćĈĉĊċČčĎŁłŃńŅņŇňʼnŊŋŖŗŘřŚśŜŝŞşŠĬĭĮįİıIJijĴĵĶķĸĹĺĻļÙÚÛÜÝÞßþÿĀāĂăŗŘřŚś'ďĐđĒēĔĕĖėĘęĚěĜĝĞğĠġĢĒēĔĕĖėĘęÿĀāĂ㥹čĎŁłŃńŅņŇňʼnŊŚśŜŝŞşŠšŢţŤťŦŧŨĭĮįİı

 

Bom é isso, Lembrando que não é Necessário Mudar o FUD pois ás Strings serão aleatórias da mesma maneira mudar o FUD só irá mudar á sequencia de Strings, Bom Uso

 

Créditos

Soften (pelo código e pelo tutorial)

REP+ PARA FAZER O XTIBIA CRESCER AINDA MAIS

[JACKCHAAAAN 0]

Vai Ajudar muito, REP+

[Visitante]

Excelente, Reputado !!!

[CamaroChave 0]

Excelente, REP+ Pra você garoto

[Sherlocs 0]

Gostei