charactere(CShort(Rnd() * 35))les index de tableaux sont des entiers sur 32 bits, donc tu fais une première conversion en entier 16 bits et la framework en refait une derrière toi de 16 bits à 32, passer direct en 32 bits serait plus optimisé, (idem pour ta variable a).
Dim monRandom As new Random() Private Sub generate_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles generate.Click '.... du code à toi avant pass = pass & charactere(monRandom.Next(36))'c'est directement un int inférieur ou égal à 36 '.... du code à toi après
While (a <= 23) '... a = a + 1 End While
For a = 0 to 23 '... Next
charactere(0) = "a" charactere(1) = "b" charactere(2) = "c" charactere(3) = "d" charactere(4) = "e" charactere(5) = "f" charactere(6) = "g" charactere(7) = "h" charactere(8) = "i" charactere(9) = "j" charactere(10) = "k" charactere(11) = "l" charactere(12) = "m" charactere(13) = "n" charactere(14) = "o" charactere(15) = "p" charactere(16) = "q" charactere(17) = "r" charactere(18) = "s" charactere(19) = "t" charactere(20) = "u" charactere(21) = "v" charactere(22) = "w" charactere(23) = "x" charactere(24) = "y" charactere(25) = "z" charactere(26) = "0" charactere(27) = "1" charactere(28) = "2" charactere(29) = "3" charactere(30) = "4" charactere(31) = "5" charactere(32) = "6" charactere(33) = "7" charactere(34) = "8" charactere(35) = "9"
Dim charactere() As Char = { "a"c, "b"c, "c"c, etc.... }
Dim monRandom As new Random() Private Sub generate_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles generate.Click For i As Integer = 0 To 23 Dim rand As Integer = monRandom.Next(36) Dim ascii As Integer = If(rand < 26, rand + 97, rand + 22) pass += Convert.ToChar(ascii).ToString() Next ien respectant le modèle juste des chiffres et des minuscules, sinon il suffit de faire entre les caractères 33 et 126.
'Ferme completement le programme Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing End End Subne sert à rien. En effet, dès que Form1 est fermée, le programme est fini.
Option Strict Off
Option Explicit On
Imports MySql.Data.MySqlClient
Imports System.Threading
Imports System.Text
Friend Class Form1
Inherits System.Windows.Forms.Form
Dim a As Short
Dim pass As String
Dim charactere(35) As String
Public Function IsConnectionAvailable() As Boolean
Dim objUrl As New System.Uri("http://www.youtube.com")
Dim objWebReq As System.Net.WebRequest
objWebReq = System.Net.WebRequest.Create(objUrl)
Dim objresp As System.Net.WebResponse
Try
objresp = objWebReq.GetResponse
objresp.Close()
objresp = Nothing
Return True
Catch ex As Exception
objresp = Nothing
objWebReq = Nothing
Return False
End Try
End Function
Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
If IsConnectionAvailable() = True Then
Else
MsgBox("Cette application requiert une connexion internet et va fermer")
End
End If
' genere 2
charactere(0) = "a"
charactere(1) = "b"
charactere(2) = "c"
charactere(3) = "d"
charactere(4) = "e"
charactere(5) = "f"
charactere(6) = "g"
charactere(7) = "h"
charactere(8) = "i"
charactere(9) = "j"
charactere(10) = "k"
charactere(11) = "l"
charactere(12) = "m"
charactere(13) = "n"
charactere(14) = "o"
charactere(15) = "p"
charactere(16) = "q"
charactere(17) = "r"
charactere(18) = "s"
charactere(19) = "t"
charactere(20) = "u"
charactere(21) = "v"
charactere(22) = "w"
charactere(23) = "x"
charactere(24) = "y"
charactere(25) = "z"
charactere(26) = "0"
charactere(27) = "1"
charactere(28) = "2"
charactere(29) = "3"
charactere(30) = "4"
charactere(31) = "5"
charactere(32) = "6"
charactere(33) = "7"
charactere(34) = "8"
charactere(35) = "9"
End Sub
Private Sub generate_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles generate.Click
'genere un mot de passe
Randomize()
pass = ""
a = 0
While (a <= 23)
pass = pass & charactere(CShort(Rnd() * 35))
a = a + 1
End While
TextBox1.Text = pass
My.Computer.Clipboard.Clear()
My.Computer.Clipboard.SetText(TextBox1.Text)
Dim UserRec = Me.TextBox2.Text
'connection a base de donne
Dim Mysqlconnection As New MySqlConnection
Mysqlconnection.ConnectionString = "server=ip;Port=3306; User ID=username; password=mot de passe; database=lop_forum"
Dim reader As MySqlDataReader
Dim command As New MySqlCommand
Try
Mysqlconnection.Open()
Dim query As String
query = "SELECT * FROM juju_forum.xf_user WHERE user_id='" & UserRec & "'"
query = "UPDATE test_forum.xf_user SET credits='" & TextBox1.Text & "'"
command = New MySqlCommand(query, Mysqlconnection)
reader = command.ExecuteReader
MsgBox("La clé a bien été générer")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Clipboard.SetText(TextBox1.Text)
Dim TextCopie As String = Clipboard.GetText()
Catch ex As Exception
MsgBox("Vous devez d'abord générer un MDP !")
End Try
End Sub
'Ferme completement le programme
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
End
End Sub
End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question