function UncrypStr(const __src, __key: string): string;var nKeyLen, nKeyPos, nOffSet, nSrcPos, nSrcAsc, nTmpSrcAsc: Integer; sDest, sSrc, sKey: AnsiString;begin sSrc := AnsiString(__src); sKey := AnsiString(__key); nKeyLen := Length(sKey); if nKeyLen = 0 then sKey := 'tigercat'; nKeyPos := 0; nOffSet := S