M marco_hsu Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-31 #1 我最近想做个解密程序，可密码都是用ASCII 码 16进制表示的，不知在DELPHI 中如何 操作这些数，或把他变成二进制位？
L liujinghu_ty Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-31 #2 function bintohex(value :string):string; var i,size:integer; begin result:=0; size:=length(value); for i:=size downto 0 do begin if copy(value,i,1)='1' then begin result:=result+(1 shl i); end; end; result:=format('%0x',result); end;
function bintohex(value :string):string; var i,size:integer; begin result:=0; size:=length(value); for i:=size downto 0 do begin if copy(value,i,1)='1' then begin result:=result+(1 shl i); end; end; result:=format('%0x',result); end;
M marco_hsu Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-31 #5 就是告诉你个十六进制的数，如何变为二进制，然后将他与别的数进行异或操作！ 如知道十六进制数为 BE，可他在在DELPHI中应表示为什么类型我都不知道？
L leway Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-31 #6 兩個16進制書可直接進行异或。 如$BE or $AC
M marco_hsu Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-31 #7 是不是要在 USES中加入什么单元呀，INTTOHEX ,HEXTOINT不能运行？
M marco_hsu Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-01 #9 SysUtils都是默认加上去的呀，每个单元都有的
