VB08 -- Tutoriel -- Le Random

Dans ce tutoriel, je vais vous montrer comment coder un Random, il est aussi utilisé dans les RAT, les Keyloggers...

Ce tutoriel est en VIsual Basic 2008, par Atrocity.

Public Class Form1
    ' Dans ce tutoriel présenté par Atrocity, je vais vous montrer comment coder un Random.
    ' Il générera des symboles, des nombres, des lettres capitales et des lettres minuscules.
    ' Visual Basic 2008 - http://tutos-tools-actus.doomby.com/

    Dim lowercase = "abcdefghijklmnopqrstuvwxyz"  ' Lettres minuscules
    Dim capitals = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"   ' Lettres capitales
    Dim numbers = "0123456789"                    'Les nombres
    Dim symbols = "!@#$%^&*()_+=-,./?><\][';:{}|" ' Les symboles

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = "" ' Cette TextBox2 donnera le Random généré.
        Dim contains = ""
        If CheckBox1.Checked = True Then contains &= capitals
        If CheckBox2.Checked = True Then contains &= lowercase
        If CheckBox3.Checked = True Then contains &= numbers
        If CheckBox4.Checked = True Then contains &= symbols
        If contains.Length = 0 Then Exit Sub
        Dim randoms As New Random
        For lengh As Integer = 1 To TextBox1.Text
            Dim rndnum = randoms.Next(1, contains.Length)
            Dim strs = Mid(contains, rndnum, 1)
            TextBox2.Text &= strs
        Next
    End Sub
End Class