vfp加密工具vfpexenc
vfp&exeNc;加密软件,完全摆脱了“文件型”加密的模式,经其加密后的程序,无任何vfp特征标志,彻底杜绝了所有通过扫描特征标志进行反编译的企图。vfp&exeNc;加密软件,根据自己独特的加密算法,通过拦截系统功能调用(hook),在内存中完成vfp动态链接库与应用程序间的数据传接,不会在磁盘上留下任何未加密文件的痕迹。vfp&exeNc;加密软件,对被加密文件没有任何特殊要求,也不改写vfp动态链接库
vfp&exeNc;加密软件,完全摆脱了“文件型”加密的模式,经其加密后的程序,无任何vfp特征标志,彻底杜绝了所有通过扫描特征标志进行反编译的企图。vfp&exeNc;加密软件,根据自己独特的加密算法,通过拦截系统功能调用(hook),在内存中完成vfp动态链接库与应用程序间的数据传接,不会在磁盘上留下任何未加密文件的痕迹。vfp&exeNc;加密软件,对被加密文件没有任何特殊要求,也不改写vfp动态链接库
Function CheckExp(patrn) PRIVATE cStr cStr=patrn regEx = CreateObject("VBScript.RegExp") &&建立正则表达式对象 *!* regEx.Pattern = "^(?=.*\d)(?=.*[a-z])[a-zA-Z\d]{6,20}$" &&设置模式由数字或字母组成 regEx.Pattern="^(?!0(\d|\.0+$|$))\d+(\.\d{1,2})?$" *!* regEx.Pattern="^[A-Za-z0-9]+$" &&设置模式只能由数字或字母组成 regEx.IgnoreCase = .T. &&设置是否区分字符大小写 regEx.Global = .T. &&设置全局可用性 *!* Return regEx.Test(strng) &&执行搜索 RETURN regEx.Test(cStr) ENDFUNC
VFP写的CRC16校验码,已验证完全可用n16CRC = 0x0000FFFF FOR i=1 TO nLen n16CRC = BITOR((BITAND (n16CRC, 0xFF00)) ,(BITXOR(BITAND (n16CRC, 0x00FF),val(cStr(i))))) *!* WAIT WINDOW n16CRC FOR j=1 TO 8 IF BITAND(n16CRC,1)==1 n16CRC = BITXOR(BITRSHIFT(n16CRC,1),0xA001) &&先右移再异或运算 ELSE n16CRC = BITRSHIFT(n16CRC,1) &&直接右称运算 ENDIF ENDFOR ENDFOR