delphi自定义加解密函数

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
发布时间:2015-03-12 | 类别:编程相关 | 阅读:1290 | 评论:0 | 标签:delphi 加密

公告

2014年10月4日创建

标签云

最近评论

友情链接