/[mldonkey]/mldonkey/src/networks/fasttrack/fasttrackServers.ml
ViewVC logotype

Diff of /mldonkey/src/networks/fasttrack/fasttrackServers.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by spiralvoice, Sun Aug 7 12:57:22 2005 UTC revision 1.24 by spiralvoice, Sun Oct 16 20:42:54 2005 UTC
# Line 17  Line 17 
17      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
18  *)  *)
19    
20    open Int64ops
21  open Options  open Options
22  open Queues  open Queues
23  open Printf2  open Printf2
# Line 141  let server_parse_cipher s gconn sock = Line 142  let server_parse_cipher s gconn sock =
142    
143  let client_cipher_seed () =  let client_cipher_seed () =
144   (* Int32.of_int (Random.int max_int) *)   (* Int32.of_int (Random.int max_int) *)
145   Int32.of_string "0x0fACB1238"   0x0fACB1238l
146    
147  let connection_header_hook = ref None  let connection_header_hook = ref None
148    
# Line 204  let connect_server h = Line 205  let connect_server h =
205                s.server_ciphers <- Some {                s.server_ciphers <- Some {
206                  in_cipher = in_cipher;                  in_cipher = in_cipher;
207                  out_cipher = out_cipher;                  out_cipher = out_cipher;
208                  in_xinu = Int64.of_int 0x51;                  in_xinu = 0x51L;
209                  out_xinu = Int64.of_int 0x51;                  out_xinu = 0x51L;
210                };                };
211                set_cipher out_cipher (client_cipher_seed ()) 0x29;                set_cipher out_cipher (client_cipher_seed ()) 0x29;
212    
# Line 352  let _ = Line 353  let _ =
353    )    )
354    
355  let nranges file =  let nranges file =
356    Int64.to_int (Int64.div (file_size file)    Int64.to_int ((file_size file) // min_range_size) + 5
     min_range_size) + 5  
357    
358  let manage_hosts () =  let manage_hosts () =
359    H.manage_hosts ();    H.manage_hosts ();

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26