|
|||||||
Version 3 Technical Highlights - Securing AccountsSecureAccount_SubOnce the account has been created the security for the account may be manipulated using SecureAccount_Sub. This takes four parameters as follows - MakeAccount_Sub(Action, AccountName, AccountRow, Flag) where Action A code for the action to be performed having the following possible values 0 Read AccountRow and return 1 Write AccountRow and return. Note that this will automatically encrypt the passwords for you, BUT field 1 of the AccountRow must be set to the name of the Account NOT the literal "ACCOUNT" AccountName The name of the account to work with AccountRow The account row for updating/retrieving from the SysEnv table Flag A result flag having the following possible values 1 An account name was not given 2 Valid SysEnv row but not an account 3 Account does not exist 4 Invalid action code passed Thus to change an account password programmatically one could 0001 * Set password to NEW in account TEST 0002 0003 Declare Subroutine SecureAccount_Sub, Msg 0004 Equ AccountName$ To "TEST" 0005 Equ ReadAccount$ To 0 0006 Equ WriteAccount$ To 1 0007 0008 SecureAccount_Sub(ReadAccount$, "TEST", AccRow, Flag) 0009 If Flag Then 0010 Msg("Error " : Flag) 0011 End Else 0012 AccRow<1> = "TEST" 0013 AccRow<6> = "NEW" ; * Set password to NEW 0014 SecureAccount_Sub(WriteAccount$ , "TEST", AccRow, Flag) 0015 If Flag Then Msg("Error " : Flag) 0016 End (Volume 4, Issue 6, Pages 9,10) |
|||||||
| |||||||