DniproPirate

Free Password Generator

Nov 10th, 2011
272
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Global Msg1$
  2.  
  3. Enumeration
  4.   #Window_0
  5. EndEnumeration
  6.  
  7. Enumeration
  8.   #Combo_Lang
  9.   #Text_Lang
  10.   #Spin_PassLen
  11.   #Text_KeyLen
  12.   #Frame3D_TKWC
  13.   #CheckBox_N
  14.   #CheckBox_BL
  15.   #CheckBox_SL
  16.   #Button_ToClipboard
  17.   #Button_Generate
  18.   #String_Pass
  19. EndEnumeration
  20.  
  21. Enumeration
  22.   #UKR_LANG
  23.   #ENG_LANG
  24.   #RUS_LANG
  25. EndEnumeration
  26.  
  27. Procedure SetWindowLang(Lang)
  28. Select Lang
  29. Case #UKR_LANG:
  30.   SetGadgetText(#CheckBox_N, "Цифри")
  31.   SetGadgetText(#CheckBox_BL, "Великі літери")
  32.   SetGadgetText(#CheckBox_SL, "Малі літери")
  33.   SetGadgetText(#Text_Lang, "Мова:")
  34.   SetGadgetText(#Text_KeyLen, "Довжина пароля:")
  35.   SetGadgetText(#Button_ToClipboard, "До буфера обміну")
  36.   SetGadgetText(#Button_Generate, "Створити")
  37.   SetGadgetText(#Frame3D_TKWC, "Пароль міститиме")
  38.   Msg1$="Алфавіт пароля порожній!"
  39. Case #ENG_LANG
  40.   SetGadgetText(#CheckBox_N, "Numbers")
  41.   SetGadgetText(#CheckBox_BL, "Big letters")
  42.   SetGadgetText(#CheckBox_SL, "Small letters")
  43.   SetGadgetText(#Text_Lang, "Language:")
  44.   SetGadgetText(#Text_KeyLen, "Pass length:")
  45.   SetGadgetText(#Button_ToClipboard, "To clipboard")
  46.   SetGadgetText(#Button_Generate, "Generate")
  47.   SetGadgetText(#Frame3D_TKWC, "The password will contains")  
  48.   Msg1$="Alphabet of password is empty!"
  49. Case #RUS_LANG
  50.   SetGadgetText(#CheckBox_N, "Цифры")
  51.   SetGadgetText(#CheckBox_BL, "Заглавные буквы")
  52.   SetGadgetText(#CheckBox_SL, "Строчные буквы")
  53.   SetGadgetText(#Text_Lang, "Язык:")
  54.   SetGadgetText(#Text_KeyLen, "Длина пароля:")
  55.   SetGadgetText(#Button_ToClipboard, "В буфер обмена")
  56.   SetGadgetText(#Button_Generate, "Создать")
  57.   SetGadgetText(#Frame3D_TKWC, "Пароль будет содержать")  
  58.   Msg1$="Алфавит пароля пуст!"
  59. EndSelect
  60. EndProcedure
  61.  
  62. Procedure Open_Window_0()
  63.   If OpenWindow(#Window_0, 331, 31, 261, 237, "Free Password Generator",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
  64.       ComboBoxGadget(#Combo_Lang, 80, 20, 160, 20)
  65.       AddGadgetItem(#Combo_Lang, -1,"Українська")
  66.       AddGadgetItem(#Combo_Lang, -1,"English")
  67.       AddGadgetItem(#Combo_Lang, -1, "Русский")
  68.       SetGadgetState(#Combo_Lang, 1)
  69.       TextGadget(#Text_Lang, 10, 20, 60, 20, "")
  70.       SpinGadget(#Spin_PassLen, 80, 60, 50, 20, 4, 50, #PB_Spin_Numeric)
  71.       SetGadgetState(#Spin_PassLen, 8)
  72.       TextGadget(#Text_KeyLen, 10, 55, 60, 30, "")
  73.       Frame3DGadget(#Frame3D_TKWC, 10, 90, 240, 80, "")
  74.       CheckBoxGadget(#CheckBox_N, 20, 110, 90, 20, "")
  75.       CheckBoxGadget(#CheckBox_BL, 120, 110, 110, 20, "")
  76.       CheckBoxGadget(#CheckBox_SL, 20, 140,100, 20, "")
  77.       ButtonGadget(#Button_ToClipboard, 10, 180, 140, 20, "")
  78.       ButtonGadget(#Button_Generate, 160, 180, 90, 20, "")
  79.       StringGadget(#String_Pass, 10, 210, 240, 20, "")
  80.       SetWindowLang(1)
  81.   EndIf
  82. EndProcedure
  83.  
  84. Open_Window_0()
  85. Repeat
  86.   EventID = WaitWindowEvent()
  87.   If EventID = #PB_Event_Gadget
  88.     Select EventGadget()
  89.     Case #Combo_Lang:
  90.        SetWindowLang(GetGadgetState(#Combo_Lang))
  91.     Case #Button_Generate:
  92.        PassAlphabet$=""
  93.        If GetGadgetState(#CheckBox_BL)=#PB_Checkbox_Checked
  94.          PassAlphabet$=PassAlphabet$+"ABCDEFGHIJKLMNOPQRSTUVWXYZ"      
  95.        EndIf
  96.        If GetGadgetState(#CheckBox_SL)=#PB_Checkbox_Checked
  97.          PassAlphabet$=PassAlphabet$+"abcdefghijklmnopqrstuvwxyz"      
  98.        EndIf
  99.        If GetGadgetState(#CheckBox_N)=#PB_Checkbox_Checked
  100.          PassAlphabet$=PassAlphabet$+"0123456789"      
  101.        EndIf
  102.        If PassAlphabet$=""
  103.           MessageBox_(NULL, Msg1$, "Free Password Generator", 16)
  104.        Else
  105.          X=Len(PassAlphabet$)
  106.          Pass$=""
  107.          PassLen=GetGadgetState(#Spin_PassLen)
  108.          For N = 1 To PassLen
  109.          Pass$=Pass$+Mid(PassAlphabet$, Random(X-1)+1, 1)
  110.          Next N
  111.          SetGadgetText(#String_Pass, Pass$)
  112.        EndIf
  113.     Case #Button_ToClipboard:
  114.     SetClipboardText(GetGadgetText(#String_Pass))
  115.     EndSelect
  116.   EndIf
  117. Until EventID = #PB_Event_CloseWindow
  118.  
RAW Paste Data