PDA

View Full Version : ایجاد username و password کاملا تصادفی



marzban
چهارشنبه 23 خرداد 1386, 08:55 صبح
با سلام
می خواستم برنامه ای بنویسم که یک username وpassword را بصورت کاملا تصادفی و غیر تکراری ایجاد کنه.
چون خود تابع رندوم VB ساختاری قابل پیش بینی داره مطمعنا باید چیزی به این تابع اضافه بشه.
لطفا اگر ممکن هست راهنمایی کنید .
اگر قطعه کد هم باشه خیلی ممنون می شم.
با تشکر مرزبان

my_acc60
چهارشنبه 23 خرداد 1386, 11:24 صبح
می تونی قبل از این کد استفاده کنی

randomize
()Rnd

این طوری عدد ها کاملا تصادفی تولید میشه

marzban
چهارشنبه 23 خرداد 1386, 11:35 صبح
با اینکه این تابع کد رندوم تولید می کنه ولی ار شما دو بار برنامه خود را اجرا کنید در هر دوبار یک عدد رو نمایش میده.
مثلا اگر یک بار عدد 7 رو نمایش بده اگر برنامه را ببندبد و باز کنید و اجرا کنید،دوباره اولین عدد نمایشی اش با 7 شروع می شه.
می خواستم جلوی این تکرار بی مورد را بگیرم.
امید وارم منظورم را خوب توضیح داده باشم.
با تشکر مرزبان

amin727
چهارشنبه 23 خرداد 1386, 11:53 صبح
برای تولید از زمان ، تاریخ و یک عدد رندوم به صورت مشترک استفاده کن چون نموتونه تکراری بشه ...

eyes_shut_number1
جمعه 25 خرداد 1386, 09:05 صبح
دوست عزیز من یکم گشتم تابعی برای این کار نبود!یا شایدم بنده پیدا نکردم.اما این کار پیشه پا افتاده به نظرم رسید میدونم که همه این به ذهنشون میرهسه ولی خوب ما هم میگیم



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Arraylist(25) As Char
ListBox1.Items.Clear()
Arraylist(0) = "q"
Arraylist(1) = "w"
Arraylist(2) = "e"
Arraylist(3) = "r"
Arraylist(4) = "t"
Arraylist(5) = "y"
Arraylist(6) = "u"
Arraylist(7) = "i"
Arraylist(8) = "o"
Arraylist(9) = "p"
Arraylist(10) = "a"
Arraylist(11) = "s"
Arraylist(12) = "d"
Arraylist(13) = "f"
Arraylist(14) = "g"
Arraylist(15) = "h"
Arraylist(16) = "j"
Arraylist(17) = "k"
Arraylist(18) = "l"
Arraylist(19) = "z"
Arraylist(20) = "x"
Arraylist(21) = "c"
Arraylist(22) = "v"
Arraylist(23) = "b"
Arraylist(24) = "n"
Arraylist(25) = "m"
Dim rnd As New System.Random
Dim temp As Integer
For i As Integer = 0 To 9
temp = rnd.Next(0, 25)
ListBox1.Items.Add(Arraylist(temp))
Next
End Sub

eyes_shut_number1
جمعه 25 خرداد 1386, 09:11 صبح
در ضمن کد رندمی که دوستمون دادن رو اگه با این کد درست کنید اون مشکل پیش نمیاد



Dim Rnd As System.Random
Rnd.next()

marzban
جمعه 25 خرداد 1386, 11:39 صبح
با تشکر از همه که سعی دارند کمک کنند.
ببینید دوستان تمام اینهایی رو که می فرمودید متین
ولی یک مشکل دارند که کمتر مورد توجه قرار میگیرند.
وقتی شما از تابع random استفاده می کنید اگر دوبار غیر متوالی آن را اجرا کنید (یعنی کل برنامه را ببندید و دوباره باز کنید) یک عدد را نمایش میدهد یعنی اولین مقدار رندم در یک کامپیوتر همیشه یک مقدار است.
این کد رو برای ایجاد username و password کارت اینترنت می خواستم.
اون چیزی که دوست عزیز Amin727 فرموده بودند صحیح بود .
با کاری که گفته بودند مشکلم حل شد.
با تشکر از همه دوستان
مرزبان

Microsoft.net
جمعه 25 خرداد 1386, 21:08 عصر
یه کار دیگه هم میتونی انجام بدی تاریخ و ساعت و دقیقه و ثانیه و میلی ثانیه رو بگیر با هم مخلوط کن بعد توسط یه تابع مثل MD5 اونو Hash کن و ازش استفاده کن