文件名称:
加密解密函数（另附加密解密函数可逆测试程序）
开发工具:
文件大小: 10kb
下载次数: 0
上传时间: 2009-06-12
详细说明： 加密解密函数（另附加密解密函数可逆测试程序） 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(passwo rd) 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 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
