home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / seclau / seclau.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  2.8 KB  |  91 lines
  1. Global MasterPassword As String
  2. Global ProgramPassword As String
  3. Global ProgramName As String
  4.  
  5. Static Sub CvtRecord (X$)
  6. For Z = 1 To Len(X$)
  7.         Mid$(X$, Z, 1) = Chr$(255 Xor Asc(Mid$(X$, Z, 1)))
  8.     Next Z
  9. End Sub
  10.  
  11. Sub Main ()
  12.     On Local Error GoTo MainError
  13.     Open "SECLAU.INI" For Input As #1
  14.     Line Input #1, InputRecord$
  15.     Call CvtRecord(InputRecord$)
  16.     MasterPassword = InputRecord$
  17.     While Not EOF(1)
  18.         Line Input #1, InputRecord$
  19.         Call CvtRecord(InputRecord$)
  20.         X = InStr(InputRecord$, Chr$(9))
  21.         PD$ = Left$(InputRecord$, X - 1)
  22.         InputRecord$ = Mid$(InputRecord$, X + 1)
  23.         X = InStr(InputRecord$, Chr$(9))
  24.         PN$ = Left$(InputRecord$, X - 1)
  25.         InputRecord$ = Mid$(InputRecord$, X + 1)
  26.         Launch_Form.ProgList.AddItem PD$
  27.         Launch_Form.Program.AddItem PN$
  28.         Launch_Form.Password.AddItem InputRecord$
  29.     Wend
  30.     Close 1
  31.     Launch_Form.Visible = True
  32.     Exit Sub
  33.  
  34. MainError:
  35.     MasterPassword = "PASSWORD"
  36.     Launch_Form.ProgList.AddItem "System Editor"
  37.     Launch_Form.Program.AddItem "SYSEDIT.EXE"
  38.     Launch_Form.Password.AddItem "SYSEDIT"
  39.     Launch_Form.Visible = True
  40.     Exit Sub
  41. End Sub
  42.  
  43. Sub RecordMaint ()
  44.     Launch_Form.ProgList.Clear
  45.     Launch_Form.Program.Clear
  46.     Launch_Form.Password.Clear
  47.  
  48.    For X% = 0 To MantForm.ProgList.ListCount - 1
  49.         MantForm.ProgList.ListIndex = X%
  50.         MantForm.Program.ListIndex = X%
  51.         MantForm.Password.ListIndex = X%
  52.         Launch_Form.ProgList.AddItem MantForm.ProgList.Text
  53.         Launch_Form.Program.AddItem MantForm.Program.Text
  54.         Launch_Form.Password.AddItem MantForm.Password.Text
  55.     Next X%
  56. End Sub
  57.  
  58. Sub SaveINI ()
  59.     Open "SECLAU.INI" For Output As #1
  60.     OutputRecord$ = MasterPassword
  61.     Call CvtRecord(OutputRecord$)
  62.     Print #1, OutputRecord$
  63.     For X% = 0 To Launch_Form.ProgList.ListCount - 1
  64.         Launch_Form.ProgList.ListIndex = X%
  65.         Launch_Form.Program.ListIndex = X%
  66.         Launch_Form.Password.ListIndex = X%
  67.         OutputRecord$ = Launch_Form.ProgList.Text + Chr$(9) + Launch_Form.Program.Text + Chr$(9) + Launch_Form.Password.Text
  68.         Call CvtRecord(OutputRecord$)
  69.         Print #1, OutputRecord$
  70.     Next X%
  71.     
  72.     Close 1
  73.  
  74. End Sub
  75.  
  76. Sub SetupMaint ()
  77.         MantForm.ProgList.Clear
  78.         MantForm.Program.Clear
  79.         MantForm.Password.Clear
  80.  
  81.     For X% = 0 To Launch_Form.ProgList.ListCount - 1
  82.         Launch_Form.ProgList.ListIndex = X%
  83.         Launch_Form.Program.ListIndex = X%
  84.         Launch_Form.Password.ListIndex = X%
  85.         MantForm.ProgList.AddItem Launch_Form.ProgList.Text
  86.         MantForm.Program.AddItem Launch_Form.Program.Text
  87.         MantForm.Password.AddItem Launch_Form.Password.Text
  88.     Next X%
  89. End Sub
  90.  
  91.