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.NET程序]GSM短信模块库函数,可以用VB,VC,调用简单实用 [办公软件]PowerPoint做交互课件之弃用VBA [办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址 [办公软件]VBA设置文件属性及加密源代码示例 [办公软件]VBA中初始化ADO连接的几种方法 [网络安全]“VB破坏者变种N”病毒摘要 [Web开发]ASP.NET上传文件到数据库VB版 [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值… [办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表… [办公软件]Excel编程基础之VBA文件操作详解
|