ケースセンシティブなパスワード機構
| 日付 | 2002/02/08 |
|---|---|
| ID | 01-835 |
| バージョン | 6.5.x and 6.7.x |
| プラットフォーム | Windows and Mac OS |
カスタム・パスワード・システムを考案する必要があれば、最も恐らくそれにケース敏感でほしいでしょう。4Dのストリングの比較はケース敏感ではありません。例えば、これらの2つのストリングは、4Dにおいて等しいと考えられます:「こんにちは」、「HeLLo。」これらのストリングを区別することができる方法を書くことは容易です。
`Project Method: GEN_StringsAreIdentical
`Example: $fIdentical:=GEN_StringsAreIdentical("hello";"HeLLo")
$tString1:=$1
$tString2:=$2
C_LONGINT($iIdx)
Case of
: (Length($tString1)#Length($tString2))
$0:=False
Else
$0:=True
For ($iIdx;1;Length($tString1))
Case of
: (Ascii($tString1?$iIdx?)#Ascii($tString2?$iIdx?))
$iIdx:=Length($tString1)+1
$0:=False
End case
IDLE
End for
End case