The CIL define is used in a lot of synapse units. I suggest you put a
{$define CIL} in the begining of synacode.pas instead.
After some research I found that CIL was apparently meant for Delphi.net...
Ludo
-Message d'origine-
De : Ludo Brands [mailto:ludo.bra...@free.fr]
Envoyé : lundi 18 juillet 2011 19:06
À : 'Ararat Synapse'
Objet : [Synalist] RE : RE : RE : SNMPv3 on Solaris
If you define CIL the synacode md5 is OK (compile with -dCIL).
Ludo
-Message d'origine-
De : Ludo Brands [mailto:ludo.bra...@free.fr]
Envoyé : lundi 18 juillet 2011 18:48
À : 'Ararat Synapse'
Objet : [Synalist] RE : RE : SNMPv3 on Solaris
Apparently the MD5 calculation in synacode doesn't work with
big endian processors. I verified the md5 implementation in
freepascal and that works correctly on sparc.
Attached the testprogram I used containing a rewrite of
MD5LongHash using fpc md5 routines.
Ludo
-Message d'origine-
De : Ungarn [mailto:ung...@its-pro.net]
Envoyé : lundi 18 juillet 2011 17:39
À : Ararat Synapse
Objet : Re: [Synalist] RE : SNMPv3 on Solaris
hi again,
i think i have found the problem with snmpv3 on sparc
solaris its in
the Pass2Key function of snmpsend
the function MD5LongHash below have on linux and windows the same
result 54 E4 2E 39 06 06 15 0A 0D CB 67 FA 5B 67 75 CA but cross
compiled for sparc solaris this 90 08 0A 2F FA 64 67 25
BC 43 7D AD
58 0A 26 A9
thanks for any advise
peter
begin
s := MD5LongHash( 'testtest', 1048576 );
for cnt := 1 to Length( s ) do
begin
Write( IntToHex( Ord( s[cnt] ), 2 ) );
Write( ' ' );
end;
WriteLn;
end.
here is my little prog
var
snmp : TSNMPSend;
begin
snmp := TSNMPSend.Create;
snmp.Query.Clear;
snmp.Query.Version := 3;
snmp.Query.Flags := AuthPriv;
snmp.Query.FlagReportable := True;
snmp.Query.UserName := 'snmpv3';
snmp.Query.AuthMode := AuthMD5;
snmp.Query.Password := 'testtest';
snmp.Query.PrivMode := PrivDES;
snmp.Query.PrivPassword := 'testtest';
snmp.TargetHost := '192.168.10.2';
snmp.Query.PDUType := PDUGetRequest;
snmp.Query.MIBAdd( '1.3.6.1.2.1.1.5.0', '',
asn1util.ASN1_NULL );
if snmp.SendRequest = True then
WriteLn( 'Ok : ' + snmp.Reply.MIBByIndex( 0
).OID + ' - ' +
snmp.Reply.MIBByIndex( 0 ).Value )
else
WriteLn( 'Fail' );
end.
Works fine here on Solaris x86 when contacting an Ubuntu
64 server.
I'm using fpc 2.5.1 svn.
Ludo
--
AppSumo Presents a FREE Video for the SourceForge
Community by Eric
Ries, the creator of the Lean Startup Methodology on
Lean Startup
Secrets Revealed. This video shows you how to validate
your ideas,
optimize your ideas and identify your business strategy.
http://p.sf.net/sfu/appsumosfdev2dev
___
synalist-public mailing list synalist-public@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public
--
AppSumo Presents a FREE Video for the SourceForge Community by Eric
Ries, the creator of the Lean Startup Methodology on Lean Startup
Secrets Revealed. This video shows you how to validate your ideas,
optimize your ideas and identify your business strategy.
http://p.sf.net/sfu/appsumosfdev2dev
___
synalist-public mailing list
synalist-public@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public
--
AppSumo Presents a FREE Video for the SourceForge Community by Eric
Ries, the creator of the Lean Startup Methodology on Lean Startup
Secrets Revealed. This video shows you how to validate your ideas,
optimize your ideas and identify your business strategy.
http://p.sf.net/sfu/appsumosfdev2dev
___
synalist-public mailing list
synalist-public@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public
--
AppSumo Presents a FREE Video for the SourceForge Community by Eric
Ries, the creator of the Lean Startup Methodology on Lean Startup
Secrets Revealed. This video shows you how to validate your ideas,
optimize your ideas and identify your business strategy.
http://p.sf.net/sfu/appsumosfdev2dev
___
synalist-public mailing list
synalist-public