📄 3121.html

📁 以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

💻 HTML

字号:

<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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -