線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1666
推到 Plurk!
推到 Facebook!

一串代碼要如何轉為中英文字呢

尚未結案
hotswin
中階會員


發表:72
回覆:92
積分:52
註冊:2003-11-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-10-19 22:50:05 IP:220.134.xxx.xxx 未訂閱
從readprocessmemory抓下的一串數據: A4 40 A7 47 61 62 63 A4 54 A5 7C 請問要如何轉成'一二三abc四五' 謝謝
------
xinjier禮品贈品
richtop
資深會員


發表:122
回覆:646
積分:468
註冊:2003-06-10

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-10-19 23:56:49 IP:211.76.xxx.xxx 未訂閱
hotswin 您好:    您給的資料似乎有錯! 感覺上好像是把資料通通轉成文字型態的十六進位數。 底下方法是把字串再轉回十六進位數,以湊出原先的結果,您參考看看。  
const chars : string = '0123456789ABCDEF';    function getDecimal(ch :char) : integer;
begin
  result := Pos(ch, chars) - 1;
end;    procedure TForm1.Button1Click(Sender: TObject);
var
   str, msg : string;
   k, value : integer;
begin
  str := 'A440A447616263A454A57C';
  setLength(msg, Length(str) div 2);
  for k:=1 to length(str) div 2 do
     begin
       value := getDecimal(str[2*(k-1) 1]);
       value := value*16   getDecimal(str[2*k]);
       msg[k] := char(value);
     end;
  ShowMessage(msg);
end; 
RichTop 敬上 =====***** 把數學當工具,可以解決問題;將數學變能力,能夠發現並解決問題! =====#####
系統時間:2024-03-29 8:55:18
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!