VIDEO 40! - COMO FAZER ENGENHARIA SOCIAL [VB.Net]

VIDEO 40! - COMO FAZER ENGENHARIA SOCIAL [VB.Net 2016] [Visual Basic 2008]

INSTRUÇÕES: ADICIONEM 2 BOTÕES, UMA TEXTBOX,  E DUAS NUMERIC UP DOWNS , APÓS ISSO , CLIQUE DUAS VEZES EM CIMA DA FORM , APERTE CTRL+A , E CTRL+V PARA COLAR OS CÓDIGOSm

Códigos:

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 = "0123456789"

        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

        If NumericUpDown1.Value > 0 And NumericUpDown2.Value > 0 Then

            TextBox1.Text = Generate_Key(NumericUpDown1.Value, NumericUpDown2.Value)

        Else

            MessageBox.Show("Error!!!")

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Clipboard.SetDataObject(TextBox1.Text, True)

    End Sub

End Class

ASSISTA AO VIDEO COMPLETO + TUTORIAL DETALHADO: