一种加密和解密算法

**************************************************
* 一种加密和解密算法 JM.PRG (C)Copyright 2006-2006
* 加密: ?JM(“文件名.DBF”,88)    &&返回0为成功
* 解密: ?JM(“文件名.DBF”,-88)   &&返回0为成功
* 作者: Tiger5392
* 时间:
*       建立时间      2006.06.11
*       第1次修改时间 2006.06.11
**************************************************
PARAMETERS cFileName,nNumber
PRIVATE cFileName,nNumber,A,B,D
*判断参数的数量是否为2
IF PARAMETERS()<>2
  RETURN 1  &&参数数目错
ENDIF
*判断参数的类型是否分别为C和N
IF TYPE(“cFileName”)<>CHR(67) OR TYPE(“nNumber”)<>CHR(78)
  RETURN 2  &&参数类型错
ENDIF
*判断是否能打开文件进行读写
nHandle=FOPEN(cFileName,2)
IF nHandle=-1
  RETURN 3  &&文件打不开或不能写入数据
ENDIF
*加密或解密,成功的话返回0
DIMENSION D(1)
ADIR(D,cFileName)
FOR I=1 TO D(1,2)
  A=FREAD(nHandle,1)
  B=CHR(MOD(ASC(a)+nNumber,256))
  FSEEK(nHandle,I)
  FWRITE(nHandle,B)
ENDFOR
FCLOSE(nHandle)
RETURN 0  &&成功
* EOF():JM.PRG (C)Copyright 2006-2006 Tiger5392

***
***  判断一个数是否为超级素数 By Tiger5392 (C)Copyright 2006-2006
***
***  相关知识
***     
超级素数:一个素数,去掉个位是素数;去掉个位和十位也是素数;……;
***  直到保留到最高位依然是素数,这个素数称为超级素数。
***
***  编程思路
***      1.素数一定不能是1。给定的数若为超级素数,则高位不能是1。
***     
2.素数一定不能被2整除(2除外)。给定的数若为超级素数,则各位数字不能含有0,2,4,6,8(高位2除外)。
***     
3.素数一定不能被5整除(5除外)。给定的数若为超级素数,则各位数字不能含有0,5(高位5除外)。
***      4.经过分析,有这样的结论:
***        (1)高位可能为2,3,5,7,而绝对不能是0,1,4,6,8,9;
***       
(2)除高位外的其它各位数字可能是1,3,7,9,而绝对不能是0,2,4,5,6,8。
***
PARAMETERS nNum
PRIVATE nNum,nNum1,cNum,nCnt,lIsSupperPrime
澳门新葡亰游戏网址,IF TYPE(“nNum”)#CHR(78) OR INT(nNum)#nNum OR nNum<1
&&参数为大于0的整数
  RETURN .F.
ENDIF
lIsSupperPrime=INLIST(VAL(SUBSTR(ALLTRIM(STR(nNum)),1,1)),2,3,5,7)
&&提取高位数字并判断是否为素数
IF lIsSupperPrime=.F.
  RETURN .F.
ENDIF
FOR nCnt=0 TO LEN(ALLTRIM(STR(nNum)))-1
  nNum1=INT(nNum/10^nCnt)              &&将原数去掉从个位开始的nCnt位
  cNum=SUBSTR(ALLTRIM(STR(nNum1)),2)   &&提取除高位外的其余部分
  IF “0”$cNum OR “2”$cNum OR “4”$cNum OR “5”$cNum OR “6”$cNum OR
“8”$cNum
    lIsSupperPrime=.F.
    EXIT
  ELSE
    lIsSupperPrime=.T.
  ENDIF
  IF !IsPrime(nNum1)
    lIsSupperPrime=.F.
    EXIT
  ENDIF
ENDFOR
RETURN lIsSupperPrime
*** EOF(): IsSupperPrime By Tiger5392 (C)Copyright 2006-2006

网站地图xml地图