Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: Générateur de serial chaîne de 25 caractères. VB.net ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Dim 11 Déc - 12:13 (2011)    Sujet du message: Générateur de serial chaîne de 25 caractères. VB.net Répondre en citant

Voici une variante du générateur de sérial de ce post http://hack.xooit.com/t142-CS-Generateur-de-caracteres.htm






code source



  1. Option Strict Off  
  2. Option Explicit On  
  3. Public Class Form1  
  4.     Inherits System.Windows.Forms.Form  
  5.     Dim a As Short  
  6.     Dim pass As String  
  7.     Dim charactere(60) As String  
  8.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
  9.         charactere(1) = "A"  
  10.         charactere(2) = "B"  
  11.         charactere(3) = "C"  
  12.         charactere(4) = "D"  
  13.         charactere(5) = "E"  
  14.         charactere(6) = "F"  
  15.         charactere(7) = "G"  
  16.         charactere(8) = "H"  
  17.         charactere(9) = "I"  
  18.         charactere(10) = "J"  
  19.         charactere(11) = "K"  
  20.         charactere(12) = "L"  
  21.         charactere(13) = "M"  
  22.         charactere(14) = "N"  
  23.         charactere(15) = "O"  
  24.         charactere(16) = "P"  
  25.         charactere(17) = "Q"  
  26.         charactere(18) = "R"  
  27.         charactere(19) = "S"  
  28.         charactere(20) = "T"  
  29.         charactere(21) = "U"  
  30.         charactere(22) = "V"  
  31.         charactere(23) = "W"  
  32.         charactere(24) = "X"  
  33.         charactere(25) = "Y"  
  34.         charactere(26) = "Z"  
  35.         charactere(27) = "1"  
  36.         charactere(28) = "2"  
  37.         charactere(29) = "3"  
  38.         charactere(30) = "4"  
  39.         charactere(31) = "5"  
  40.         charactere(32) = "6"  
  41.         charactere(33) = "7"  
  42.         charactere(34) = "8"  
  43.         charactere(35) = "9"  
  44.     End Sub  
  45.   
  46.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  47.         Randomize()  
  48.         pass = ""  
  49.         a = 0  
  50.         While (a <= 4)  
  51.             passpass = pass & charactere(CShort(Rnd() * 35))  
  52.             aa = a + 1  
  53.         End While  
  54.         TextBox1.Text = pass  
  55.         My.Computer.Clipboard.Clear()  
  56.         My.Computer.Clipboard.SetText(TextBox1.Text)  
  57.         Randomize()  
  58.         pass = ""  
  59.         a = 0  
  60.         While (a <= 4)  
  61.             passpass = pass & charactere(CShort(Rnd() * 35))  
  62.             aa = a + 1  
  63.         End While  
  64.         TextBox2.Text = pass  
  65.         My.Computer.Clipboard.Clear()  
  66.         My.Computer.Clipboard.SetText(TextBox1.Text)  
  67.         Randomize()  
  68.         pass = ""  
  69.         a = 0  
  70.         While (a <= 4)  
  71.             passpass = pass & charactere(CShort(Rnd() * 35))  
  72.             aa = a + 1  
  73.         End While  
  74.         TextBox3.Text = pass  
  75.         My.Computer.Clipboard.Clear()  
  76.         My.Computer.Clipboard.SetText(TextBox1.Text)  
  77.         Randomize()  
  78.         pass = ""  
  79.         a = 0  
  80.         While (a <= 4)  
  81.             passpass = pass & charactere(CShort(Rnd() * 35))  
  82.             aa = a + 1  
  83.         End While  
  84.         TextBox4.Text = pass  
  85.         My.Computer.Clipboard.Clear()  
  86.         My.Computer.Clipboard.SetText(TextBox1.Text)  
  87.         Randomize()  
  88.         pass = ""  
  89.         a = 0  
  90.         While (a <= 4)  
  91.             passpass = pass & charactere(CShort(Rnd() * 35))  
  92.             aa = a + 1  
  93.         End While  
  94.         TextBox5.Text = pass  
  95.         My.Computer.Clipboard.Clear()  
  96.         My.Computer.Clipboard.SetText(TextBox1.Text)  
  97.     End Sub  
  98. End Class  






_________________


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 12:13 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com