HexToStr\u51fd\u6570\u548cStrToHex\u51fd\u6570<\/p>\n
HexToStr\u51fd\u6570\u548cStrToHex\u51fd\u6570<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[7],"tags":[],"_links":{"self":[{"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/posts\/86"}],"collection":[{"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.abin.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=86"}],"version-history":[{"count":0,"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/posts\/86\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.abin.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=86"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.abin.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=86"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.abin.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=86"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}function<\/strong><\/span> TransChar(AChar: Char): Integer;
\nbegin<\/strong><\/span>
\nif<\/strong><\/span> AChar in<\/strong><\/span> ['0'..'9'] then<\/strong><\/span>
\nResult := Ord(AChar) - Ord('0')
\nelse<\/strong><\/span>
\nResult := 10 + Ord(AChar) - Ord('A');
\nend<\/strong><\/span>;
\nfunction<\/strong><\/span> StrToHex(AStr: string<\/strong><\/span>): string<\/strong><\/span>;
\nvar<\/strong><\/span>
\nI ,Len: Integer;
\ns:char;
\nbegin<\/strong><\/span>
\nlen:=length(AStr);
\nResult:='';
\nfor<\/strong><\/span> i:=1 to<\/strong><\/span> len\u00a0\u00a0do<\/strong><\/span>
\nbegin<\/strong><\/span>
\ns:=AStr[i];
\nResult:=Result +' '+IntToHex(Ord(s),2); <\/span>\/\/\u5c06\u5b57\u7b26\u4e32\u8f6c\u5316\u4e3a16\u8fdb\u5236\u5b57\u7b26\u4e32\uff0c
\n<\/em><\/span> <\/span>\/\/\u5e76\u4ee5\u7a7a\u683c\u95f4\u9694\u3002
\n<\/em><\/span> end<\/strong><\/span>;
\nDelete(Result,1,1); <\/span>\/\/\u5220\u53bb\u5b57\u7b26\u4e32\u4e2d\u7b2c\u4e00\u4e2a\u7a7a\u683c
\n<\/em><\/span>end<\/strong><\/span>;
\nfunction<\/strong><\/span> HexToStr(AStr: string<\/strong><\/span>): string<\/strong><\/span>;
\nvar<\/strong><\/span>
\nI,len : Integer;
\nCharValue: Word;
\nTmp:string<\/strong><\/span>;
\ns:char;
\nbegin<\/strong><\/span>
\nTmp:='';
\nlen:=length(Astr);
\nfor<\/strong><\/span> i:=1 to<\/strong><\/span> len\u00a0\u00a0do<\/strong><\/span>
\nbegin<\/strong><\/span>
\ns:=Astr[i];
\nif<\/strong><\/span> s <> ' ' then<\/strong><\/span> Tmp:=Tmp+ string<\/strong><\/span>(s);
\nend<\/strong><\/span>;
\nResult := '';
\nFor<\/strong><\/span> I := 1 to<\/strong><\/span> Trunc(Length(Tmp)<\/span>\/2) do
\n<\/em><\/span> begin<\/strong><\/span>
\nResult := Result + ' ';
\nCharValue := TransChar(Tmp[2*I-1])*16 + TransChar(Tmp[2*I]);
\nif<\/strong><\/span> (charvalue < 32) or<\/strong><\/span> (charvalue > 126)\u00a0\u00a0then<\/strong><\/span> Result[I] := '.' <\/span>\/\/\u975e\u53ef\u89c1\u5b57\u7b26\u586b\u5145
\n<\/em><\/span> else<\/strong><\/span> Result[I] := Char(CharValue);
\nend<\/strong><\/span>;
\nend<\/strong><\/span>;<\/span><\/code><\/p>\n","protected":false},"excerpt":{"rendered":"