FIEB_PASSWORD_DECRYPT:字符串解密:FIEB_PASSWORD_ENCRYPT:字符串加密.旧版本的可以用. PARAMETERS:str1 type char32 OBLIGATORY, str2 TYPE char32, str3 TYPE char32. INITIALIZATION. clear:str2,str3. AT SELECTION-SCREEN output. if not str1 is INITIAL. CALL FUNCTION 'FIEB_PASS
function Encode(Str: string): string; var //加密 TmpChr: AnsiChar; i, Len: integer; begin Result := Str; Len := Length(Result); TmpChr := Result[1]; for i := 1 to Len - 1 do Result[i] := Result[i + 1]; Result[Len] := TmpChr; end; function Decode(Str: s