一个简单实用的 vb 加密/解密算法

原创 2001年05月25日 12:05:00

Function UserCode(password As String) As String
'用户口令加密
    Dim il_bit, il_x, il_y, il_z, il_len, i As Long
    Dim is_out As String
    il_len = Len(password)
    il_x = 0
    il_y = 0
    is_out = ""
    For i = 1 To il_len
        il_bit = AscW(Mid(password, i, 1))    'W系列支持unicode
       
        il_y = (il_bit * 13 Mod 256) + il_x
        is_out = is_out & ChrW(Fix(il_y))  '取整 int和fix区别: fix修正负数
        il_x = il_bit * 13 / 256
    Next
    is_out = is_out & ChrW(Fix(il_x))
   
    password = is_out
    il_len = Len(password)
    il_x = 0
    il_y = 0
    is_out = ""
    For i = 1 To il_len
        il_bit = AscW(Mid(password, i, 1))
        '取前4位值
        il_y = il_bit / 16 + 64
        is_out = is_out & ChrW(Fix(il_y))
        '取后4位值
        il_y = (il_bit Mod 16) + 64
        is_out = is_out & ChrW(Fix(il_y))
    Next
    UserCode = is_out
End Function
Function UserDeCode(password As String) As String
'口令解密
    Dim is_out As String
    Dim il_x, il_y, il_len, i, il_bit As Long

    il_len = Len(password)
    il_x = 0
    il_y = 0
    is_out = ""
    For i = 1 To il_len Step 2
        il_bit = AscW(Mid(password, i, 1))
        '取前4位值
        il_y = (il_bit - 64) * 16
        '取后4位值
        'dd = AscW(Mid(password, i + 1, 1)) - 64
        il_y = il_y + AscW(Mid(password, i + 1, 1)) - 64
        is_out = is_out & ChrW(il_y)
    Next

    il_x = 0
    il_y = 0
    password = is_out
    is_out = ""

    il_len = Len(password)
    il_x = AscW(Mid(password, il_len, 1))   

    For i = (il_len - 1) To 1 Step -1
        il_y = il_x * 256 + AscW(Mid(password, i, 1))
        il_x = il_y Mod 13
        is_out = ChrW(Fix(il_y / 13)) & is_out
    Next
    UserDeCode = is_out
End Function

VB 实现中文文本的加密方法

VB文本加密 特别设计到中文加密 让很多人费尽周折,经常会碰到解密中文出现乱码的情况下面这篇文章将对此做了说明 代码也在文章里面包括 计算机世界2000年第36期实现中文文本的加密方法武汉交通科技大学...
  • sirbo007
  • sirbo007
  • 2009年09月08日 12:32
  • 2228

VB各种加密算法

  • 2015年12月24日 17:31
  • 48KB
  • 下载

经典加密算法在VB中的实现--DES

经典加密算法在VB中的实现--DES       一、算法实现       1.处理密钥:       1.1     从用户处获得64位密钥.(每第8位为校验位,为使密钥有正确的奇偶校验,每    ...
  • dlxuemin
  • dlxuemin
  • 2007年04月27日 12:23
  • 2703

一个加密解密函数 for vb6.0!

= Name:         modPassword= Description:  This function for string encrypt= Author:       Super.Wan...
  • codeangel
  • codeangel
  • 2004年11月11日 14:32
  • 2645

VB常用类

clsADOOption ExplicitDim sIniFilePath As StringDim sSort As StringDim sDataSource As String   数据源Dim...
  • inrgs
  • inrgs
  • 2007年01月12日 10:39
  • 756

VB 加密解密程序

加密解密程序---------------------------------------------------------------------------------------------...
  • boovo
  • boovo
  • 2006年05月18日 18:47
  • 1639

用VB6实现中英文文本的私钥加密——VB的另类用法

一。 私钥加密方案   加密(Encryption)是信息保护的一种必不可少的手段。目前有两种基本的加密方法,即私钥加密和公钥加密。用VB既可用自定义算法实现简便的私钥加密,也可通过调用Cr...
  • yyb10013
  • yyb10013
  • 2014年05月05日 18:50
  • 833

字符串,加密解密算法

1、DES加密字符串及文件等 如果想可逆的算法,这种方式一般不错,只要结合动态密钥,就可以做出强度比较高的加密应用了。          #region DES对称加密解密         p...
  • wgrzhuaq
  • wgrzhuaq
  • 2013年01月16日 15:25
  • 23032

vb 中的MD5加密

1。web项目中方法 : System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile("aaaa", "MD...
  • qiaoshuai0920
  • qiaoshuai0920
  • 2013年04月11日 08:55
  • 1398

VB.NET 的 DES 加密与解密(转载于nofort博客)

MD5和SHA的加密方式都是单向的,就算是我写的程序用户的密码用这两种方式保存后,我对着看也不知道他们的密码是什么,这用在保存密码上是不错的,但如果是一些需要能将密文还原的应用来说就不合适了,所以接下...
  • lpwmm
  • lpwmm
  • 2016年03月06日 23:19
  • 2225
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个简单实用的 vb 加密/解密算法
举报原因:
原因补充:

(最多只允许输入30个字)