*出租销售系统 5.6--算法分析 下

• 
  '*******************************************************
  Do
  nlen = Len(astr1) '得出10进制的长度
  p = Int((nlen - 1) / 4) '得出数字占数组的个数(减去1代表数组单元的下标)，每4位数占一个数组单元
  i = 0
  k = 1
  Do
    alen = Len(astr1)
      If alen <= 4 Then
        k = 2
        x(i) = astr1
      Else
        x(i) = Right(astr1, 4)             '每次从低位取4位
        astr1 = Mid(astr1, 1, alen - 4)
      End If
      i = i + 1
  Loop While k = 1          '完成数据向数组的装入，每个单元为字符串，是从低位向高位的顺序
  strnext = ""
  strtmp = ""
  modtmp = ""
  r = 1     '前导去0标志
  '***************************************************
  For z = p To 0 Step -1      '从最后一位，也是10进制数的最高位开始
    modtmp1 = CStr(CLng(modtmp + x(z)) Mod 16) '模作为与下一个数组单元相接合，再求模，直到这后的模
    strtmp = CStr(Int(CLng(modtmp + x(z)) / 16))
  
    If Len(strtmp) < 4 And r <> 1 Then '补0也是为了下次大循环的运算,如果是第一个值就不用被0了
       For i = 1 To 4 - Len(strtmp)
       strtmp = "0" + strtmp
       Next i
    End If
  
    strnext = strnext + strtmp  '得到除以16的商，准备用下一次大循环的运算初始值
    modtmp = modtmp1
    r = 2
  Next z
  '***************************************************
  
  lastmod = Hex(Int(modtmp)) + lastmod '其实这就是16进制数了，不用再反向了
  astr1 = strnext
  i = 1
  Do     '前导去0循环
  nlen = Len(astr1)
  
• [1] [2] [3] [4] [5] [6] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• *出租销售系统 5.6--算法分析 下 相关文章：
• ·*出租销售系统 5.6--算法分析 下
• *出租销售系统 5.6--算法分析 下 相关软件

上一篇:加密算法之DSA算法

下一篇:文件分割器的算法 上

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐