VF 加密后的数据库这样解密

nmgyxs 2022-05-07 17:02:15

DIMENSION DataName[120]
CLOSE ALL                                       &&关闭所有数据库文件
OPEN DATABASE d:\gdyw\data\database.dbc EXCLUSIVE                     &&打开数据库
ADBOBJECTS(DataName,"TABLE")                    &&将数据岸中所有数据表名存入数组DataName中
n=ALEN(DataName,0)                              &&取得数组中元素的个数  
FOR m=1 TO n              
lockstring=""
mydata=ALLTRIM(DataName(m))                      &&取出一个数据表名称
datapath="d:\gdyw\data\"                          &&取出数掘库所在的路径
thiSPath=datapath+ALLTRIM(mydata)+".DBF"          &&完整的数据表路径
handle=FOPEN(thispath,2)                         &&以低级文件形式打开此数据表
*将字符的ASCHI码与密钥进行异或运算密钥为11
=FSEEK(handle,0)
nwnitebyte=FWRITE(handle,CHR(48))

ENDFOR
WAIT WINDOWS "解密完成"NOWAIT
 

...全文
125 回复 打赏 收藏 举报
写回复
回复
切换为时间正序
请发表友善的回复…
发表回复
发帖
VFP

2545

社区成员

VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
帖子事件
创建了帖子
2022-05-07 17:02
社区公告
暂无公告