maXbox3 3.9.9.195 14/05/2015 08:37:17 AM

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
5496:
5497: ********************************Integer Huge Cardinal Utils***************************
5498: Function Add_uint64_WithCarry( x, y : uint64; var Carry : Boolean) : uint64
5499: Function Add_uint32_WithCarry( x, y : uint32; var Carry : Boolean) : uint32
5500: Function Subtract_uint64_WithBorrow( x, y : uint64; var Borrow : Boolean) : uint64
5501: Function Subtract_uint32_WithBorrow( x, y : uint32; var Borrow : Boolean) : uint32
5502: Function BitCount_8( Value : byte) : integer
5503: Function BitCount_16( Value : uint16) : integer
5504: Function BitCount_32( Value : uint32) : integer
5505: Function BitCount_64( Value : uint64) : integer
5506: Function CountSetBits_64( Value : uint64) : integer TPrimalityTestNoticeProc',
5507: Procedure ( CountPrimalityTests : integer)
5508: Function gcd( a, b : THugeCardinal) : THugeCardinal
5509: Function lcm( a, b : THugeCardinal) : THugeCardinal
5510: Function isCoPrime( a, b : THugeCardinal) : boolean
5511: Function isProbablyPrime(p: THugeCardinal;OnProgress: TProgress; var wasAborted: boolean): boolean
5512: Function hasSmallFactor( p : THugeCardinal) : boolean
5513: //Function GeneratePrime( NumBits : integer; OnProgress : TProgress; OnPrimalityTest:
TPrimalityTestNoticeProc; PassCount: integer; Pool1:TMemoryStreamPool;var Prime: THugeCardinal; var
NumbersTested: integer) : boolean
5514: Function Inverse( Prime, Modulus : THugeCardinal) : THugeCardinal
5515: Const('StandardExponent','LongInt'( 65537);
5516: //Procedure Compute_RSA_Fundamentals_2Factors(RequiredBitLengthOfN:integer;Fixed_e:uint64;var N,e,d,
Totient:TProgress;OnPrimalityTest:TPrimalityTestNoticeProc;GeneratePrimePassCount:int;Pool1:TMemoryStreamPo
Numbers
5517: Function Validate_RSA_Fundamentals( var N, e, d, Totient : THugeCardinal) : boolean')
5518:
5519: procedure SIRegister_xrtl_math_Integer(CL: TPSPascalCompiler);
5520: begin
5521: AddTypeS('TXRTLInteger', 'array of Integer
5522: AddClassN(FindClass('TOBJECT'),'EXRTLMathException
5523: (FindClass('TOBJECT'),'EXRTLExtendInvalidArgument
5524: AddClassN(FindClass('TOBJECT'),'EXRTLDivisionByZero
5525: AddClassN(FindClass('TOBJECT'),'EXRTLExpInvalidArgument
5526: AddClassN(FindClass('TOBJECT'),'EXRTLInvalidRadix
5527: AddClassN(FindClass('TOBJECT'),'EXRTLInvalidRadixDigit
5528: AddClassN(FindClass('TOBJECT'),'EXRTLRootInvalidArgument
5529: 'BitsPerByte','LongInt'( 8);
5530: BitsPerDigit','LongInt'( 32);
5531: SignBitMask','LongWord( $80000000);
5532: Function XRTLAdjustBits( const ABits : Integer) : Integer
5533: Function XRTLLength( const AInteger : TXRTLInteger) : Integer
5534: Function XRTLDataBits( const AInteger : TXRTLInteger) : Integer
5535: Procedure XRTLBitPosition( const BitIndex : Integer; var Index, Mask : Integer)
5536: Procedure XRTLBitSet( var AInteger : TXRTLInteger; const BitIndex : Integer)
5537: Procedure XRTLBitReset( var AInteger : TXRTLInteger; const BitIndex : Integer)
5538: Function XRTLBitGet( const AInteger : TXRTLInteger; const BitIndex : Integer) : Integer
5539: Function XRTLBitGetBool( const AInteger : TXRTLInteger; const BitIndex : Integer) : Boolean
5540: Function XRTLExtend(const AInteger:TXRTLInteger;ADataBits:Integer;Sign:Int;var AResult:TXRTLInteger):Int;
5541: Function XRTLZeroExtend(const AInteger:TXRTLInteger;ADataBits:Integer; var AResult:TXRTLInteger):Integer;
5542: Function XRTLSignExtend(const AInteger:TXRTLInteger; ADataBits:Integer;var AResult:TXRTLInteger):Integer;
5543: Function XRTLSignStrip(const AInteger:TXRTLInteger;var AResult:TXRTLInteger;const AMinDataBits:Int):Int;
5544: Procedure XRTLNot( const AInteger : TXRTLInteger; var AResult : TXRTLInteger)
5545: Procedure XRTLOr( const AInteger1, AInteger2 : TXRTLInteger; var AResult : TXRTLInteger)
5546: Procedure XRTLAnd( const AInteger1, AInteger2 : TXRTLInteger; var AResult : TXRTLInteger)
5547: Procedure XRTLXor( const AInteger1, AInteger2 : TXRTLInteger; var AResult : TXRTLInteger)
5548: Function XRTLSign( const AInteger : TXRTLInteger) : Integer
5549: Procedure XRTLZero( var AInteger : TXRTLInteger)
5550: Procedure XRTLOne( var AInteger : TXRTLInteger)
5551: Procedure XRTLMOne( var AInteger : TXRTLInteger)
5552: Procedure XRTLTwo( var AInteger : TXRTLInteger)
5553: Function XRTLNeg( const AInteger : TXRTLInteger; var AResult : TXRTLInteger) : Integer
5554: Function XRTLAbs( const AInteger : TXRTLInteger; var AResult : TXRTLInteger) : Integer
5555: Procedure XRTLFullSum( const A, B, C : Integer; var Sum, Carry : Integer)
5556: Function XRTLAdd( const AInteger1, AInteger2 : TXRTLInteger; var AResult : TXRTLInteger) : Integer;
5557: Function XRTLAdd1(const AInteger1:TXRTLInteger;const AInteger2:Int64;var AResult:TXRTLInteger):Integer;
5558: Function XRTLSub( const AInteger1, AInteger2 : TXRTLInteger; var AResult : TXRTLInteger) : Integer;
5559: Function XRTLSub1( const AInteger1:TXRTLInteger;const AInteger2:Int64;var AResult:TXRTLInteger):Integer;
5560: Function XRTLCompare( const AInteger1, AInteger2 : TXRTLInteger) : Integer;
5561: Function XRTLCompare1( const AInteger1 : TXRTLInteger; const AInteger2 : Int64) : Integer;
5562: Function XRTLUMul( const AInteger1, AInteger2 : TXRTLInteger; var AResult : TXRTLInteger) : Integer
5563: Function XRTLMulAdd(const AInteger1,AInteger2,AInteger3:TXRTLInteger; var AResult:TXRTLInteger):Integer
5564: Function XRTLMul( const AInteger1, AInteger2 : TXRTLInteger; var AResult : TXRTLInteger) : Integer
5565: Procedure XRTLDivMod( const AInteger1, AInteger2 : TXRTLInteger; var QResult, RResult : TXRTLInteger)
5566: Procedure XRTLSqr( const AInteger : TXRTLInteger; var AResult : TXRTLInteger)
5567: Procedure XRTLSqrt( const AInteger : TXRTLInteger; var AResult : TXRTLInteger)
5568: Procedure XRTLRoot( const AInteger1, AInteger2 : TXRTLInteger; var AResult : TXRTLInteger)
5569: Procedure XRTLRootApprox(const AInteger1,AInteger2:TXRTLInteger;var ALowApproxResult,
AHighApproxResult:TXRTLInteger)
5570: Procedure XRTLURootApprox(const AInteger1,AInteger2:TXRTLInteger;var ALowApproxResult,
AHighApproxResult:TXRTLInteger);
5571: Procedure XRTLExp( const AInteger1, AInteger2 : TXRTLInteger; var AResult : TXRTLInteger)
5572: Procedure XRTLExpMod( const AInteger1, AInteger2, AInteger3 : TXRTLInteger;var AResult: TXRTLInteger)
5573: Procedure XRTLSLBL(const AInteger: TXRTLInteger; const BitCount:Integer; var AResult: TXRTLInteger)
5574: Procedure XRTLSABL(const AInteger: TXRTLInteger; const BitCount:Integer; var AResult: TXRTLInteger)
5575: Procedure XRTLRCBL(const AInteger: TXRTLInteger; const BitCount:Integer; var AResult: TXRTLInteger)
5576: Procedure XRTLSLDL(const AInteger:TXRTLInteger;const DigitCount:Integer; var AResult:TXRTLInteger)
5577: Procedure XRTLSADL(const AInteger: TXRTLInteger; const DigitCount:Integer;var AResult: TXRTLInteger)
5578: Procedure XRTLRCDL(const AInteger:TXRTLInteger; const DigitCount:Integer; var AResult: TXRTLInteger)
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 64