VFP 愛用者社區

[KKKLYNN]

目前我正在做人事薪資系統(erp的一環)
有關人員資料希望從外部匯入再行作業,作業完成後再將系統內的資料回存xls,同時將系統內的資料消除,以確保安全
而保存xls檔案的人員,是無法以excel來觀看內文!(已加密)
目前加密好像只限dbf,txt
目前我使用vfp6.0,無法使用vfp8.0提供的加密api
以上敬請各先進協助!

[garfield]

你是要針對每個cell加密, 還是要加密 xls 檔.

[KKKLYNN]

xls已有excel自身的密碼控管,希望加上cell轉換成亂碼,謝謝您的詢問,更希望先進能協助!謝謝!

[garfield]

整個檔案加密是比較簡單, 但要在excel的每個cell加密會花比較多的時間.
要參考我寫的字串加密, 是利用字串做 bitxor , 程式在此

工作流程
1.開XLS檔
2.找出最右下角的儲存格
.Selection.SpecialCells(11).Select &&--xlCellTypeLastCell).Select 檔案之右下角( 最底)
.selection.row &&--所在位置
.selection.column &&--欄位位置
3.將每一個 cell 的資料做字串加密
4.儲存.

***********希望對你有幫助.

[KKKLYNN]

請問整個檔案加密是否可做能函數方式,直接帶入檔案,如同您的dbf加密,謝謝!

[KKKLYNN]

UGET=GETFILE("dbf","請注意 選擇要加密的資料檔","加密資料")
IF EMPT(UGET)=.F.
加密dbf(&uget , 0 , 'lynnlkk' )
endif
請問可否帶變數?
因為會出現 ) 不對稱

[KKKLYNN]

剛剛試了! 直接指定檔案是OK!
不知可否用變數來帶,因為隨身碟在每一台PC所指的磁碟不同!
我的系統設計是資料隨身帶!可用GETFILE()是最好的!
以上謝謝!

[KKKLYNN]

if mpassword<>'lynnlkk'
messagebox('請傳來加密的密碼字串')
return
endif
另外密碼好像無效,外部以 'LYNNLKKK' 傳入仍可正常加密解密
以上謝謝!

[garfield]

已修正問題, 請去看看吧!

[KKKLYNN]

請問去哪裡?
我是用您寫的dbf加密prg
哪裡的zip還是舊版的?
以上謝謝!

[garfield]