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

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

加密解密函数(另附加密解密函数可逆测试程序) 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 ...展开详情收缩
2009-06-12 上传大小:10KB
立即下载 开通VIP
分享
收藏 举报

评论 共1条

luruyi252252 不错,但WIN7下为什么不能运行呢
2013-06-18
回复

热点文章

  • PHP一组可逆加密解密算法

    2014-01-28 aoyoo111
  • mysql加密解密函数

    2011-09-15 wh62592855
  • 非常不错的php加密和php解密函数

    2016-10-29 luyulantian
  • 通过java实现DES可逆算法

    2014-10-20 u011768325
  • PHP的几种加密解密算法

    2016-11-10 mico_cmm
  • base64加密解密的hive udf函数

    2018-08-03 mnasd
  • 简易可逆加密解密算法

    2016-12-05 PHPSpreader
  • php的加密解密

    2017-11-17 maxiaojingabc
  • oracle 的加密解密函数

    2005-12-26 xgl1999
  • 一个简单实用的 vb 加密/解密算法

    2001-05-25 neil
关闭
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和C币套餐优惠
img

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

兑换成功

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

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

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

举报

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

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