Re: [Synalist] RE : SNMPv3 on Solaris

2011-07-18 Thread Ungarn

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


[Synalist] RE : RE : SNMPv3 on Solaris

2011-07-18 Thread Ludo Brands
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


[Synalist] RE : RE : RE : SNMPv3 on Solaris

2011-07-18 Thread Ludo Brands
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


[Synalist] RE : RE : RE : RE : SNMPv3 on Solaris

2011-07-18 Thread Ludo Brands
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

Re: [Synalist] RE : RE : RE : RE : SNMPv3 on Solaris

2011-07-18 Thread Ungarn

Thank you very much Ludo,

now its working !

thanks
peter

 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




--
Storage Efficiency Calculator
This modeling tool is based on patent-pending intellectual property that
has been used successfully in hundreds of IBM storage optimization engage-
ments, worldwide.  Store less, Store more with what you own, Move data to 
the right place. Try It Now! http://www.accelacomm.com/jaw/sfnl/114/51427378/
___
synalist-public mailing list
synalist-public@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public


[Synalist] Small Improvement for httpsend

2011-07-18 Thread Lars Gehre
Hello all,

I suggest to change the FRangeStart and FRangeEnd variables in the THTTPSend
class from integer to int64 datatypes.

Thanks
/Lars


--
Magic Quadrant for Content-Aware Data Loss Prevention
Research study explores the data loss prevention market. Includes in-depth
analysis on the changes within the DLP market, and the criteria used to
evaluate the strengths and weaknesses of these DLP solutions.
http://www.accelacomm.com/jaw/sfnl/114/51385063/
___
synalist-public mailing list
synalist-public@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public