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 |
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 |
|
|
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 |
|
|
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 (); |