| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5079 人关注过本帖, 1 人收藏
标题:[原创]奉献一个加密/解密程序
只看楼主 加入收藏
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
编写一个应用系统,实际上不需要用任何的表都能顺利运行,因为表可以通过这个应用系统建立。
加密的作用就是想别人即使得到这样的表或任何类型的文件都没有用。建立一个文件的过程中(用fcreate()),一定会产生一个磁盘文件(也就是会留下影子),在解密后运行的时候突然断电也会有解密的文件产生的。这个现象是我这个解密、加密程序的缺陷。

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-06-22 19:50
十足新手
Rank: 1
等 级:新手上路
帖 子:75
专家分:0
注 册:2006-9-22
收藏
得分:0 
Tiger5392兄
我对你这个加密解密的程序不太懂甚至有一些里面的函数都不太认识
可否详细解释一下内容和用法(放在程序的什么地方)
谢谢
2007-01-30 22:42
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 

举一个例子吧。

假如有这样的程序
CLOSE ALL
IF FILE("职工.DBF")
USE 职工.DBF
ELSE
CREATE TABLE 职工 (工号 C(4),姓名 C(8)) &&别的字段略
ENDIF
*....别的语句略。

这个程序片段是假设“职工.DBF”为自由表,且能被VFP随意打开。我们的目的是将这个表加密,用VFP无法打开,那么应该修改为:
CLOSE ALL
IF FILE("职工.DBF")
=JM("职工.DBF",-1332121)
USE 职工.DBF
ELSE
CREATE TABLE 职工 (工号 C(4),姓名 C(8)) &&别的字段略
ENDIF
*....别的语句略。
*程序的最后用上
=JM("职工.DBF",1332121)


感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-01-31 22:14
十足新手
Rank: 1
等 级:新手上路
帖 子:75
专家分:0
注 册:2006-9-22
收藏
得分:0 

为什么解密后会提示
表已损坏,需修复后才能再次使用

2007-02-01 22:25
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
你可能不注意使用,两次加密以后要两次解密的。

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-02-01 23:36
十足新手
Rank: 1
等 级:新手上路
帖 子:75
专家分:0
注 册:2006-9-22
收藏
得分:0 

我在form的init事件中用了=JM("职工.DBF",1332121)
然后在form的destroy事件中用了用了=JM("职工.DBF",-1332121)
在打开并关闭这个表单后,表“职工.dbf”应该是可以在vfp下打开的,对吧?
但是打不开


我用的是vfp9.0,xp系统

[此贴子已经被作者于2007-2-2 18:01:38编辑过]

2007-02-02 18:01
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
这种加密方式并不十分可靠,我原来也是用类似方法对记录不多的表进行加密的,但在使用过程中经常会因为各种原因导致表文件损坏而无法正常使用程序,现在我基本上不用这种加密方式了。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2007-02-04 19:49
十足新手
Rank: 1
等 级:新手上路
帖 子:75
专家分:0
注 册:2006-9-22
收藏
得分:0 

那该用什么方法加密呢

2007-02-08 22:07
chuxue
Rank: 1
等 级:新手上路
帖 子:78
专家分:4
注 册:2008-1-22
收藏
得分:0 
先谢谢了
2008-07-15 14:13
hyswcyh
Rank: 8Rank: 8
等 级:贵宾
威 望:20
帖 子:391
专家分:896
注 册:2004-11-23
收藏
得分:0 
看来这个帖子都沉下去十年了,把他顶起来!
之前也曾经用这个方法加密表文件,是经常出现找不开的现象。
没有更好的方法,对自由表。基本都是写文件。
2016-09-20 14:45
快速回复:[原创]奉献一个加密/解密程序
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.044756 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved