16243.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 24 行

HTML

24 行

<html>
  <head>
    <title>Re: 档案隐密性的问题~</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 档案隐密性的问题~</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:jwh@ms1.hinet.net">纪文和</a> on July 27, 1999 at 13:18:27:<p>
In Reply to: <a href="16230.html">档案隐密性的问题~</a> posted by KK on July 27, 1999 at 10:47:09:<p>
: 请问如果说有一个文字档,是用来程式执行读入显示的...<br>: 但是如果直接开启该文字档,也能直接的看到内容~~~<br>: 这样就没有隐密性了~~~请问有什么方法~~~可以做到<br>: 这档案的隐密性呢?(譬如说开启该文字档是一片乱码)<p>好巧!! 我昨天才 Post 这个主题的资料到我自己网站上, 今天就有人问, 方法如下:<br>(各位看官若满意的话, 请多到我的网站捧场--> VB入门网 http://www.ruentex.com.tw/vbguide)<p>以下二个模组，一个处理加密，一个处理解密，加密处理必须传入参数 (就是要加密的字串)，加密后将资料存到加密档，要解密时，则从档案中读出并解密： <p>(假设档案名称为 C:\加密档.qwe, 您可以自行更改档名或路径)<p>'处理加密<br>Private Function Encrypt(varPass As String)<br>    If Dir("C:\加密档.qwe") <> "" Then: Kill "C:\加密档.qwe"<br>    Dim varEncrypt As String * 50<br>    Dim varTmp As Double<br>    Open "C:\加密档.qwe" For Random As #1 Len = 50<p>    For I = 1 To Len(varPass)<br>        varTmp = Asc(Mid$(varPass, I, 1))<br>        varEncrypt = Str$(((((varTmp * 1.5) / 2.1113) * 1.111119) * I))<br>        Put #1, I, varEncrypt<br>    Next I<p>    Close #1<br>End Function<p>'处理解密<br>Private Function Decrypt() As String<br>    Open "C:\加密档.qwe" For Random As #1 Len = 50<br>    Dim varReturn As String * 50<br>    Dim varConvert As Double<br>    Dim varFinalPass As String<br>    Dim varKey As Integer<p>    For I = 1 To LOF(1) / 50<br>        Get #1, I, varReturn<br>        varConvert = Val(Trim(varReturn))<br>        varConvert = ((((varConvert / 1.5) * 2.1113) / 1.111119) / I)<br>        varFinalPass = varFinalPass & Chr(varConvert)<br>    Next I<p>    Decrypt = varFinalPass<br>    Close #1<br>End Function<p>使用实例：<br>Private Sub Command1_Click()<br>    Encrypt Text1     '将 Text1 中的字存到档案中<br>End Sub<p>Private Sub Command2_Click()<br>    Text2 = Decrypt  '将从档案中读出的字转译放回 Text2<br>End Sub<br>
<br>
<ul><li><a href="http://www.ruentex.com.tw/vbguide">VB入门网</a></ul>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 16243-->
</ul><!--end: 16243-->
<br><hr size=7 width=75%><p>

</body></html>

16243.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 16243.html 源码文件，采用 HTML 编程语言编写，共 24 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与电子书相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?