MD5算法在PB中的实现

       MD5算法自从1991开发出来以后广泛用于数字签名和加密解密领域。目前使用PB外的语言可以较为简单地实现了MD5加密，使用PB来实现的比较鲜见，这可能有如下两方面的原因：一，PB在位运算方面未提供直接使用的函数，要实现位运算比较麻烦；二，在PB（PB10之前的版本）中无法直接获取字符的unicode值。如果能够攻破这两个难点，在熟悉MD5算法之后应该比较容易地在PB中实现MD5加密。        PB虽然未提供位运算方面直接使用的函数，但如果了解位运算的法则，同样可以实现位运算。不论是二元运算还是一元运算，参与运算的表达式都以补码方法表示，其结果也以补码表示。通用的做法是创建一个专门用于位运算的对象，使其实现进制之间的转化、位运算、求反、求补等功能，然后在加密时调用。关于根据原码求其反码、补码的运算法则可以参考相关的计算机书籍。        在PB中虽然无法直接获取字符的unicode值（据说PB10有ASCW函数可以实现），但调用WINAPI可以实现，这个函数就是MultiByteToWideChar（注意该函数在PB环境下区分大小写），可运行于Windows95及以后的Windows操作系统。顺便提一下，目前网上大多数MD5加密算法中只取字符的ASCII，因而对于非英文语言的字符加密支持不够。        以下是MD5算法在PB中实现的源代码，读者只需将其保存到sru格式的文件中然后导入到PB库文件中生成相应对象，然后依据PB的对象调用规则便可使用。由于作者水平有限，部分代码段未提供详细注释，敬请原谅。所有代码在PB8.0.3Build9704和Windows2000 AdvancedServer Service Pack4环境下运行正确。 限于篇幅，本文不给出MD5算法的加密原理，读者可查阅MD5算法的详细资料，如范本文件http://www.ietf.org/rfc/rfc1321.txt，在实现时可参考PFC中pfc_n_cst_numerical对象提供的位运算函数及其它语言（如C/C++/Delphi/ASP/MSSQLSERVER2000）实现MD5加密的源代码。 一，nvo_numerical对象，提供位运算功能。 forward global type nvo_numerical from nonvisualobject end type end forward global type nvo_numerical from nonvisualobject autoinstantiate end type   forward prototypes public function string of_binary (unsignedlong aul_decimal) public function string of_binary (long al_decimal) public function unsignedlong of_binarytodecimalunsigned (string as_binary) public function long of_decimal (string as_binary) public function string of_bitwisenot (string as_bitvalue) public function string of_bitwisefill (string as_bitvalue) public function long of_bitwiseand (long al_value1, long al_value2) public function long of_bitwiseor (long al_value1, long al_value2) public function long of_bitwisexor (long al_value1, long al_value2) end prototypes   public function string of_binary (unsignedlong aul_decimal); /******************************************************************* 函数名称：of_binary() 参数:     aul_decimal unsignedlong 数字 返回值： string 二进制字符 功能描述：将数字转为二进制字符 创建人：  康剑民 创建日期：2004-05-23 版本号：    v1.0.0  *******************************************************************/ string      ls_binary=''   //检查参数 If IsNull(aul_decimal) Then        SetNull(ls_binary)        Return ls_binary End If   Do        ls_binary = string(mod(aul_decimal, 2)) + ls_binary        aul_decimal = aul_decimal /2 Loop Until aul_decimal= 0   Return ls_binary end function   public function string of_binary (long al_decimal); /******************************************************************* 函数名称：of_binary() 参数:     al_decimal long 数字 返回值： string 二进制字符 功能描述：将数字转为二进制字符 创建人：  康剑民 创建日期：2004-05-23 版本号：    v1.0.0  *******************************************************************/ integer li_remainder string ls_return='',ls_null ulong ll_temp   //检查参数 if isnull(al_decimal) then        setnull(ls_null)        return ls_null end if   //处理零 if al_decimal = 0 then        return '0' end if   //处理负数 if al_decimal< 0 then        ll_temp = abs(al_decimal)//取绝对值        //负数的二进制码为其绝对值的二进制码前加负号        return '-' + this.of_binary(ll_temp)//取绝对值的二进制码 end if   do until al_decimal= 0        li_remainder = mod(al_decimal, 2)        al_decimal = al_decimal /2            ls_return = string(li_remainder) + ls_return loop   return ls_return end function   public function unsignedlong of_binarytodecimalunsigned (string as_binary);/******************************************************************* 函数名称：of_binarytodecimalunsigned() 参数:     as_binary string 二进制值 返回值： unsignedlong 无符号位十进制值 功能描述：二进制值转成无符号位十进制 创建人：  康剑民 创建日期：2004-05-23(第一版) 版本号：    v1.0.0 *******************************************************************/ integer    li_cnt long        ll_len,ll_null long        ll_decimal=0   //检查参数 If IsNull(as_binary) then        SetNull(ll_null)              Return ll_null End If   ll_len = lenw(as_binary)   For li_cnt = 1 to ll_len        //只允许出现0或1        If (Not midw(as_binary,li_cnt,1)='1') AND (Not midw(as_binary,li_cnt,1)='0') Then               Return -1        End If        if midw(as_binary,li_cnt,1) = '1' then               ll_decimal = ll_decimal + (2 ^ (ll_len - li_cnt))        end if Next   Return ll_decimal end function   public function long of_decimal (string as_binary); /******************************************************************* 函数名称：of_decimal() 参数:     as_binary 二进制值 返回值： long 十进制值 功能描述：将二进制值转十进制 创建人：  康剑民 创建日期：2004-05-23 版本号：    v1.0.0  *******************************************************************/ integer    li_cnt long        ll_len,ll_null char        lch_char[] long        ll_decimal=0   //检查参数 if isnull(as_binary) then        setnull(ll_null)        return ll_null end if   ll_len = lenw(as_binary) for li_cnt = 1 to ll_len        //只允许存在0和1字符        if (not midw(as_binary,li_cnt,1)='1') and (not midw(as_binary,li_cnt,1)='0') then               return -1        end if        if midw(as_binary,li_cnt,1) = '1' then               ll_decimal = ll_decimal + (2 ^ (ll_len - li_cnt))        end if next   return ll_decimal end function   public function string of_bitwisenot (string as_bitvalue); /******************************************************************* 函数名称：of_bitwisenot() 参数:     as_bitvalue string 二进制值 返回值： string 反码 功能描述：求二进制反码 创建人：  康剑民 创建日期：2004-05-23 版本号：    v1.0.0  *******************************************************************/ integer            li_cnt, li_count long               ll_result string             ls_value, ls_result   //检查参数 if isnull(as_bitvalue) then        setnull(ls_result)        return ls_result end if   li_cnt = lenw(as_bitvalue) //将0变为1,1变为0 for li_count = 1 to li_cnt        if midw(as_bitvalue, li_count, 1) = '0' then               ls_result = ls_result + '1'        else               ls_result = ls_result + '0'        end if end for        return ls_result   end function   public function string of_bitwisefill (string as_bitvalue); /******************************************************************* 函数名称：of_bitwisefill() 参数:     as_bitvalue string 二进制值 返回值： string 补码 功能描述：求二进制补码(要求前四位为符号位,1111表示负数,0000表示正数) 创建人：  康剑民 创建日期：2004-05-23 版本号：    v1.0.0  *******************************************************************/ integer            li_cnt, li_count,li_pos long               ll_result string             ls_value, ls_result boolean lb_exit=false   //检查参数 if isnull(as_bitvalue) then        setnull(ls_result)        return ls_result end if //正数的补码为其本身 if leftw(as_bitvalue,4) = '0000' then        return as_bitvalue else        //负数的补码为反码加1        as_bitvalue = midw(as_bitvalue,5,lenw(as_bitvalue))        //求反码        ls_result = this.of_bitwisenot(as_bitvalue)           //低位加1        li_pos = lastpos(ls_result,'0')        if li_pos = 0 then               ls_result = fill('0',li_count)        else               ls_result = leftw(ls_result,li_pos - 1) + '1' + fill('0',lenw(ls_result) - li_pos)        end if        return fill('1',4) + fill('0',ceiling(lenw(ls_result) / 4) * 4 - lenw(ls_result)) + ls_result end if   end function   public function long of_bitwiseand (long al_value1, long al_value2); /******************************************************************* 函数名称：of_bitwiseand() 参数:     al_value1 long 值1                       al_value2 long 值2 返回值： long 按位与运算后的结果 功能描述：按位与运算 创建人：  康剑民 创建日期：2004-05-23 版本号：    v1.0.0  *******************************************************************/ integer            li_cnt,li_len long               ll_result string            ls_bitvalue1,ls_bitvalue2,ls_return,ls_sign   //检查参数 if isnull(al_value1) or isnull(al_value2) then        setnull(ll_result)        return ll_result end if   ls_bitvalue1 = this.of_binary(al_value1)//取值1的二进制值 ls_bitvalue2 = this.of_binary(al_value2)//取值2的二进制值 //删除符号位 if leftw(ls_bitvalue1,1) = '-' then        ls_bitvalue1 = midw(ls_bitvalue1,2,lenw(ls_bitvalue1)) end if if leftw(ls_bitvalue2,1) = '-' then        ls_bitvalue2 = midw(ls_bitvalue2,2,lenw(ls_bitvalue2)) end if //取参与运算的二进制值长度 li_len = max(lenw(ls_bitvalue1),lenw(ls_bitvalue2)) li_len = ceiling(li_len / 4) * 4 //补位 ls_bitvalue1 = fill('0',li_len - lenw(ls_bitvalue1)) + ls_bitvalue1 ls_bitvalue2 = fill('0',li_len - lenw(ls_bitvalue2)) + ls_bitvalue2 //加符号位 if al_value1 < 0 then        ls_bitvalue1 = fill('1',4) + ls_bitvalue1 else        ls_bitvalue1 = fill('0',4) + ls_bitvalue1 end if if al_value2 < 0 then        ls_bitvalue2 = fill('1',4) + ls_bitvalue2 else        ls_bitvalue2 = fill('0',4) + ls_bitvalue2 end if //取补码 ls_bitvalue1 = this.of_bitwisefill(ls_bitvalue1)//取值1的二进值补码 ls_bitvalue2 = this.of_bitwisefill(ls_bitvalue2)//取值2的二进值补码 //对应位与运算(参数运算的两元素以补码表示,运算结果也以补码表示;只有二者都为1时结果才为1否则为0) for li_cnt = 1 to li_len + 4        if midw(ls_bitvalue1,li_cnt,1) = '1' and midw(ls_bitvalue2,li_cnt,1) = '1' then               ls_return = ls_return + '1'        else               ls_return = ls_return + '0'        end if next //对结果取补码 ls_return = this.of_bitwisefill(ls_return) //取结果符号 if leftw(ls_return,4) = '1111' then        ls_sign = '-' else        ls_sign = '' end if ls_return = midw(ls_return,5,lenw(ls_return)) //将结果转为十进制 ll_result = this.of_binarytodecimalunsigned (ls_return) //结果加上符号 if ls_sign = '-' then ll_result = ll_result * (-1)   return ll_result   end function   public function long of_bitwiseor (long al_value1, long al_value2); /******************************************************************* 函数名称：of_bitwiseor() 参数:     al_value1 long 值1                       al_value1 long 值2 返回值： long 按位或运算结果 功能描述：按位或运算 创建人：  康剑民 创建日期：2004-05-23 版本号：    v1.0.0  *******************************************************************/ integer            li_cnt,li_len long               ll_result string            ls_bitvalue1,ls_bitvalue2,ls_return,ls_sign   //检查参数 if isnull(al_value1) or isnull(al_value2) then        setnull(ll_result)        return ll_result end if   ls_bitvalue1 = this.of_binary(al_value1)//取值1的二进制值 ls_bitvalue2 = this.of_binary(al_value2)//取值2的二进制值   //删除符号位 if leftw(ls_bitvalue1,1) = '-' then        ls_bitvalue1 = midw(ls_bitvalue1,2,lenw(ls_bitvalue1)) end if if leftw(ls_bitvalue2,1) = '-' then        ls_bitvalue2 = midw(ls_bitvalue2,2,lenw(ls_bitvalue2)) end if //取参与运算的二进制值长度 li_len = max(lenw(ls_bitvalue1),lenw(ls_bitvalue2)) li_len = ceiling(li_len / 4) * 4 //补位 ls_bitvalue1 = fill('0',li_len - lenw(ls_bitvalue1)) + ls_bitvalue1 ls_bitvalue2 = fill('0',li_len - lenw(ls_bitvalue2)) + ls_bitvalue2 //加符号位 if al_value1 < 0 then        ls_bitvalue1 = fill('1',4) + ls_bitvalue1 else        ls_bitvalue1 = fill('0',4) + ls_bitvalue1 end if if al_value2 < 0 then        ls_bitvalue2 = fill('1',4) + ls_bitvalue2 else        ls_bitvalue2 = fill('0',4) + ls_bitvalue2 end if //取补码 ls_bitvalue1 = this.of_bitwisefill(ls_bitvalue1)//取值1的补码 ls_bitvalue2 = this.of_bitwisefill(ls_bitvalue2)//取值2的补码 //对应位或运算(参数运算的两元素以补码表示,运算结果也以补码表示;只要二者中有一个为1时结果为1否则为0) for li_cnt = 1 to li_len + 4        if midw(ls_bitvalue1,li_cnt,1) = '1' or midw(ls_bitvalue2,li_cnt,1) = '1' then               ls_return = ls_return + '1'        else               ls_return = ls_return + '0'        end if next //对结果取补码 ls_return = this.of_bitwisefill(ls_return) if leftw(ls_return,4) = '1111' then        ls_sign = '-' else        ls_sign = '' end if ls_return = midw(ls_return,5,lenw(ls_return)) //将结果转为十进制 ll_result = this.of_binarytodecimalunsigned (ls_return) //加上符号位 if ls_sign = '-' then ll_result = ll_result * (-1)   return ll_result     end function   public function long of_bitwisexor (long al_value1, long al_value2); /******************************************************************* 函数名称：of_bitwiseor() 参数:     al_value1 long 值1                       al_value1 long 值2 返回值： long 按位异或运算结果 功能描述：按位异或运算 创建人：  康剑民 创建日期：2004-05-23 版本号：    v1.0.0  *******************************************************************/ integer            li_cnt,li_len long               ll_result string            ls_bitvalue1,ls_bitvalue2,ls_return,ls_sign   //检查参数 if isnull(al_value1) or isnull(al_value2) then        setnull(ll_result)        return ll_result end if   ls_bitvalue1 = this.of_binary(al_value1)//取值1的二进制值 ls_bitvalue2 = this.of_binary(al_value2)//取值2的二进制值 //删除符号位 if leftw(ls_bitvalue1,1) = '-' then        ls_bitvalue1 = midw(ls_bitvalue1,2,lenw(ls_bitvalue1)) end if if leftw(ls_bitvalue2,1) = '-' then        ls_bitvalue2 = midw(ls_bitvalue2,2,lenw(ls_bitvalue2)) end if //取参与运算的二进制值长度 li_len = max(lenw(ls_bitvalue1),lenw(ls_bitvalue2)) li_len = ceiling(li_len / 4) * 4 //补位 ls_bitvalue1 = fill('0',li_len - lenw(ls_bitvalue1)) + ls_bitvalue1 ls_bitvalue2 = fill('0',li_len - lenw(ls_bitvalue2)) + ls_bitvalue2 //加符号位 if al_value1 < 0 then        ls_bitvalue1 = fill('1',4) + ls_bitvalue1 else        ls_bitvalue1 = fill('0',4) + ls_bitvalue1 end if if al_value2 < 0 then        ls_bitvalue2 = fill('1',4) + ls_bitvalue2 else        ls_bitvalue2 = fill('0',4) + ls_bitvalue2 end if //取补码 ls_bitvalue1 = this.of_bitwisefill(ls_bitvalue1)//取值1的补码 ls_bitvalue2 = this.of_bitwisefill(ls_bitvalue2)//取值2的补码 //对应位异或运算(参数运算的两元素以补码表示,运算结果也以补码表示;只有二者不相同时结果为1否则为0) for li_cnt = 1 to li_len + 4        if (midw(ls_bitvalue1,li_cnt,1) = '1' and midw(ls_bitvalue2,li_cnt,1) = '0') or &               (midw(ls_bitvalue1,li_cnt,1) = '0' and midw(ls_bitvalue2,li_cnt,1) = '1') then               ls_return = ls_return + '1'        else               ls_return = ls_return + '0'        end if next //对结果取补码 ls_return = this.of_bitwisefill(ls_return) if leftw(ls_return,4) = '1111' then        ls_sign = '-' else        ls_sign = '' end if ls_return = midw(ls_return,5,lenw(ls_return)) //将结果转为十进制 ll_result = this.of_binarytodecimalunsigned(ls_return) //加符号位 if ls_sign = '-' then ll_result = ll_result * (-1)   return ll_result   end function   on nvo_numerical.create call super::create triggerevent( this, "constructor" ) end on   on nvo_numerical.destroy triggerevent( this, "destructor" ) call super::destroy end on   二，       nvo_md5对象，提供字符加密功能。 forward global type nvo_md5 from nonvisualobject end type end forward   global type nvo_md5 from nonvisualobject autoinstantiate end type   type prototypes //ansi转为unicode function int MultiByteToWideChar(uint codepage, ulong dwflags, ref string lpmultibytestr, int cchmultibyte, ref long lpwidecharstr, int cchwidechar) library "kernel32.dll" end prototypes type variables nvo_numerical inv_numerical//数字服务对象 end variables   forward prototypes private function long of_addunsigned (readonly long al_x, readonly long al_y) private function long of_converttowordarray (readonly string as_origmess, ref long al_word[]) public function string of_encrypt (readonly string as_origmess) private function long of_f (readonly long al_x, readonly long al_y, readonly long al_z) private function long of_ff (readonly long al_a, readonly long al_b, readonly long al_c, readonly long al_d, readonly long al_x, readonly long al_s, readonly long al_ac) private function long of_g (readonly long al_x, readonly long al_y, readonly long al_z) private function long of_gg (readonly long al_a, readonly long al_b, readonly long al_c, readonly long al_d, readonly long al_x, readonly long al_s, readonly long al_ac) private function long of_h (readonly long al_x, readonly long al_y, readonly long al_z) private function long of_hh (readonly long al_a, readonly long al_b, readonly long al_c, readonly long al_d, readonly long al_x, readonly long al_s, readonly long al_ac) private function long of_i (readonly long al_x, readonly long al_y, readonly long al_z) private function long of_ii (readonly long al_a, readonly long al_b, readonly long al_c, readonly long al_d, readonly long al_x, readonly long al_s, readonly long al_ac) private function string of_wordtohex (readonly long al_value) private function long of_rshift (readonly long al_oldvalue, readonly long al_shiftbits) private function long of_rotateleft (readonly long al_oldvalue, readonly long al_shiftbits) private function long of_monbits (readonly long al_oldvalue) private function long of_m2power (readonly long al_oldvalue) private function long of_lshift (readonly long al_oldvalue, readonly long al_shiftbits) private function long of_getunicode (string as_char) end prototypes   private function long of_addunsigned (readonly long al_x, readonly long al_y); /******************************************************************* 函数名称：of_addunsigned() 参数:     al_x long 值1                       al_y long 值2 返回值： long 运算结果 功能描述：md5加密时的运算之一 创建人：  康剑民 创建日期：2004-05-24(第一版) 版本号：    v1.0.0 *******************************************************************/ return al_x + al_y end function   private function long of_converttowordarray (readonly string as_origmess, ref long al_word[]); /******************************************************************* 函数名称：of_converttowordarray() 参数:     as_origmess string 原文本                       al_word[] ref long 转换后的数组 返回值： long 是否成功(1/-1) 功能描述：将字符装入数组并进行位填充 创建人：  康剑民 创建日期：2004-05-24 版本号：     v1.0.0 *******************************************************************/ long ll_lenofmess,ll_wordarraylen,ll_posofword,ll_posofmess,ll_countofword long i,ll_temp,ll_word_list[],ll_word_unicode string ls_return,ls_char   ll_lenofmess = lenw(as_origmess) ll_wordarraylen = (integer((ll_lenofmess + 8) / 64) + 1) * 16 ll_countofword = 0 for i = 1 to ll_wordarraylen        ll_word_list[i] = 0 next   ll_posofmess = 0 ll_posofword = 0 ll_countofword = 0 do while ll_posofmess < ll_lenofmess        ls_char = midw(as_origmess,ll_posofmess + 1,1)              ll_countofword = integer(ll_posofmess / 4)        ll_posofword = mod(ll_posofmess,4)        if ll_countofword + 1 > 0 and ll_countofword + 1 <= upperbound(ll_word_list) then               ll_word_unicode = this.of_getunicode(ls_char)//取字符的unicode值               ll_word_list[ll_countofword + 1] = inv_numerical.of_bitwiseor(ll_word_list[ll_countofword + 1],this.of_lshift(ll_word_unicode,ll_posofword * 8))        end if        ll_posofmess ++ loop   ll_countofword = integer(ll_posofmess / 4) ll_posofword = mod(ll_posofmess,4) if ll_countofword + 1 > 0 and ll_countofword + 1 <= upperbound(ll_word_list) then        ll_word_list[ll_countofword + 1] = inv_numerical.of_bitwiseor(ll_word_list[ll_countofword + 1],this.of_lshift(128,ll_posofword * 8)) end if   if ll_wordarraylen - 2 + 1 > 0 and ll_wordarraylen - 2 + 1 <= upperbound(ll_word_list) then        ll_word_list[ll_wordarraylen - 2 + 1] = inv_numerical.of_bitwiseor(ll_word_list[ll_wordarraylen - 2 + 1],this.of_lshift(ll_lenofmess,3)) end if   if ll_wordarraylen - 1 + 1 > 0 and ll_wordarraylen - 1 + 1 <= upperbound(ll_word_list) then        ll_word_list[ll_wordarraylen - 1 + 1] = inv_numerical.of_bitwiseor(ll_word_list[ll_wordarraylen - 1 + 1],this.of_rshift(ll_lenofmess,29)) end if   al_word = ll_word_list   return 1 end function public function string of_encrypt (readonly string as_origmess); /******************************************************************* 函数名称：of_encrypt() 参数:     as_origmess string 原文本 返回值： string 加密后文本 功能描述：md5加密 创建人：  康剑民 创建日期：2004-05-24 版本号：     v1.0.0 *******************************************************************/ long ll_word_list[16]={7,12,17,22,5,9,14,20,4,11,16,23,6,10,15,21} long ll_a,ll_b,ll_c,ll_d,ll_aa,ll_bb,ll_cc,ll_dd,ll_temp[] string ls_return='' long ll_wordarraycount,ll_wordarraylen   //初始化核心变量 ll_a = 1732584193 ll_b = -271733879 ll_c = -1732584194 ll_d = 271733878   //将字符装入数组并进行位填充 this.of_converttowordarray(as_origmess,ll_temp) ll_wordarraycount = 0 ll_wordarraylen = (long((lenw(as_origmess) + 8) / 64) + 1) * 16   do while ll_wordarraycount < ll_wordarraylen        ll_aa = ll_a        ll_bb = ll_b        ll_cc = ll_c        ll_dd = ll_d              ll_wordarraycount = ll_wordarraycount + 1        //第一轮运算        if ll_wordarraycount + 0 > 0 and ll_wordarraycount + 0 <= upperbound(ll_temp) then               ll_a = this.of_ff(ll_a,ll_b,ll_c,ll_d,ll_temp[ll_wordarraycount + 0],ll_word_list[1],-680876936)        end if             if ll_wordarraycount + 1 > 0 and ll_wordarraycount + 1 <= upperbound(ll_temp) then               ll_d = this.of_ff(ll_d,ll_a,ll_b,ll_c,ll_temp[ll_wordarraycount + 1],ll_word_list[2],-389564586)        end if        if ll_wordarraycount + 2 > 0 and ll_wordarraycount + 2 <= upperbound(ll_temp) then               ll_c = this.of_ff(ll_c,ll_d,ll_a,ll_b,ll_temp[ll_wordarraycount + 2],ll_word_list[3],606105819)        end if        if ll_wordarraycount + 3 > 0 and ll_wordarraycount + 3 <= upperbound(ll_temp) then               ll_b = this.of_ff(ll_b,ll_c,ll_d,ll_a,ll_temp[ll_wordarraycount + 3],ll_word_list[4],-1044525330)        end if        if ll_wordarraycount + 4 > 0 and ll_wordarraycount + 4 <= upperbound(ll_temp) then               ll_a = this.of_ff(ll_a,ll_b,ll_c,ll_d,ll_temp[ll_wordarraycount + 4],ll_word_list[1],-176418897)        end if        if ll_wordarraycount + 5 > 0 and ll_wordarraycount + 5 <= upperbound(ll_temp) then               ll_d = this.of_ff(ll_d,ll_a,ll_b,ll_c,ll_temp[ll_wordarraycount + 5],ll_word_list[2],1200080426)        end if        if ll_wordarraycount + 6 > 0 and ll_wordarraycount + 6 <= upperbound(ll_temp) then               ll_c = this.of_ff(ll_c,ll_d,ll_a,ll_b,ll_temp[ll_wordarraycount + 6],ll_word_list[3],-1473231341)        end if        if ll_wordarraycount + 7 > 0 and ll_wordarraycount + 7 <= upperbound(ll_temp) then               ll_b = this.of_ff(ll_b,ll_c,ll_d,ll_a,ll_temp[ll_wordarraycount + 7],ll_word_list[4],-45705983)        end if        if ll_wordarraycount + 8 > 0 and ll_wordarraycount + 8 <= upperbound(ll_temp) then               ll_a = this.of_ff(ll_a,ll_b,ll_c,ll_d,ll_temp[ll_wordarraycount + 8],ll_word_list[1],1770035416)        end if        if ll_wordarraycount + 9 > 0 and ll_wordarraycount + 9 <= upperbound(ll_temp) then               ll_d = this.of_ff(ll_d,ll_a,ll_b,ll_c,ll_temp[ll_wordarraycount + 9],ll_word_list[2],-1958414417)        end if        if ll_wordarraycount + 10 > 0 and ll_wordarraycount + 10 <= upperbound(ll_temp) then               ll_c = this.of_ff(ll_c,ll_d,ll_a,ll_b,ll_temp[ll_wordarraycount + 10],ll_word_list[3],-42063)        end if        if ll_wordarraycount + 11 > 0 and ll_wordarraycount + 11 <= upperbound(ll_temp) then               ll_b = this.of_ff(ll_b,ll_c,ll_d,ll_a,ll_temp[ll_wordarraycount + 11],ll_word_list[4],-1990404162)        end if        if ll_wordarraycount + 12 > 0 and ll_wordarraycount + 12 <= upperbound(ll_temp) then               ll_a = this.of_ff(ll_a,ll_b,ll_c,ll_d,ll_temp[ll_wordarraycount + 12],ll_word_list[1],1804603682)        end if        if ll_wordarraycount + 13 > 0 and ll_wordarraycount + 13 <= upperbound(ll_temp) then               ll_d = this.of_ff(ll_d,ll_a,ll_b,ll_c,ll_temp[ll_wordarraycount + 13],ll_word_list[2],-40341101)        end if        if ll_wordarraycount + 14 > 0 and ll_wordarraycount + 14 <= upperbound(ll_temp) then               ll_c = this.of_ff(ll_c,ll_d,ll_a,ll_b,ll_temp[ll_wordarraycount + 14],ll_word_list[3],-1502002290)        end if        if ll_wordarraycount + 15 > 0 and ll_wordarraycount + 15 <= upperbound(ll_temp) then               ll_b = this.of_ff(ll_b,ll_c,ll_d,ll_a,ll_temp[ll_wordarraycount + 15],ll_word_list[4],1236535329)        end if        //第二轮运算        if ll_wordarraycount + 1 > 0 and ll_wordarraycount + 1 <= upperbound(ll_temp) then               ll_a = this.of_gg(ll_a,ll_b,ll_c,ll_d,ll_temp[ll_wordarraycount + 1],ll_word_list[5],-165796510)        end if        if ll_wordarraycount + 6 > 0 and ll_wordarraycount + 6 <= upperbound(ll_temp) then               ll_d = this.of_gg(ll_d,ll_a,ll_b,ll_c,ll_temp[ll_wordarraycount + 6],ll_word_list[6],-1069501632)        end if        if ll_wordarraycount + 11 > 0 and ll_wordarraycount + 11 <= upperbound(ll_temp) then               ll_c = this.of_gg(ll_c,ll_d,ll_a,ll_b,ll_temp[ll_wordarraycount + 11],ll_word_list[7],643717713)        end if        if ll_wordarraycount + 0 > 0 and ll_wordarraycount + 0 <= upperbound(ll_temp) then               ll_b = this.of_gg(ll_b,ll_c,ll_d,ll_a,ll_temp[ll_wordarraycount + 0],ll_word_list[8],-373897302)        end if        if ll_wordarraycount + 5 > 0 and ll_wordarraycount + 5 <= upperbound(ll_temp) then               ll_a = this.of_gg(ll_a,ll_b,ll_c,ll_d,ll_temp[ll_wordarraycount + 5],ll_word_list[5],-701558691)        end if        if ll_wordarraycount + 10 > 0 and ll_wordarraycount + 10 <= upperbound(ll_temp) then               ll_d = this.of_gg(ll_d,ll_a,ll_b,ll_c,ll_temp[ll_wordarraycount + 10],ll_word_list[6],38016083)        end if        if ll_wordarraycount + 15 > 0 and ll_wordarraycount + 15 <= upperbound(ll_temp) then               ll_c = this.of_gg(ll_c,ll_d,ll_a,ll_b,ll_temp[ll_wordarraycount + 15],ll_word_list[7],-660478335)        end if        if ll_wordarraycount + 4 > 0 and ll_wordarraycount + 4 <= upperbound(ll_temp) then               ll_b = this.of_gg(ll_b,ll_c,ll_d,ll_a,ll_temp[ll_wordarraycount + 4],ll_word_list[8],-405537848)        end if        if ll_wordarraycount + 9 > 0 and ll_wordarraycount + 9 <= upperbound(ll_temp) then               ll_a = this.of_gg(ll_a,ll_b,ll_c,ll_d,ll_temp[ll_wordarraycount + 9],ll_word_list[5],568446438)        end if        if ll_wordarraycount + 14 > 0 and ll_wordarraycount + 14 <= upperbound(ll_temp) then               ll_d = this.of_gg(ll_d,ll_a,ll_b,ll_c,ll_temp[ll_wordarraycount + 14],ll_word_list[6],-1019803690)        end if        if ll_wordarraycount + 3 > 0 and ll_wordarraycount + 3 <= upperbound(ll_temp) then               ll_c = this.of_gg(ll_c,ll_d,ll_a,ll_b,ll_temp[ll_wordarraycount + 3],ll_word_list[7],-187363961)        end if        if ll_wordarraycount + 8 > 0 and ll_wordarraycount + 8 <= upperbound(ll_temp) then               ll_b = this.of_gg(ll_b,ll_c,ll_d,ll_a,ll_temp[ll_wordarraycount + 8],ll_word_list[8],1163531501)        end if        if ll_wordarraycount + 13 > 0 and ll_wordarraycount + 13 <= upperbound(ll_temp) then               ll_a = this.of_gg(ll_a,ll_b,ll_c,ll_d,ll_temp[ll_wordarraycount + 13],ll_word_list[5],-1444681467)        end if        if ll_wordarraycount + 2 > 0 and ll_wordarraycount + 2 <= upperbound(ll_temp) then               ll_d = this.of_gg(ll_d,ll_a,ll_b,ll_c,ll_temp[ll_wordarraycount + 2],ll_word_list[6],-51403784)        end if        if ll_wordarraycount + 7 > 0 and ll_wordarraycount + 7 <= upperbound(ll_temp) then               ll_c = this.of_gg(ll_c,ll_d,ll_a,ll_b,ll_temp[ll_wordarraycount + 7],ll_word_list[7],1735328473)        end if        if ll_wordarraycount + 12 > 0 and ll_wordarraycount + 12 <= upperbound(ll_temp) then               ll_b = this.of_gg(ll_b,ll_c,ll_d,ll_a,ll_temp[ll_wordarraycount + 12],ll_word_list[8],-1926607734)        end if        //第三轮运算        if ll_wordarraycount + 5 > 0 and ll_wordarraycount + 5 <= upperbound(ll_temp) then               ll_a = this.of_hh(ll_a,ll_b,ll_c,ll_d,ll_temp[ll_wordarraycount + 5],ll_word_list[9],-378558)        end if        if ll_wordarraycount + 8 > 0 and ll_wordarraycount + 8 <= upperbound(ll_temp) then               ll_d = this.of_hh(ll_d,ll_a,ll_b,ll_c,ll_temp[ll_wordarraycount + 8],ll_word_list[10],-2022574463)        end if        if ll_wordarraycount + 11 > 0 and ll_wordarraycount + 11 <= upperbound(ll_temp) then               ll_c = this.of_hh(ll_c,ll_d,ll_a,ll_b,ll_temp[ll_wordarraycount + 11],ll_word_list[11],1839030562)        end if        if ll_wordarraycount + 14 > 0 and ll_wordarraycount + 14 <= upperbound(ll_temp) then               ll_b = this.of_hh(ll_b,ll_c,ll_d,ll_a,ll_temp[ll_wordarraycount + 14],ll_word_list[12],-35309556)        end if        if ll_wordarraycount + 1 > 0 and ll_wordarraycount + 1 <= upperbound(ll_temp) then               ll_a = this.of_hh(ll_a,ll_b,ll_c,ll_d,ll_temp[ll_wordarraycount + 1],ll_word_list[9],-1530992060)        end if        if ll_wordarraycount + 4 > 0 and ll_wordarraycount + 4 <= upperbound(ll_temp) then               ll_d = this.of_hh(ll_d,ll_a,ll_b,ll_c,ll_temp[ll_wordarraycount + 4],ll_word_list[10],1272893353)        end if        if ll_wordarraycount + 7 > 0 and ll_wordarraycount + 7 <= upperbound(ll_temp) then               ll_c = this.of_hh(ll_c,ll_d,ll_a,ll_b,ll_temp[ll_wordarraycount + 7],ll_word_list[11],-155497632)        end if        if ll_wordarraycount + 10 > 0 and ll_wordarraycount + 10 <= upperbound(ll_temp) then               ll_b = this.of_hh(ll_b,ll_c,ll_d,ll_a,ll_temp[ll_wordarraycount + 10],ll_word_list[12],-1094730640)        end if        if ll_wordarraycount + 13 > 0 and ll_wordarraycount + 13 <= upperbound(ll_temp) then               ll_a = this.of_hh(ll_a,ll_b,ll_c,ll_d,ll_temp[ll_wordarraycount + 13],ll_word_list[9],681279174)        end if        if ll_wordarraycount + 0 > 0 and ll_wordarraycount + 0 <= upperbound(ll_temp) then               ll_d = this.of_hh(ll_d,ll_a,ll_b,ll_c,ll_temp[ll_wordarraycount + 0],ll_word_list[10],-358537222)        end if        if ll_wordarraycount + 3 > 0 and ll_wordarraycount + 3 <= upperbound(ll_temp) then               ll_c = this.of_hh(ll_c,ll_d,ll_a,ll_b,ll_temp[ll_wordarraycount + 3],ll_word_list[11],-722521979)        end if        if ll_wordarraycount + 6 > 0 and ll_wordarraycount + 6 <= upperbound(ll_temp) then               ll_b = this.of_hh(ll_b,ll_c,ll_d,ll_a,ll_temp[ll_wordarraycount + 6],ll_word_list[12],76029189)        end if        if ll_wordarraycount + 9 > 0 and ll_wordarraycount + 9 <= upperbound(ll_temp) then               ll_a = this.of_hh(ll_a,ll_b,ll_c,ll_d,ll_temp[ll_wordarraycount + 9],ll_word_list[9],-640364487)        end if        if ll_wordarraycount + 12 > 0 and ll_wordarraycount + 12 <= upperbound(ll_temp) then               ll_d = this.of_hh(ll_d,ll_a,ll_b,ll_c,ll_temp[ll_wordarraycount + 12],ll_word_list[10],-421815835)        end if        if ll_wordarraycount + 15 > 0 and ll_wordarraycount + 15 <= upperbound(ll_temp) then               ll_c = this.of_hh(ll_c,ll_d,ll_a,ll_b,ll_temp[ll_wordarraycount + 15],ll_word_list[11],530742520)        end if        if ll_wordarraycount + 2 > 0 and ll_wordarraycount + 2 <= upperbound(ll_temp) then               ll_b = this.of_hh(ll_b,ll_c,ll_d,ll_a,ll_temp[ll_wordarraycount + 2],ll_word_list[12],-995338651)        end if        //第四轮运算        if ll_wordarraycount + 0 > 0 and ll_wordarraycount + 0 <= upperbound(ll_temp) then               ll_a = this.of_ii(ll_a,ll_b,ll_c,ll_d,ll_temp[ll_wordarraycount + 0],ll_word_list[13],-198630844)        end if        if ll_wordarraycount + 7 > 0 and ll_wordarraycount + 7 <= upperbound(ll_temp) then               ll_d = this.of_ii(ll_d,ll_a,ll_b,ll_c,ll_temp[ll_wordarraycount + 7],ll_word_list[14],1126891415)        end if        if ll_wordarraycount + 14 > 0 and ll_wordarraycount + 14 <= upperbound(ll_temp) then               ll_c = this.of_ii(ll_c,ll_d,ll_a,ll_b,ll_temp[ll_wordarraycount + 14],ll_word_list[15],-1416354905)        end if        if ll_wordarraycount + 5 > 0 and ll_wordarraycount + 5 <= upperbound(ll_temp) then               ll_b = this.of_ii(ll_b,ll_c,ll_d,ll_a,ll_temp[ll_wordarraycount + 5],ll_word_list[16],-57434055)        end if        if ll_wordarraycount + 12 > 0 and ll_wordarraycount + 12 <= upperbound(ll_temp) then               ll_a = this.of_ii(ll_a,ll_b,ll_c,ll_d,ll_temp[ll_wordarraycount + 12],ll_word_list[13],1700485571)        end if        if ll_wordarraycount + 3 > 0 and ll_wordarraycount + 3 <= upperbound(ll_temp) then               ll_d = this.of_ii(ll_d,ll_a,ll_b,ll_c,ll_temp[ll_wordarraycount + 3],ll_word_list[14],-1894986606)        end if        if ll_wordarraycount + 10 > 0 and ll_wordarraycount + 10 <= upperbound(ll_temp) then               ll_c = this.of_ii(ll_c,ll_d,ll_a,ll_b,ll_temp[ll_wordarraycount + 10],ll_word_list[15],-1051523)        end if        if ll_wordarraycount + 1 > 0 and ll_wordarraycount + 1 <= upperbound(ll_temp) then               ll_b = this.of_ii(ll_b,ll_c,ll_d,ll_a,ll_temp[ll_wordarraycount + 1],ll_word_list[16],-2054922799)        end if        if ll_wordarraycount + 8 > 0 and ll_wordarraycount + 8 <= upperbound(ll_temp) then               ll_a = this.of_ii(ll_a,ll_b,ll_c,ll_d,ll_temp[ll_wordarraycount + 8],ll_word_list[13],1873313359)        end if        if ll_wordarraycount + 15 > 0 and ll_wordarraycount + 15 <= upperbound(ll_temp) then               ll_d = this.of_ii(ll_d,ll_a,ll_b,ll_c,ll_temp[ll_wordarraycount + 15],ll_word_list[14],-30611744)        end if        if ll_wordarraycount + 6 > 0 and ll_wordarraycount + 6 <= upperbound(ll_temp) then               ll_c = this.of_ii(ll_c,ll_d,ll_a,ll_b,ll_temp[ll_wordarraycount + 6],ll_word_list[15],-1560198380)        end if        if ll_wordarraycount + 13 > 0 and ll_wordarraycount + 13 <= upperbound(ll_temp) then               ll_b = this.of_ii(ll_b,ll_c,ll_d,ll_a,ll_temp[ll_wordarraycount + 13],ll_word_list[16],1309151649)        end if        if ll_wordarraycount + 4 > 0 and ll_wordarraycount + 4 <= upperbound(ll_temp) then               ll_a = this.of_ii(ll_a,ll_b,ll_c,ll_d,ll_temp[ll_wordarraycount + 4],ll_word_list[13],-145523070)        end if        if ll_wordarraycount + 11 > 0 and ll_wordarraycount + 11 <= upperbound(ll_temp) then               ll_d = this.of_ii(ll_d,ll_a,ll_b,ll_c,ll_temp[ll_wordarraycount + 11],ll_word_list[14],-1120210379)        end if        if ll_wordarraycount + 2 > 0 and ll_wordarraycount + 2 <= upperbound(ll_temp) then               ll_c = this.of_ii(ll_c,ll_d,ll_a,ll_b,ll_temp[ll_wordarraycount + 2],ll_word_list[15],718787259)        end if        if ll_wordarraycount + 9 > 0 and ll_wordarraycount + 9 <= upperbound(ll_temp) then               ll_b = this.of_ii(ll_b,ll_c,ll_d,ll_a,ll_temp[ll_wordarraycount + 9],ll_word_list[16],-343485551)        end if        //中间结果向右位移        ll_a = this.of_addunsigned(ll_a,ll_aa)        ll_b = this.of_addunsigned(ll_b,ll_bb)        ll_c = this.of_addunsigned(ll_c,ll_cc)        ll_d = this.of_addunsigned(ll_d,ll_dd)          ll_wordarraycount = ll_wordarraycount + 16 - 1 loop   //生成128位散列值 ls_return = lower(this.of_wordtohex(ll_a) + this.of_wordtohex(ll_b) + this.of_wordtohex(ll_c) + this.of_wordtohex(ll_d))   return ls_return end function   private function long of_f (readonly long al_x, readonly long al_y, readonly long al_z); /******************************************************************* 函数名称：of_f() 参数:     al_x long 值1                       al_y long 值2                       al_z long 值3 返回值： long 位运算结果 功能描述：md5加密时的位运算之一 创建人：  康剑民 创建日期：2004-05-24 版本号：     v1.0.0 *******************************************************************/ return inv_numerical.of_bitwiseor(inv_numerical.of_bitwiseand(al_x,al_y),inv_numerical.of_bitwiseand((al_x + 1) * (-1),al_z)) end function   private function long of_ff (readonly long al_a, readonly long al_b, readonly long al_c, readonly long al_d, readonly long al_x, readonly long al_s, readonly long al_ac);/******************************************************************* 函数名称：of_ff() 参数:     al_a long 值1                       al_b long 值2                       al_c long 值3                       al_d long 值4                       al_x long 值5                       al_s long 值6                       al_ac long 值7 返回值： long 运算结果 功能描述：md5加密时的运算之一 创建人：  康剑民 创建日期：2004-05-24 版本号：     v1.0.0 *******************************************************************/ long ll_return   ll_return = this.of_f(al_b,al_c,al_d) ll_return = this.of_addunsigned(ll_return,al_x) ll_return = this.of_addunsigned(ll_return,al_ac) ll_return = this.of_addunsigned(al_a,ll_return) ll_return = this.of_rotateleft(ll_return,al_s) ll_return = this.of_addunsigned(ll_return,al_b)   return ll_return end function   private function long of_g (readonly long al_x, readonly long al_y, readonly long al_z); /******************************************************************* 函数名称：of_g() 参数:     al_x long 值1                       al_y long 值2                       al_z long 值3 返回值： long 位运算结果 功能描述：md5加密时的位运算之一 创建人：  康剑民 创建日期：2004-05-24 版本号：     v1.0.0 *******************************************************************/ return inv_numerical.of_bitwiseor(inv_numerical.of_bitwiseand(al_x,al_z),inv_numerical.of_bitwiseand(al_y,(al_z + 1) * (-1))) end function   private function long of_gg (readonly long al_a, readonly long al_b, readonly long al_c, readonly long al_d, readonly long al_x, readonly long al_s, readonly long al_ac); /******************************************************************* 函数名称：of_gg() 参数:     al_a long 值1                       al_b long 值2                       al_c long 值3                       al_d long 值4                       al_x long 值5                       al_s long 值6                       al_ac long 值7 返回值： long 运算结果 功能描述：md5加密时的运算之一 创建人：  康剑民 创建日期：2004-05-24 版本号：     v1.0.0 *******************************************************************/ long ll_return   ll_return = this.of_g(al_b,al_c,al_d) ll_return = this.of_addunsigned(ll_return,al_x) ll_return = this.of_addunsigned(ll_return,al_ac) ll_return = this.of_addunsigned(al_a,ll_return) ll_return = this.of_rotateleft(ll_return,al_s) ll_return = this.of_addunsigned(ll_return,al_b)   return ll_return end function   private function long of_h (readonly long al_x, readonly long al_y, readonly long al_z); /******************************************************************* 函数名称：of_h() 参数:     al_x long 值1                       al_y long 值2                       al_z long 值3 返回值： long 位运算结果 功能描述：md5加密时的位运算之一 创建人：  康剑民 创建日期：2004-05-24 版本号：     v1.0.0 *******************************************************************/ return inv_numerical.of_bitwisexor(inv_numerical.of_bitwisexor(al_x,al_y),al_z) end function   private function long of_hh (readonly long al_a, readonly long al_b, readonly long al_c, readonly long al_d, readonly long al_x, readonly long al_s, readonly long al_ac);/******************************************************************* 函数名称：of_hh() 参数:     al_a long 值1                       al_b long 值2                       al_c long 值3                       al_d long 值4                       al_x long 值5                       al_s long 值6                       al_ac long 值7 返回值： long 运算结果 功能描述：md5加密时的运算之一 创建人：  康剑民 创建日期：2004-05-24 版本号：     v1.0.0 *******************************************************************/ long ll_return   ll_return = this.of_h(al_b,al_c,al_d) ll_return = this.of_addunsigned(ll_return,al_x) ll_return = this.of_addunsigned(ll_return,al_ac) ll_return = this.of_addunsigned(al_a,ll_return) ll_return = this.of_rotateleft(ll_return,al_s) ll_return = this.of_addunsigned(ll_return,al_b)   return ll_return end function   private function long of_i (readonly long al_x, readonly long al_y, readonly long al_z); /******************************************************************* 函数名称：of_i() 参数:     al_x long 值1                       al_y long 值2                       al_z long 值3 返回值： long 位运算结果 功能描述：md5加密时的位运算之一 创建人：  康剑民 创建日期：2004-05-24 版本号：     v1.0.0 *******************************************************************/ return inv_numerical.of_bitwisexor(al_y,inv_numerical.of_bitwiseor(al_x,(al_z + 1) * (-1))) end function   private function long of_ii (readonly long al_a, readonly long al_b, readonly long al_c, readonly long al_d, readonly long al_x, readonly long al_s, readonly long al_ac); /******************************************************************* 函数名称：of_ii() 参数:     al_a long 值1                       al_b long 值2                       al_c long 值3                       al_d long 值4                       al_x long 值5                       al_s long 值6                       al_ac long 值7 返回值： long 运算结果 功能描述：md5加密时的运算之一 创建人：  康剑民 创建日期：2004-05-24 版本号：     v1.0.0 *******************************************************************/ long ll_return   ll_return = this.of_i(al_b,al_c,al_d) ll_return = this.of_addunsigned(ll_return,al_x) ll_return = this.of_addunsigned(ll_return,al_ac) ll_return = this.of_addunsigned(al_a,ll_return) ll_return = this.of_rotateleft(ll_return,al_s) ll_return = this.of_addunsigned(ll_return,al_b)   return ll_return end function   private function string of_wordtohex (readonly long al_value); /******************************************************************* 函数名称：of_wordtohex() 参数:     al_value long 原值 返回值： string 转化为十六进制后的值 功能描述：将数字转为十六进制值 创建人：  康剑民 创建日期：2004-05-24 版本号：     v1.0.0 *******************************************************************/ string ls_return,ls_temp long ll_temp,ll_count   ls_return = '' ll_count = 0 do while ll_count < 4        ll_temp = inv_numerical.of_bitwiseand(this.of_rshift(al_value,ll_count * 8),255)        choose case integer(ll_temp / 16)        case 0 to 9               ls_temp = string(integer(ll_temp / 16))        case 10               ls_temp = 'a'        case 11               ls_temp = 'b'        case 12               ls_temp = 'c'        case 13               ls_temp = 'd'        case 14               ls_temp = 'e'        case 15               ls_temp = 'f'        case else               ls_temp = ''        end choose        ls_return = ls_return + ls_temp        choose case mod(ll_temp,16)        case 0 to 9               ls_temp = string(mod(ll_temp,16))        case 10               ls_temp = 'a'        case 11               ls_temp = 'b'        case 12               ls_temp = 'c'        case 13               ls_temp = 'd'        case 14               ls_temp = 'e'        case 15               ls_temp = 'f'        case else               ls_temp = ''        end choose        ls_return = ls_return + ls_temp        ll_count = ll_count + 1 loop   return ls_return end function   private function long of_rshift (readonly long al_oldvalue, readonly long al_shiftbits); /******************************************************************* 函数名称：of_rshift() 参数:     al_oldvalue long 原值                       al_shiftbits long 右移位数 返回值： long 右移指定位数后的值 功能描述：数值按位右移 创建人：  康剑民 创建日期：2004-05-24 版本号：     v1.0.0 *******************************************************************/ ulong ll_return,ll_pos string ls_value   //转成二进制 ls_value = inv_numerical.of_binary(al_oldvalue)   if al_oldvalue < 0 then           ls_value = midw(ls_value,2,lenw(ls_value))        ls_value = inv_numerical.of_bitwisenot(ls_value)        //低位加1        ll_pos = lastpos(ls_value,'0')        if ll_pos = 0 then               ls_value = fill('0',lenw(ls_value))        else               ls_value = leftw(ls_value,ll_pos - 1) + '1' + fill('0',lenw(ls_value) - ll_pos)        end if        ls_value = fill('1',32 - lenw(ls_value)) + ls_value        ll_return = inv_numerical.of_decimal(ls_value) else        ll_return = al_oldvalue end if   ll_return = long(ll_return / this.of_m2power(al_shiftbits)) //转成二进制 ls_value = inv_numerical.of_binary(ll_return) if ll_return < 0 then        ls_value = midw(ls_value,2,lenw(ls_value))        ls_value = inv_numerical.of_bitwisenot(ls_value)        //低位加1        ll_pos = lastpos(ls_value,'0')        if ll_pos = 0 then               ls_value = fill('0',lenw(ls_value))        else               ls_value = leftw(ls_value,ll_pos - 1) + '1' + fill('0',lenw(ls_value) - ll_pos)        end if        ls_value = fill('1',32 - lenw(ls_value)) + ls_value        ll_return = inv_numerical.of_decimal(ls_value) end if ll_return = inv_numerical.of_bitwiseand(ll_return,-1)   return ll_return end function   private function long of_rotateleft (readonly long al_oldvalue, readonly long al_shiftbits); /******************************************************************* 函数名称：of_rotateleft() 参数:     al_oldvalue long 原值                       al_shiftbits long 左移位数 返回值： long 数据左移指定位数后的值 功能描述：数据左移指定位数 创建人：  康剑民 创建日期：2004-05-24 版本号：     v1.0.0 *******************************************************************/ return inv_numerical.of_bitwiseor(this.of_lshift(al_oldvalue,al_shiftbits),this.of_rshift(al_oldvalue,32 - al_shiftbits)) end function   private function long of_monbits (readonly long al_oldvalue); /******************************************************************* 函数名称：of_monbits() 参数:     al_oldvalue long 原值 返回值： long 新值 功能描述：md5加密时的运算之一 创建人：  康剑民 创建日期：2004-05-24 版本号：     v1.0.0 *******************************************************************/ if al_oldvalue >= 0 and al_oldvalue <= 30 then        return 2^(al_oldvalue + 1) - 1 else        return 0 end if end function   private function long of_m2power (readonly long al_oldvalue); /******************************************************************* 函数名称：of_m2power() 参数:     al_oldvalue long 原值 返回值： long 新值 功能描述：md5加密时的运算之一 创建人：  康剑民 创建日期：2004-05-24 版本号：     v1.0.0 *******************************************************************/ if al_oldvalue >= 0 and al_oldvalue <= 30 then        return 2^al_oldvalue else        return 0 end if end function   private function long of_lshift (readonly long al_oldvalue, readonly long al_shiftbits); /******************************************************************* 函数名称：of_lshift() 参数:     al_oldvalue long 原值                       al_shiftbits long 左移位数 返回值： long 左移指定位数后的值 功能描述：数值按位左移 创建人：  康剑民 创建日期：2004-05-24 版本号：     v1.0.0 *******************************************************************/ ulong ll_return,ll_pos string ls_value   //转成二进制 ls_value = inv_numerical.of_binary(al_oldvalue) if al_oldvalue < 0 then           ls_value = midw(ls_value,2,lenw(ls_value))        ls_value = inv_numerical.of_bitwisenot(ls_value)        //低位加1        ll_pos = lastpos(ls_value,'0')        if ll_pos = 0 then               ls_value = fill('0',lenw(ls_value))        else               ls_value = leftw(ls_value,ll_pos - 1) + '1' + fill('0',lenw(ls_value) - ll_pos)        end if        ls_value = fill('1',32 - lenw(ls_value)) + ls_value        ll_return = inv_numerical.of_decimal(ls_value) else        ll_return = al_oldvalue end if   ll_return = ll_return * this.of_m2power(al_shiftbits) ll_return = inv_numerical.of_bitwiseand(ll_return,-1)   return ll_return end function   private function integer of_getunicode (string as_char); /******************************************************************* 函数名称：of_getunicode() 参数:     as_char string 字符 返回值： long unicode编码 功能描述：取字符的unicode编码 创建人：  康剑民 创建日期：2004-05-24(第一版) 版本号：     v1.0.0 *******************************************************************/ long ll_len_old,ll_len_new long ll_return   ll_len_old = len(as_char) ll_len_new = 2 * ll_len_old MultiByteToWideChar(0, 0, as_char, ll_len_old, ll_return, ll_len_new) if ll_return < 0 then ll_return = 65536 – abs(ll_return) return ll_return   end function on nvo_md5.create call super::create triggerevent( this, "constructor" ) end on   on nvo_md5.destroy triggerevent( this, "destructor" ) call super::destroy end on     以下是调用nvo_md5中of_encrypt()的测试结果： 参数1：’’ 结果1：d41d8cd98f00b204e9800998ecf8427e 参数2：’a’ 结果2：0cc175b9c0f1b6a831c399e269772661 参数3：’abc’ 结果3：900150983cd24fb0d6963f7d28e17f72 参数4：’ab cd’ 结果4：04a7d98b199aaaac0b3bebeae31e2bfc 参数5：’1’ 结果5：c4ca4238a0b923820dcc509a6f75849b 参数6：’1234567890’ 结果6：e807f1fcf82d132f9bb018ca6738a19f 参数7：’请’ 结果7：06a4c398f66e05c94159cfeb601e185b 参数8：’?’ 结果8：e11b4b598f8c28ee1b159cc218c7c059 参数9：’中国’ 结果9：4c9370f4ddb0ff4862701ee019a58b46 参数10：’中国 china 086’ 结果10：7b3104a9188e89f5c13de67c180a5f28   写作日期：2004-06-02