Help!

Please Help.

I'm a visual basic developer (I know, please don't throw anything at 
me) and I need a couple of functions written in pascal placed in a 
Delphi activeX dll. Is there anyone  here who can do this little 
favor for me? Component name can be SIDCON.clsKEY

Here is the code

************************************************************

function GetSIDKey(SID:TSID): TSIDKey;
Var
CharNum: byte;
Bytes: TSIDBytes absolute SID;
begin
Result:='';
for CharNum:= 0 to SizeOf(TSID)-1 do
Result:=Result+char((Bytes[CharNum] div 16)+ord('A'))+
char((Bytes[CharNum] mod 16)+ord('A'));
end;


function GetSIDFromKey(Key:TSIDKey):TSID;
Var
Bytes:TSIDBytes;
CharNum:byte;
begin
for CharNum:=0 to SizeOf(TSID)-1 do
Bytes[CharNum]:=(byte(Key[CharNum*2+1])-ord('A'))*16+
(byte(Key[CharNum*2+2])-ord('A'));
move(bytes,Result,sizeof(bytes));
end;

************************************************************

The variable TSID is declared as signed 64-bit integer. <-- that's 
the part I can't do in vb. No 64-bit integer values.

Thanks much,

Shawn Scarber Deggans

sdeggans AT leatherfactory DOT com





------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for Your HP, Epson, Canon or Lexmark
Printer at Myinks.com. Free s/h on orders $50 or more to the US & Canada. http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/l.m7sD/LIdGAA/qnsNAA/i7folB/TM
---------------------------------------------------------------------~->

CodeCoffer - new Delphi code protection Tool!
http://www.delphicollection.com/public/CodeCoffer.htm
---------------------------------------------------------------
Unsubscribe:[email protected]
List owner:[email protected]
--------------------------------------------------------------- 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/