| Playing with Scan Codes |
| QTIPS - Compiling Protection Code |
| QTIPS - Invalid Code and Command |
| QTIPS - Code/Command Help |
| Compiling 64K on a Shoestring by Blaise Wrenn (LexStat Systems Ltd) |
| Reader's Clinic - Prompting for Passwords |
| VERBatim - V64 |
| QTIPS - Accessing Password Protected SYSPROG |
| Reader's Clinic - Functions and Subroutines |
| Argument passing - Subroutines and Functions - Mike Pope |
RevMedia FKB
| Document | V4I6A12 |
| Title | Version 3 Technical Highlights - Securing Accounts |
| Keywords | SECUREACCOUNT_SUB SECURE ACCOUNT |
| Text | SecureAccount_Sub Once 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 * Set password to NEW in account TEST Declare Subroutine SecureAccount_Sub Msg Equ AccountName$ To "TEST" Equ ReadAccount$ To 0 Equ WriteAccount$ To 1 SecureAccount_Sub(ReadAccount$ "TEST" AccRow Flag) If Flag Then Msg("Error " : Flag) End Else AccRow<1> = "TEST" AccRow<6> = "NEW" ; * Set password to NEW SecureAccount_Sub(WriteAccount$ "TEST" AccRow Flag) If Flag Then Msg("Error " : Flag) End (Volume 4 Issue 6 Pages 9 10) |
Page last modified: 08/02/03