Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: [CS] Générateur de caractères ::

 
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 - 07:09 (2011)    Sujet du message: [CS] Générateur de caractères Répondre en citant

Je l'ai fait pour une utilisation personnel, mais bon, pourquoi pas la poster. A utilisé par exemple pour générer des mot de passes ou des clés


Screen :


Code Source :




  1. Option Strict Off  
  2. Option Explicit On  
  3. Friend 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.   
  9.     Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load  
  10.         charactere(0) = "a"  
  11.         charactere(1) = "b"  
  12.         charactere(2) = "c"  
  13.         charactere(3) = "d"  
  14.         charactere(4) = "e"  
  15.         charactere(5) = "f"  
  16.         charactere(6) = "g"  
  17.         charactere(7) = "h"  
  18.         charactere(8) = "i"  
  19.         charactere(9) = "j"  
  20.         charactere(10) = "k"  
  21.         charactere(11) = "l"  
  22.         charactere(12) = "m"  
  23.         charactere(13) = "n"  
  24.         charactere(14) = "o"  
  25.         charactere(15) = "p"  
  26.         charactere(16) = "q"  
  27.         charactere(17) = "r"  
  28.         charactere(18) = "s"  
  29.         charactere(19) = "t"  
  30.         charactere(20) = "u"  
  31.         charactere(21) = "v"  
  32.         charactere(22) = "w"  
  33.         charactere(23) = "x"  
  34.         charactere(24) = "y"  
  35.         charactere(25) = "z"  
  36.         charactere(26) = "A"  
  37.         charactere(27) = "B"  
  38.         charactere(28) = "C"  
  39.         charactere(29) = "D"  
  40.         charactere(30) = "E"  
  41.         charactere(31) = "F"  
  42.         charactere(32) = "G"  
  43.         charactere(33) = "H"  
  44.         charactere(34) = "I"  
  45.         charactere(35) = "J"  
  46.         charactere(36) = "K"  
  47.         charactere(37) = "L"  
  48.         charactere(38) = "M"  
  49.         charactere(39) = "N"  
  50.         charactere(40) = "O"  
  51.         charactere(41) = "P"  
  52.         charactere(42) = "Q"  
  53.         charactere(43) = "R"  
  54.         charactere(44) = "S"  
  55.         charactere(45) = "T"  
  56.         charactere(46) = "U"  
  57.         charactere(47) = "V"  
  58.         charactere(48) = "W"  
  59.         charactere(49) = "X"  
  60.         charactere(50) = "Y"  
  61.         charactere(51) = "Z"  
  62.         charactere(52) = "1"  
  63.         charactere(53) = "2"  
  64.         charactere(54) = "3"  
  65.         charactere(55) = "4"  
  66.         charactere(56) = "5"  
  67.         charactere(57) = "6"  
  68.         charactere(58) = "7"  
  69.         charactere(59) = "8"  
  70.         charactere(60) = "9"  
  71.   
  72.     End Sub  
  73.   
  74.     Private Sub generate_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles button1.Click  
  75.         Randomize()  
  76.         pass = ""  
  77.         a = 0  
  78.         While (a <= 30)  
  79.             passpass = pass & charactere(CShort(Rnd() * 60))  
  80.             aa = a + 1  
  81.         End While  
  82.         textbox1.Text = pass  
  83.         My.Computer.Clipboard.Clear()  
  84.         My.Computer.Clipboard.SetText(textbox1.Text)  
  85.     End Sub  
  86. End Class  





N'hésitez pas à l'améliorer, vous pouvez changer le nombre de caractères, dans ce cas c'est 31 caractères.

@micalement
@ +


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 07:09 (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