Delphi2010中字符串汇编需要注意的一点，以及支持2010的AES加密库-白红宇

昨天研究了一下Delphi2010的Unicode，同时也改了几个单元到2010中来，今天下午修改AES的加密库的时候，碰到一个问题，我将AES中的StrtoHex换成了自己写的汇编函数！其他的地方，都修改好了，但是加密之后总是没有结果返回！奇怪了半天，然后我将修改后的AES放到2007下去运行是一点问题都没有！最后调试了半天，将断点定在了StrToHex这个函数内部，调试运行也没发现问题，但是这个函数就是没结果返回。还真是奇怪了，于是翻开了它自己带的AnsiStrings单元查看里面相关的函数，晕，恍然大悟，原来在AnsiString的管理时也多加了一个CodePage的设置。既然如此，那么函数需要做相应的修改了哈！主题代码如下：

代码
function
 StrToHex(Const str: Ansistring): Ansistring;
asm
     push ebx
     push esi
     push edi
     test eax,eax
     jz   @@Exit
     mov  esi,edx       
//
保存edx值，用来产生新字符串的地址
     mov  edi,eax       
//
保存原字符串
     mov  edx,[eax
-
4
]  
//
获得字符串长度
     test edx,edx      
//
检查长度
     je   @@Exit      
{ 
Length(S) = 0
}
     mov  ecx,edx       
//
保存长度
     Push ecx
     add  edx,edx
     mov  eax,esi
{ 
$IFDEF VER210
}
     movzx ecx, word ptr [edi
-
12
] 
{ 
需要设置CodePage
}
{ 
$ENDIF
}
     call System.@LStrSetLength 
//
设置新串长度
     mov  eax,esi       
//
新字符串地址
     Call UniqueString  
//
产生一个唯一的新字符串，串位置在eax中
     Pop   ecx
   @@SetHex:
xor
  edx,edx       
//
清空edx
     mov  dl, [edi]     
//
Str字符串字符
     mov  ebx,edx       
//
保存当前的字符
shr
  edx,
4
         
//
右移4字节，得到高8位
     mov  dl,byte ptr[edx
+
@@HexChar] 
//
转换成字符
     mov  [eax],dl      
//
将字符串输入到新建串中存放
and
  ebx,$0F       
//
获得低8位
     mov  dl,byte ptr[ebx
+
@@HexChar] 
//
转换成字符
     inc  eax             
//
移动一个字节,存放低位
     mov  [eax],dl
     inc  edi
     inc  eax
     loop @@SetHex
   @@Exit:
     pop  edi
     pop  esi
     pop  ebx
     ret
   @@HexChar: db 
'
0123456789ABCDEF
'
end
;

在LStrSetLength之前要同时传入CodePage设置，这样这个函数经过这样修改之后就可以正常返回信息了！

同时附上修改的AES代码

本文转自不得闲博客园博客，原文链接： http://www.cnblogs.com/DxSoft/archive/2010/01/03/1638329.html ，如需转载请自行联系原作者