Jump to content
bc-vnt

Random password generator + source code in VB.NET

Recommended Posts

Posted

Downlaod : Random PW Generator.exe download - 2shared

Download2 : Zippyshare.com - Random PW Generator.exe

Public Class Form1

Public Function makepw() As Object
Dim e, f, g, h, j As Object
e = "1256b47b4b42v8924242yvrehr4eh8er4h89erherh19eh89hr849h4r9eh8re9h489re4h89erh89re4hr484hrehrhererje8j949eyuvwebyevyeuvqiubvbuebvebvbviqbqi"
f = Len(e)
g = 30 'This is the lenht of the password
Randomize()
h = ""
For instep = 1 To g
j = Int((f * Rnd())) + 1
h = h & Mid(e, j, 1)
Next
makepw = h
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String
While ListBox1.Items.Count < 100 'Change this number for more passwords
a = makepw()
ListBox1.Items.Add(a)
End While
End Sub
End Class

Posted (edited)

Multumesc.

M-ai am si eu o intrebare la voi, un program de genu' asta dar care sa modifice titlurile unor subiecte, gen: stres + wifi + network in stres - wifi - network , stres , wifi , network, etc, se poate?

Edited by sTrEs
later edit.
Posted
Multumesc.

M-ai am si eu o intrebare la voi, un program de genu' asta dar care sa modifice titlurile unor subiecte, gen: stres + wifi + network in stres - wifi - network , stres , wifi , network, etc, se poate?

Ce subiecte?

Nu inteleg ..

Zici daca ai un string a

string a="stres+wifi+network";

Sa il faci "stres-wifi-network" ?

Posted

sa faca random la ele da, dintr-un titlu sa faca 50-60, daca se poate fara dubluri.

din string-ul a, sa il faca in string-ul b diferit, c, etc, exemplul tau e perfect. poate si la sfarsit sa puna "],>,),[,etc"

Posted
sa faca random la ele da, dintr-un titlu sa faca 50-60, daca se poate fara dubluri.

din string-ul a, sa il faca in string-ul b diferit, c, etc, exemplul tau e perfect. poate si la sfarsit sa puna "],>,),[,etc"

Random rand = new Random(); // facem functia de random

string a = "cacat,pisat,unt";

string b = "-/*.,<>?&^%$#"; // caracterele care vrei sa fie schimbate

string c= b[rand.Next(0,b.Length)].ToString();

a = a.Replace(",", c); // inlocuim virgula cu un caracter random din stringul b

  • Upvote 1
Posted

Am sa incerc sa-l fac, sper sa si reusesc sunt foarte newbie in VB.NET, oricum o sa imi iasa tin sa iti multumesc pentru ajutor si sursa de mai devreme. +rep ca esti un baiat saritor :P

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...