以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如果数据表加密后的日期被人为改动，软件自动退出！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55776)
--  作者：htlk25
--  发布时间：2014/8/22 21:24:00
--  如果数据表加密后的日期被人为改动，软件自动退出！
老师，您好！
数据库中的某个表的数据是每1分钟把系统时间加密后填入此表的，
如果日期加密后的数据被人为改动后，解密出来的字符肯定不是时间格式，
我如何做判断，只要人为改了数据，软件自动退出！

谢谢！！！
--  作者：Bin
--  发布时间：2014/8/23 9:07:00
--  
Try
Dim Val3 As String = DecryptText(Val2,"a23","op#") \'解密，两个密钥必须和加密的时候相同 
catch
   Syscmd.Project.Exit(False)
end try
--  作者：htlk25
--  发布时间：2014/8/23 11:45:00
--  
Bin老师，我要判断的并不只是数据有没有改动，关键是改动后的数据解密后完全就不是日期了，这样就会跳出错误提示，我如何判断他不是日期呢？
--  作者：Bin
--  发布时间：2014/8/23 12:04:00
--  
同样可以用TRY CATCH捕获
--  作者：逛逛
--  发布时间：2014/8/23 13:45:00
--  

 

Dim d As Date \'变量d用于存储转换结果
If Date.TryParse("1999/12/31", d) Then \'如果转换成功
    Output.Show(d) \'输出转换结果
Else
    Output.Show("无效日期格式") \'给出错误提示
End If

 

 

 

 

http://www.foxtable.com/help/topics/0324.htm
--  作者：htlk25
--  发布时间：2014/8/26 15:50:00
--  
多谢版主，好方法
--  作者：jspta
--  发布时间：2014/8/26 16:00:00
--  
你可以不让修改这个时间列啊，不用显示最好，加密后的也没人看的懂的。。