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

請教搜尋二進位碼的問題

答題得分者是:blue
shawn850717
一般會員


發表:8
回覆:11
積分:3
註冊:2016-10-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2017-10-20 15:30:47 IP:61.221.xxx.xxx 未訂閱

我要按下button 後改project1.exe 的formcaption
我原本form的caption是設定 版權屬於xxxxxx所有 要找到xxxxxx然後替換掉
但是如果xxxxxx的前後沒有空格就搜尋不到 請問各位大大是什麼原因 ?
還有一個問題是 要換成中文會整個caption變空白是什麼原因?
[code delphi]
var
f : file of byte ;
b : byte;
s,t : string;
i,j,k : integer;
ok : boolean;
begin
s:=edit1.Text; i:=length(s);
t:=edit2.Text; j:=length(t);
if i<>j then exit;
assignfile(f,'project1.exe');reset(f);
for i:= 0 to (filesize(f)-j) do begin
seek(f,i); read(f,b);
ok:= char(b)=s[1];
if ok then
for k :=2 to j do begin
read(f,b);
ok:= char(b)=s[k];
IF OK THEN showmessage(char(b));
if not ok then break;
end;
if ok then begin
showmessage(inttostr(i) '找到了');
seek(f,i);
for k:= 1to j do begin
b:= ord(t[k]);
write(f,b);
end;
end;
end;
closefile(f);
[/code]


編輯記錄
shawn850717 重新編輯於 2017-10-20 16:09:49, 註解 無‧
blue
中階會員


發表:114
回覆:105
積分:58
註冊:2002-04-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2017-10-23 16:16:44 IP:125.227.xxx.xxx 未訂閱
Hi,您好:
使用UltraEdit的Hex看了一下編譯後的執行檔,
版權屬於xxxxxx所有 的 xxxxxx 前後有沒有空格,其使用的編碼會不一樣....(怪怪的)
所以會找不到,
謝謝!

===================引 用 shawn850717 文 章===================

我要按下button 後改project1.exe 的formcaption
我原本form的caption是設定 版權屬於xxxxxx所有 要找到xxxxxx然後替換掉
但是如果xxxxxx的前後沒有空格就搜尋不到 請問各位大大是什麼原因 ?
還有一個問題是 要換成中文會整個caption變空白是什麼原因?
[code delphi]
var
f : file of byte ;
b : byte;
s,t : string;
i,j,k : integer;
ok : boolean;
begin
s:=edit1.Text; i:=length(s);
t:=edit2.Text; j:=length(t);
if i<>j then exit;
assignfile(f,'project1.exe');reset(f);
for i:= 0 to (filesize(f)-j) do begin
seek(f,i); read(f,b);
ok:= char(b)=s[1];
if ok then
for k :=2 to j do begin
read(f,b);
ok:= char(b)=s[k];
IF OK THEN showmessage(char(b));
if not ok then break;
end;
if ok then begin
showmessage(inttostr(i) '找到了');
seek(f,i);
for k:= 1to j do begin
b:= ord(t[k]);
write(f,b);
end;
end;
end;
closefile(f);
[/code]


shawn850717
一般會員


發表:8
回覆:11
積分:3
註冊:2016-10-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2017-10-25 12:20:45 IP:61.221.xxx.xxx 未訂閱
請問可以教我怎麼看嗎? 謝謝你
blue
中階會員


發表:114
回覆:105
積分:58
註冊:2002-04-15

發送簡訊給我
#4 引用回覆 回覆 發表時間:2017-10-30 15:21:26 IP:125.227.xxx.xxx 未訂閱
Hi,您好:
您有安裝像 UltraEdit 可以檢視 Hex 的軟體嗎?
使用該軟體開啟您的 project1.exe, 並切換為 Hex 的檢視模式,
以 UltraEdit 為例,按
使用 Find 找 xxxxxx (Find ASCII 須打勾)

這是以 版權屬於 xxxxxx 所有 編譯的,

而這以 版權屬於xxxxxx所有 編譯的

順便作了一下以 版權屬於xxxxxxxx所有 編譯的

所以與空白無關,
至於Delphi是何原因要如此編譯,小弟也說不上來,
謝謝!


===================引 用 shawn850717 文 章===================
請問可以教我怎麼看嗎? 謝謝你
blue
中階會員


發表:114
回覆:105
積分:58
註冊:2002-04-15

發送簡訊給我
#5 引用回覆 回覆 發表時間:2017-10-30 15:50:47 IP:125.227.xxx.xxx 未訂閱
Sorry,不知如何貼圖,使用Google drive,如果看不到,請提供 Mail 信箱給我(我LKK了,還是習慣用Mail),謝謝!
===================引 用 blue 文 章===================
Hi,您好:
您有安裝像 UltraEdit 可以檢視 Hex 的軟體嗎?
使用該軟體開啟您的 project1.exe, 並切換為 Hex 的檢視模式,
以 UltraEdit 為例,按 顥示0101 的按鈕 https://drive.google.com/open?id=0B-BdHTknwBrpS2N6ako4RTA0SUU
使用 Find 找 xxxxxx (Find ASCII 須打勾)
https://drive.google.com/open?id=0B-BdHTknwBrpYm5ad0l1Wkp1ZUU
這是以 版權屬於 xxxxxx 所有 編譯的,
https://drive.google.com/open?id=0B-BdHTknwBrpbHVCNE1vQ2cwQjg
而這以 版權屬於xxxxxx所有 編譯的
https://drive.google.com/open?id=0B-BdHTknwBrpQ2pJeEJ6a2hzVmM
順便作了一下以 版權屬於xxxxxxxx所有 編譯的
https://drive.google.com/open?id=0B-BdHTknwBrpSThsdkxmVG1qb0k
所以與空白無關,
至於Delphi是何原因要如此編譯,小弟也說不上來,
謝謝!


===================引 用 shawn850717 文 章===================
請問可以教我怎麼看嗎? 謝謝你
shawn850717
一般會員


發表:8
回覆:11
積分:3
註冊:2016-10-11

發送簡訊給我
#6 引用回覆 回覆 發表時間:2017-10-31 17:59:29 IP:61.221.xxx.xxx 未訂閱
感謝blue大 , 
我自己測試是6個以下都會變成x.x.x.x.x.x. ,
7個以上就會是xxxxxxx,
雖然不知道為什麼會這樣 但還是非常感謝!!
系統時間:2017-11-24 20:58:16
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!