下载 >  开发技术 >  其它 > 加密解密函数(另附加密解密函数可逆测试程序)

加密解密函数(另附加密解密函数可逆测试程序)

2009-06-12 上传大小:10KB
分享
加密解密函数(另附加密解密函数可逆测试程序)
Public Function UserCode(Optional ByVal password As String) As String
'用户口令加密-非汉字
    Dim il_bit, il_x, il_y, il_z, il_len, i As Long
    Dim is_out As String
    If password = "" Then Exit Function '注意此修改
    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
Public Function UserDeCode(Optional ByVal password As String) As String
'口令解密
    Dim is_out As String
    Dim il_x, il_y, il_len, i, il_bit As Long
    If password = "" Then Exit Function '注意此修改
    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                        
...展开收缩
综合评分:4
开通VIP 立即下载

评论共有1条

luruyi252252 2013-06-18 09:21:14
不错,但WIN7下为什么不能运行呢
 
asp解密chrw、chr编码文件- 58OA 网维系统解密
VB 加密解密,最高支持10位,可以自己添加 立即下载
积分/C币:3
VB AES 字符串和文件加密
VB6.0加密解密 立即下载
积分/C币:3
vb编写的加密解密代码 立即下载
积分/C币:3
一个简单的文件加密解密例子vb 立即下载
积分/C币:3
字符串解密加密
VB字符串加密解密 立即下载
积分/C币:3
自己写的加密字符串、数字、日期的类(VB.net)
VB-21种加密解密算法和54种压缩解压算法的源码 立即下载
积分/C币:3

热点文章

VIP会员动态

推荐下载

delphi加密解密函数
5C币 88下载
lua 加密解密
5C币 65下载
lua加密解密
12C币 283下载
php源码加密解密
11C币 1796下载
关闭
img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
点击完成任务获取下载码
输入下载码
为了良好体验,不建议使用迅雷下载
img

加密解密函数(另附加密解密函数可逆测试程序)

会员到期时间: 剩余下载个数: 剩余C币: 剩余积分:0
为了良好体验,不建议使用迅雷下载
VIP下载
您今日下载次数已达上限(为了良好下载体验及使用,每位用户24小时之内最多可下载20个资源)

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
为了良好体验,不建议使用迅雷下载
确认下载
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
为了良好体验,不建议使用迅雷下载
开通VIP
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
确认下载
下载
无法举报自己的资源

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

若举报审核通过,可返还被扣除的积分

  • 举报人:
  • 被举报人:
  • *类型:
    • *投诉人姓名:
    • *投诉人联系方式:
    • *版权证明:
  • *详细原因: