home *** CD-ROM | disk | FTP | other *** search
/ Guide To Cracking 2002 / Guide_to_Cracking_2002.iso / Programming / yPP-B-SRC.ZIP / hexfun.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-08-03  |  716 b   |  42 lines
  1. unit hexfun;
  2.  
  3. interface
  4.  
  5. uses windows,sysutils,math;
  6.  
  7. function hex2int (hexdigit : string):dword;
  8.  
  9. implementation
  10.  
  11. function hex2int (hexdigit : string):dword;
  12. var  i,m: integer;
  13.      zw : extended;
  14.      t,n: longint;
  15.      hextmp : string;
  16.      intdigit : dword;
  17. begin
  18. for i:=length(hexdigit) downto 1 do hextmp:=hextmp+hexdigit[i];
  19. intdigit:=0;
  20. for i:=length(hextmp)downto 1 do
  21.  begin
  22.   case upcase(hextmp[i]) of
  23.    'A' : m:=10;
  24.    'B' : m:=11;
  25.    'C' : m:=12;
  26.    'D' : m:=13;
  27.    'E' : m:=14;
  28.    'F' : m:=15;
  29.    else
  30.    m:=strtoint(hextmp[i]);
  31.    end;
  32.    zw:=intpower(16,i-1);
  33.    n:=trunc(zw);
  34.    t:=m*n;
  35.    intdigit:=intdigit+t;
  36.    end;
  37. result:=intdigit;
  38. end;
  39.  
  40. begin;
  41. end.
  42.