当前位置: 源码素材网 » VB教程 » 详情页

VB zwj加密或解码的相关代码演示

  •   时间:2019-10-14
  • 概述:加密 解码

zwj加密或解的代码,这个我感觉不是太常用,不过这个算法挺安全的,所说效率高,下面是用户分享的代码:

Private Sub jmsj()
Dim cd As Integer, i As Integer, n As Integer
Dim sz(100) As String, m As Integer, p As Integer, l As Integer
cd = Len(mm.Text)
For n = 1 To cd '第一层
sz(n) = sznr(Mid(mm.Text, n, 1))
Next n '第一层
For m = 1 To cd '第二层
If Asc(sz(m)) <= 59 And Asc(sz(m)) >= 35 Then '判断分析
 sz(m) = Asc(sz(m)) + 30
End If '判断分析
If Asc(sz(m)) = 64 Then '判断分析
sz(m) = Asc(sz(m)) + 20
End If '判断分析
If Asc(sz(m)) = 92 Then '判断分析
sz(m) = Asc(sz(m)) - 20
End If '判断分析
Next m '第二层
For p = 1 To cd '第三层
sz(p) = Chr(sz(p))
Next p '第三层
For l = 1 To cd
nrsj = nrsj & sz(l)
Next l
End Sub
Dim sl As Integer, szsl(20) As String, n As Integer
Dim rs As ADODB.Recordset
Dim conn As ADODB.Connection
Dim sj As Integer
Dim i As Integer
Dim jgnr(20) As String
Dim u As Integer
sj = Len(mw.Text)
Dim nr As String
If Asc(Mid(mw.Text, 1, 1)) > 57 And Asc(Mid(mw.Text, 2, 1)) > 57 And Asc(Mid(mw.Text, 3, 1)) > 57 And Asc(Mid(mw.Text, sj, 1)) > 57 Then '是否为
For i = 1 To sj
 If Asc(Mid(mw.Text, i, 1)) >= 65 And Asc(Mid(mw.Text, i, 1)) < 84 Or Asc(Mid(mw.Text, i, 1)) = 89 Then '判断数据
    szsl(i) = Asc(Mid(mw.Text, i, 1)) - 30
End If  '判断数据
 If Asc(Mid(mw.Text, i, 1)) = 84 Then '判断数据
    szsl(i) = Asc(Mid(mw.Text, i, 1)) - 20
End If  '判断数据
 If Asc(Mid(mw.Text, i, 1)) = 72 Then '判断数据
    szsl(i) = Asc(Mid(mw.Text, i, 1)) + 20
End If  '判断数据
Next i
For n = 1 To sj
szsl(n) = Chr(szsl(n))
Next n
For u = 1 To sj
nr = nr & nsj(Asc(szsl(u)))
Next u
wm.Text = nr

    相关声明:

      若“VB zwj加密或解码的相关代码演示”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。