func encrypt()
para ss1
IF len(ss1)>0
handle1=fopen(ss1,2)
if handle1< 0
messagebox('没有找到指定文件...',0+64,'系统提示')
return
ENDIF
ENDIF
i=1
nn1=len(ss1)
ss2=subs(ss1,1,nn1-4)+'.dat' &&构造加密后文件扩展名为.dat
handle2=fcreate(ss2)
do while i<nn1
=fseek(handle1,i)
retasc=fread(handle1,i)
if asc(retasc)=13
exit
endif
i=i+1
enddo
=fseek(handle1,0)
retstr=fread(handle1,i)
=fwrite(handle2,retstr)
j=0
DO while .not.feof(handle1)
=fseek(handle1,i+j)
if asc(retasc)>253
ch=chr(255-asc(retasc))
else
ch=chr(asc(retasc)+2)
endif
=fwrite(handle2,ch)
j=j+1
enddo
messagebox('加密成功...',0+64,'系统提示')
=fclose(handle1)
=fclose(handle2)
dele file &ss1
return ss2
ENDFUNC
&&输出加密文件名，文件扩展名改为.DAT
 

[此贴子已经被作者于2018-5-20 21:15编辑过]

我用以下代码不知道“if asc(retasc)>255”这一句的255该取多少？
func encrypts()
para ss1
IF len(ss1)>0
handle1=fopen(ss1,2)
if handle1< 0
messagebox('没有找到指定文件...',0+64,'系统提示')
return
ENDIF
ENDIF
i=1
nn1=len(ss1)
ss2=subs(ss1,1,nn1-4)+'.dbf' &&构造解密后文件扩展名为.dbf
handle2=fcreate(ss2)
do while i<nn1
=fseek(handle1,i)
retasc=fread(handle1,i)
if asc(retasc)=15
exit
endif
i=i+1
enddo
=fseek(handle1,0)
retstr=fread(handle1,i)
=fwrite(handle2,retstr)
j=0
DO while .not.feof(handle1)
=fseek(handle1,i+j)
if asc(retasc)>255 &&这里的255该取多少？请帮忙...
ch=chr(255-asc(retasc))
else
ch=chr(asc(retasc)-2)
endif
=fwrite(handle2,ch)
j=j+1
enddo
messagebox('解密成功...',0+64,'系统提示')
=fclose(handle1)
=fclose(handle2)
dele file &ss1
return ss2
ENDFUNC
&&输出加密文件名，文件扩展名改为.DBF

[此贴子已经被作者于2018-5-20 23:52编辑过]

说说加密原理，encrypt()中下面这段代码是做什么用的？
do while i<nn1
=fseek(handle1,i)
retasc=fread(handle1,i)
if asc(retasc)=13
exit
endif
i=i+1
enddo

do while i<nn1
 =fseek(handle1,i) &&从文件handle1移动指针i后，FSEEK( ) 函数返回从文件开始到文件指针i位置的字节数。
 retasc=fread(handle1,i) &&从用低级文件函数打开的文件handle1返回指定数目i的字节
 if asc(retasc)=13  &&返回字符表达式retasc中最左边字符的 ANSI 值。
 exit
 endif
 i=i+1
 enddo
再次感谢吹水佬！问题已解决...  

[此贴子已经被作者于2018-5-21 13:57编辑过]

表文件加密安全系数不高呀。