Delphi字符串转换成16进制ASM代码

时间：2011/9/3 15:36:04 点击：

　　核心提示：function StrToHex(Const str: string): string;asm push ebx push esi push edi test eax,eax jz @@Exit m...

function StrToHex(Const str: string): string;
asm
    push ebx
    push esi
    push edi
    test eax,eax
    jz   @@Exit
    mov esi,edx       //保存edx值，用来产生新字符串的地址
    mov edi,eax       //保存原字符串
    mov edx,[eax-4] //获得字符串长度
    mov ecx,edx       //保存长度
    Push ecx
    add edx,edx
    mov eax,esi
    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;