VFP 愛用者社區

[garfield]

* ? '加密成功否:',secretfile('我的檔案.doc')
* ? '解密成功否:',secretfile('我的檔案.doc', .T.)
FUNCTION secretfile
LPARAMETERS mfile , unsecret
IF AT(["],mfile)=0
mfile=["]+mfile+["]
endif
IF !FILE(mfile)
WAIT windows '找不到檔案:'+mfile nowait
RETURN .f.
ENDIF
LOCAL mh, mstat, mlen, mled, mret
mled = '檔案已加密'
Mh = FOPEN(mfile,12)
IF mh<1
WAIT windows '無法開啟檔案'+mfile nowait
RETURN .f.
ENDIF
mret = .f.

LOCAL mfilelen,mdata
DO case
case !unsecret .and. mled <> FREAD(mh,10)
mlen = FLOOR(RAND(0)*256)
mfilelen = FSEEK(mh,0,2)
FSEEK(mh,0,0)
mdata = FREAD(mh,mfilelen) &&--請注意: 應該會有檔案長度限制
FSEEK(mh,0,0)
mstat = FWRITE(mh,mled+CHR(mlen)+PADR(mdata,mlen) + mdata)
* 本方法無法加密純文字檔, 研發人員: garfield
* 加密原理: 改掉檔頭, 讓一些相關程式無法開啟
* 會加長檔案長度 11+最多255字
IF mstat<1
WAIT windows '無法加密'+mfile nowait
ELSE
mret = .t.
ENDIF
case unsecret
mstat = FREAD(mh,10)
IF mstat <> mled
WAIT windows '非用本方式加密' nowait
else
mlen = ASC(FREAD(mh,1))
mfilelen = FSEEK(mh,0,2)
FSEEK(mh,0,0)
mdata = FREAD(mh, mfilelen) &&--請注意: 應該會有檔案長度限制
FSEEK(mh,0,0)
mstat = FWRITE(mh,SUBSTR(mdata,11+mlen+1))
IF mstat<1
WAIT windows '無法解密'+mfile nowait
ELSE
mret = .t.
ENDIF
endif
ENDcase

FCLOSE(mh)
RETURN mret

[goto-dream]

1.此方式是否一定需要 word開啟檔案

2.可以另存新檔案

[garfield]

1.直接用fopen() 來開檔, 不需要執行跟檔案相關的執行程式.
2.可以自行須改成另存新檔, 多幾行程式而已.