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
