استفاده از این محتوا رایگان میباشد

چارا برای خلق ارزش و توسعه مهارت های درونی و رشد استعدادها و جایی برای انجام پروژهای برنامه نویسی هست، هدف ما پیاده سازی ایده شما و توسعه مهارت های فردی کاربران برای ارتقا و اجرای هدفمندانه کسب و کارها میباشد بیشتر آموزش های سایت به صورت رایگان در اختیار شما هستند اما برای دسترسی به همه آموزش ها نیازمند تهیه عضویت ویژه سایت ما میباشید.

قطعه کد ساخت پسورد بیسیک فوراندروید

با استفاده از Sub زیر دوستان میتونن پسورد اتوماتیک ایجاد کنن !

Sub GenerateRandomPassword(numChars As Int, numbers As Boolean, lowercase As Boolean, uppercase As Boolean, symbols As Boolean) As String

   Dim newPassword As String
          
   Dim uppercaseArray(26) As String = Array As String ("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
   Dim lowercaseArray(26) As String = Array As String ("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z")
   Dim numbersArray(10)   As String = Array As String ("۰","۱","۲","۳","۴","۵","۶","۷","۸","۹")
   Dim symbolsArray(12)   As String = Array As String ("@","$","%","&","?","#","!","*","+","-",";","_")

   Dim charList As List
       charList.Initialize
  
   If numbers   Then charList.AddAll(numbersArray)
   If lowercase Then charList.AddAll(lowercaseArray)
   If uppercase Then charList.AddAll(uppercaseArray)
   If symbols   Then charList.AddAll(symbolsArray)
  
   For i = ۱ To numChars
     newPassword = newPassword & charList.Get(Rnd(0, charList.Size))
   Next  
 
   Return newPassword
  

End Sub

سپس از دستورات زیر رو برای فراخانی استفاده کنید

Dim pwd As String =   GenerateRandomPassword(6, False, True, True, False)

LogColor ("New password: " & pwd, Colors.magenta)

از ویو ها خروجی Bitmap بگیرید و ذخیره کنید بیسیک فور اندروید
تابع تبدیل Int به dip بیسیک فور اندروید
, ,

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

این قسمت نباید خالی باشد
این قسمت نباید خالی باشد
لطفاً یک نشانی ایمیل معتبر بنویسید.
شما برای ادامه باید با شرایط موافقت کنید

فهرست