Delphi的字符串与16进制的相互转换函数的汇编代码

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
shl edx, 1
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 ;

function HexToStr( const Str: AnsiString): AnsiString;
asm
push ebx
push edi
push esi
test eax,eax // 为空串
jz @@Exit
mov edi,eax
mov esi,edx
mov edx,[eax - 4 ]
test edx,edx
je @@Exit
mov ecx,edx
push ecx
shr edx, 1
mov eax,esi // 开始构造字符串
{ $IFDEF VER210 }
movzx ecx, word ptr [edi - 12 ] { 需要设置CodePage }
{ $ENDIF }
call System.@LStrSetLength // 设置新串长度
mov eax,esi // 新字符串地址
Call UniqueString // 产生一个唯一的新字符串，串位置在eax中
Pop ecx
xor ebx,ebx
xor esi,esi
@@CharFromHex:
xor edx,edx
mov dl, [edi] // Str字符串字符
cmp dl, ' 0 ' // 查看是否在0到f之间的字符
JB @@Exit // 小于0，退出
cmp dl, ' 9 ' // 小于 = 9
ja @@DoChar // CompOkNum
sub dl, ' 0 '
jmp @@DoConvert
@@DoChar:
// 先转成大写字符
and dl,$DF
cmp dl, ' F '
ja @@Exit // 大于F退出
add dl, 10
sub dl, ' A '
@@DoConvert: // 转化
inc ebx
cmp ebx, 2
je @@Num1
xor esi,esi
shl edx, 4
mov esi,edx
jmp @@Num2
@@Num1:
add esi,edx
mov edx,esi
mov [eax],dl
xor ebx,ebx
inc eax
@@Num2:
dec ecx
inc edi
test ecx,ecx
jnz @@CharFromHex
@@Exit:
pop esi
pop edi
pop ebx
end ;

procedure TForm1.Button1Click(Sender: TObject);
var
str: Ansistring;
begin
str : = ' 不得闲按时打发 ' ;
str : = StrToHex(str);
ShowMessage(str);
ShowMessage(HexToStr(str));
end ;