3121.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 22 行

HTML
22 行
字号 
<html>
  <head>
    <title>加密与解密</title>
  </head>
  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
    <center>
      <h1>加密与解密</h1>
    </center>

<HR><p>
Posted by <a href="mailto:ml.peng@wsmc.com.tw">彭明柳</a> on June 05, 1998 at 14:01:15:<p>
In Reply to: <a href="3117.html"><b>存档格式</b></a> posted by Atony on June 05, 1998 at 02:26:19:<p>
试看看以下加密与解密的简单演算法<p>Public Function Crypt(texti, salasana)<br>   For T = 1 To Len(salasana)<br>      sana = Asc(Mid(salasana, T, 1))<br>      X1 = X1 + sana<br>   Next<br>   X1 = Int((X1 * 0.1) / 6)<br>   salasana = X1<br>   G = 0<br>   For TT = 1 To Len(texti)<br>     sana = Asc(Mid(texti, TT, 1))<br>     G = G + 1<br>     If G = 6 Then G = 0<br>     X1 = 0<br>     If G = 0 Then X1 = sana - (salasana - 2)<br>     If G = 1 Then X1 = sana + (salasana - 5)<br>     If G = 2 Then X1 = sana - (salasana - 4)<br>     If G = 3 Then X1 = sana + (salasana - 2)<br>     If G = 4 Then X1 = sana - (salasana - 3)<br>     If G = 5 Then X1 = sana + (salasana - 5)<br>     X1 = X1 + G<br>     Crypted = Crypted & Chr(X1)<br>     Next<br>     Form1.Text1 = Crypted<br>End Function<p>Public Function DeCrypt(texti, salasana)<br>              For T = 1 To Len(salasana)<br>                     sana = Asc(Mid(salasana, T, 1))<br>                     X1 = X1 + sana<br>              Next<br>       X1 = Int((X1 * 0.1) / 6)<br>       salasana = X1<br>       G = 0<br>       For TT = 1 To Len(texti)<br>         sana = Asc(Mid(texti, TT, 1))<br>         G = G + 1<br>         If G = 6 Then G = 0<br>         X1 = 0<br>         If G = 0 Then X1 = sana + (salasana - 2)<br>         If G = 1 Then X1 = sana - (salasana - 5)<br>         If G = 2 Then X1 = sana + (salasana - 4)<br>         If G = 3 Then X1 = sana - (salasana - 2)<br>         If G = 4 Then X1 = sana + (salasana - 3)<br>         If G = 5 Then X1 = sana - (salasana - 5)<br>         X1 = X1 - G<br>         DeCrypted = DeCrypted & Chr(X1)<br>         Next<br>         Form1.Text1 = DeCrypted<br>End Function<p>                                                                                                         '     'Finish Quality !!!<br>                                                                                                         '     'mail me to jouni.vuorio@vtoy.fi<br>                                                                                                         '     'algorithm copyright 1997 jouni vuorio<br>
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 3121-->
</ul><!--end: 3121-->
<br><HR><p>

</body></html>

3121.html - 源码说明

本页面展示了「VB技巧问答10000例 VB技巧问答10000例」中的 3121.html 源码文件，采用 HTML 编程语言编写，共 22 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?