lockdb.prg

别处找来的红虎日记源代码

FUNCTION lockdb
PARAMETERS file_name
PRIVATE file_name,file_alias,handle,keybyte
IF at(".",file_name)=0
  file_alias=file_name
  file_name=file_name+".dbf"
ELSE
  file_alias=substr(file_name,1,at(".",file_name)-1)
ENDIF

IF used(file_alias)
  messagebox("加密程序无法打开文件："+file_name,48,"加密失败！")
  RETURN(.f.)
ENDIF
handle=fopen(file_name,2)

IF handle=-1
  messagebox("加密程序无法打开文件："+file_name,48,"加密失败！")
  RETURN(.f.)
ENDIF

keybyte=fread(handle,1)
=fseek(handle,0)
=fwrite(handle,chr(asc(keybyte)+12))
=fclose(handle)
RETURN(.t.)