★★★★高分★★★怎么查找一个汉字的计算机内码？？？？(100分)

现在想做一个加密的软件，但是不知道汉字在计算机内的储存机制，听说是什么内码和国标码！！！所以想知道怎么用一个编码唯一确定一个汉字？？？

http://wingkk.eb.fm/ecard_docs/root1/user6/wingkk1/gbk1.txt<br>这是GBK的代码表，怎么确定每个汉字的位置？？？

汉字是两个字节的，如s:='字';<br>那么取汉字的区位码,区码为ord(s[1]),位码为ord(s[2]),<br>我前几天刚做过一个汉字和区位码互换的，还有代码，你看看吧<br>procedure TForm1.Button3Click(Sender: TObject);<br>var<br>qu,wei:integer;<br>s:string;<br>begin<br>&nbsp;s:=edit1.Text;<br>&nbsp;qu:=ord(s[1]);<br>&nbsp;wei:=ord(s[2]);<br>&nbsp;s:='';<br>&nbsp;if (qu-160)&lt;10 then<br>&nbsp;s:='0';<br>&nbsp;s:=s+inttostr(qu-160);<br>&nbsp;if (wei-160)&lt;10 then<br>&nbsp;s:=s+'0';<br>&nbsp;s:=s+inttostr(wei-160)+' or ';<br>&nbsp;s:=s+inttohex(qu,2)+inttohex(wei,2);<br>&nbsp;edit2.Text:=s;//汉字转区位码<br>end;<br><br>procedure TForm1.Button4Click(Sender: TObject);<br>var<br>ln,qu,wei:integer;<br>ss,s:string;<br>begin<br>&nbsp;ss:='$'+edit3.Text;<br>&nbsp;ln:=strtoint(ss);<br>&nbsp;s:=inttohex(ln,4);<br>&nbsp;s:='$'+s;<br>// showmessage(s);<br>&nbsp;ln:=strtoint(s);<br>&nbsp;wei:=ln and $ff;<br>&nbsp;qu:=ln shr 8;<br>&nbsp;s:=char( qu )+ char( wei );<br>&nbsp;edit4.Text:=s;//区位码转汉字<br>end;<br>

高手！！！！我琢磨了一天，原来就这么简单，服了！！！能告诉我，你从哪学的吗？？？

前两天帮别人解密一个汉字加密算法时查了一点资料，<br>正好帮你了，呵呵，