unlockdb.prg

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

FUNCTION unlockdb
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

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.)