基本信息
源码名称：vb 加密解密字符串的例子
源码大小：2.45KB
文件格式：.rar
开发语言：ASP
更新时间：2019-10-03
   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　
   源码介绍 

'Download by http://www.NewXing.com
Public Function Crypt(texti, salasana) As String

       On Error Resume Next

              For T = 1 To Len(salasana)
                     sana = Asc(Mid(salasana, T, 1))
                     X1 = X1   sana
              Next

       X1 = Int((X1 * 0.1) / 6)
       salasana = X1
       G = 0

              For TT = 1 To Len(texti)
                     sana = Asc(Mid(texti, TT, 1))
                     G = G   1

                            If G = 6 Then G = 0
                                   X1 = 0

                                          If G = 0 Then X1 = sana - (salasana - 2)

                                                        If G = 1 Then X1 = sana   (salasana - 5)

                                                                      If G = 2 Then X1 = sana - (salasana - 4)

                                                                                    If G = 3 Then X1 = sana   (salasana - 2)

                                                                                                  If G = 4 Then X1 = sana - (salasana - 3)

                                                                                                                If G = 5 Then X1 = sana   (salasana - 5)
                                                                                                                       X1 = X1   G
                                                                                                                       Crypted = Crypted & Chr(X1)
                                                                                                                Next


                                                                                                                Crypt = Crypted
                                                                                                                End Function


Public Function DeCrypt(texti, salasana) As String

       On Error Resume Next

              For T = 1 To Len(salasana)
                     sana = Asc(Mid(salasana, T, 1))
                     X1 = X1   sana
              Next

       X1 = Int((X1 * 0.1) / 6)
       salasana = X1
       G = 0

              For TT = 1 To Len(texti)
                     sana = Asc(Mid(texti, TT, 1))
                     G = G   1

                            If G = 6 Then G = 0
                                   X1 = 0

                                          If G = 0 Then X1 = sana   (salasana - 2)

                                                        If G = 1 Then X1 = sana - (salasana - 5)

                                                                      If G = 2 Then X1 = sana   (salasana - 4)

                                                                                    If G = 3 Then X1 = sana - (salasana - 2)

                                                                                                  If G = 4 Then X1 = sana   (salasana - 3)

                                                                                                                If G = 5 Then X1 = sana - (salasana - 5)
                                                                                                                       X1 = X1 - G
                                                                                                                       DeCrypted = DeCrypted & Chr(X1)
                                                                                                                Next


                                                                                                                DeCrypt = DeCrypted
                                                                                                                End Function