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