Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Password_Generator 1.0 - MainForm.vb

MainForm.vb

 Caricato da:
Scarica il programma completo

  1. 
  2. ' Autore: Dark_Limit
  3. ' Data: 30/01/2008
  4. ' Generatore di password numeriche versione 1.0 !
  5. '
  6. Public Partial Class MainForm
  7.         Public Sub New()
  8.                 ' The Me.InitializeComponent call is required for Windows Forms designer support.
  9.                 Me.InitializeComponent()
  10.                
  11.                
  12.         End Sub
  13.        
  14.         Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs)
  15.                 system.Threading.Thread.Sleep(2000)
  16.                 me.progressBar1.Value=0
  17.                 Dim paswd1 As string
  18.             Dim paswd2 As string
  19.             Dim paswd3 As string
  20.             Dim paswd4 As string
  21.             Dim paswd5 As String
  22.             Dim paswd6 As String
  23.             Dim paswd7 As String
  24.             Dim paswd8 As String
  25.             Dim paswd9 As String
  26.             Dim paswd10 As String
  27.             Dim paswd11 As String
  28.             Dim paswd12 As String
  29.             Dim paswd13 As String
  30.             dim paswd14 as String
  31.             Dim result As String
  32.          If Me.radioButton1 .Checked = True Then
  33.                
  34.                 paswd1=int(rnd() *2918) +32
  35.                 paswd2=int(rnd() *219) +12
  36.                 result = paswd1+paswd2
  37.                 Me.listBox1.Items.Add(result)
  38.          ElseIf Me.radioButton2 .Checked = True Then
  39.          
  40.                         paswd1= int(rnd() *35263)+78
  41.                         paswd2= int(rnd() *220) +14
  42.                         paswd3=int(rnd() *72) +26
  43.                         result=paswd1+paswd2+paswd3
  44.                         Me.listBox1.Items.Add(result)
  45.                 ElseIf Me.radioButton3 .Checked = True Then
  46.                
  47.                         paswd1 = int(rnd() *49387) +134
  48.                         paswd2 = int(rnd() *298) +16
  49.                         paswd3= int(rnd() *76) +27
  50.                         paswd4=int(rnd() *52) +10
  51.                         result= paswd1+paswd2+paswd3+paswd4
  52.                         Me.listBox1.Items.Add (result)
  53.                 ElseIf Me.radioButton4 .Checked=True Then
  54.                
  55.                         paswd1= int (rnd() *53928) + 132
  56.                         paswd2=int(rnd() *310) +21
  57.                         paswd3= int(rnd() *242) +65
  58.                         paswd4= int(rnd() *846) +32
  59.                         paswd5= int( rnd() *423) +9
  60.                         result=paswd1+paswd2+paswd3+paswd4+paswd5
  61.                         Me.listBox1.Items.Add(result)
  62.                 ElseIf Me.radioButton5 .Checked=True Then
  63.                
  64.                 paswd1= int(rnd() *637276) +289
  65.                         paswd2=int(rnd() *298) +278
  66.                         paswd3= int(rnd()*281938) +293
  67.                         paswd4=int(rnd() *281) +38
  68.                         paswd5= int(rnd() *129) +78
  69.                         paswd6= int(rnd() *2189) +281
  70.                         paswd7 = int(rnd() *189)+27
  71.                         result=paswd1+paswd2+paswd3+paswd4+paswd5+paswd6+paswd7
  72.                 Me.listBox1.Items.Add(result)
  73.                         system.Threading.Thread.Sleep(2000)
  74.                        
  75.                 ElseIf Me.radioButton6 .Checked =True Then
  76.                
  77.                         paswd1=int(rnd() * 8473987) +2819
  78.                         paswd2=int(rnd() * 2128) +382
  79.                         paswd3=int(rnd() * 21987) +35
  80.                         paswd4=int(rnd() * 3728) +9
  81.                         paswd5=int(rnd() * 198) +98
  82.                         paswd6=int(rnd() * 56) +362
  83.                         paswd7=int(rnd() * 28) +219
  84.                         paswd8=int(rnd() * 3732) +362
  85.                         paswd9=int(rnd() * 329483) +7362
  86.                         result= paswd1+paswd2+paswd3+paswd4+paswd5+paswd6+paswd7+paswd8+paswd9
  87.                         Me.listBox1.Items.Add(result)
  88.                        
  89.                         system.Threading.Thread.Sleep (2000)
  90.                        
  91.                 ElseIf Me.radioButton7 .Checked =True Then
  92.                
  93.                         paswd1=int(rnd() * 8473987) +2819
  94.                         paswd2=int(rnd() * 2211) +382
  95.                         paswd3=int(rnd() * 39287) +35
  96.                         paswd4=int(rnd() * 352) +98
  97.                         paswd5=int(rnd() * 73) +93
  98.                         paswd6=int(rnd() * 3883) +93029
  99.                         paswd7=int(rnd() * 28) +219
  100.                         paswd8=int(rnd() * 38) +352
  101.                         paswd9=int(rnd() * 64) +32
  102.                         paswd10=int(rnd() *2819) +19
  103.                         result= paswd1+paswd2+paswd3+paswd4+paswd5+paswd6+paswd7+paswd8+paswd9+paswd10
  104.                         me.listBox1.Items.Add(result)
  105.                 ElseIf Me.radioButton8 .Checked =True Then
  106.                
  107.                         paswd1=int(rnd() * 8473987) +732
  108.                         paswd2=int(rnd() * 2211) +53
  109.                         paswd3=int(rnd() * 32317) +35
  110.                         paswd4=int(rnd() * 832) +98
  111.                         paswd5=int(rnd() * 735) +93
  112.                         paswd6=int(rnd() * 93928) +8
  113.                         paswd7=int(rnd() * 28) +219
  114.                         paswd8=int(rnd() * 58) +829
  115.                         paswd9=int(rnd() * 84) +32
  116.                         paswd10=int(rnd() *8392) +62
  117.                         paswd11= int ( rnd() *182)+28
  118.                         result= paswd1+paswd2+paswd3+paswd4+paswd5+paswd6+paswd7+paswd8+paswd9+paswd10+paswd11
  119.                         Me.listBox1.Items.Add(result)
  120.                 ElseIf Me.radioButton9 .Checked =True Then
  121.                
  122.                         paswd1=int(rnd() * 8473987) +732
  123.                         paswd2=int(rnd() * 2211) +53
  124.                         paswd3=int(rnd() * 32317) +35
  125.                         paswd4=int(rnd() * 365812) +98
  126.                         paswd5=int(rnd() * 3782) +93
  127.                         paswd6=int(rnd() * 37292819) +8
  128.                         paswd7=int(rnd() * 2718) +738
  129.                         paswd8=int(rnd() * 58) +829
  130.                         paswd9=int(rnd() * 83) +32
  131.                         paswd10=int(rnd() *8392) +62
  132.                         paswd11= int ( rnd() *182)+28
  133.                         paswd12=int(rnd() *17239) +27
  134.                         result= paswd1+paswd2+paswd3+paswd4+paswd5+paswd6+paswd7+paswd8+paswd9+paswd10+paswd11+paswd12
  135.                         Me.listBox1.Items.Add(result)
  136.                 ElseIf Me.radioButton10 .Checked=True Then
  137.          
  138.                         paswd1=int(rnd() * 8473987) +732
  139.                         paswd2=int(rnd() * 2211) +53
  140.                         paswd3=int(rnd() * 728761) +350
  141.                         paswd4=int(rnd() * 81962) +982
  142.                         paswd5=int(rnd() * 3782) +932
  143.                         paswd6=int(rnd() * 37292819) +638
  144.                         paswd7=int(rnd() * 372871) +738
  145.                         paswd8=int(rnd() * 58) +829
  146.                         paswd9=int(rnd() * 83) +32
  147.                         paswd10=int(rnd() *728761) +62
  148.                         paswd11= int ( rnd() *78176)+289
  149.                         paswd12=int(rnd() *733) +27
  150.                         paswd13=int(rnd() *91087) +12
  151.                         paswd14=int(rnd()*721786)+127
  152.                         result= paswd1+paswd2+paswd3+paswd4+paswd5+paswd6+paswd7+paswd8+paswd9+paswd10+paswd11+paswd12+paswd13+paswd14
  153.                         Me.listBox1.Items.Add(result)
  154.        
  155.                        
  156.                 End If
  157.                
  158.                     Me.progressBar1.PerformStep
  159.                     Me.progressBar1.PerformStep
  160.                         Me.progressBar1.PerformStep
  161.                         Me.progressBar1.PerformStep
  162.                         Me.progressBar1.PerformStep
  163.                         Me.progressBar1.PerformStep
  164.                         Me.progressBar1.PerformStep
  165.                         Me.progressBar1.PerformStep
  166.                         Me.progressBar1.PerformStep
  167.                         Me.progressBar1.PerformStep
  168.                         Me.progressBar1.PerformStep
  169.                        
  170.         End Sub
  171. End Class