Verifying a username and password from a 4D Password system
| 日付 | 2003/03/14 |
|---|---|
| ID | 26331 (英語原文参照) |
| バージョン | 6.7, 6.8.x.4th Dimension 2003 |
| プラットフォーム | Mac & Win |
タイトル
U.S）Verifying a username and password from a 4D Password system
JP）4Dパスワードシステムからユーザ名とパスワードを確認
以下のサンプルメソッドは、4Dパスワードシステムでのユーザ名とパスワードの正当性を確認します。
` プロジェクトメソッド: FN_isValidUser
` 詳細: ユーザ名とパスワードが正しい場合Trueを返し、
` 正しくない場合はFalseを返します。
C_BOOLEAN($0)
C_TEXT($1;$2)
ARRAY TEXT(atUserName;0)
ARRAY LONGINT(alUserID;0)
C_LONGINT($vlElem)
GET USER LIST(atUserName;alUserID)
$vlElem:=Find in array(atUserName;$1)
If ($vlElem>0)
$0:=Validate password(alUserID{$vlElem};$2)
Else
$0:=False
End if