301 |
} |
} |
302 |
|
|
303 |
let parse emule len s = |
let parse emule len s = |
304 |
(* Printf.printf "Query File: emule version %d len %d" |
(* lprintf "Query File: emule version %d len %d" |
305 |
(extendedrequest emule) len; |
(extendedrequest emule) len; |
306 |
print_newline (); *) |
print_newline (); *) |
307 |
let md4 = get_md4 s 1 in |
let md4 = get_md4 s 1 in |
1140 |
| 0x92 (* 146 *) -> |
| 0x92 (* 146 *) -> |
1141 |
let md4 = get_md4 s 1 in |
let md4 = get_md4 s 1 in |
1142 |
|
|
1143 |
(* Printf.printf "MULTI EMULE VERSION %d" |
(* lprintf "MULTI EMULE VERSION %d" |
1144 |
(extendedrequest emule); print_newline (); *) |
(extendedrequest emule); print_newline (); *) |
1145 |
let pos = 17 in |
let pos = 17 in |
1146 |
let rec iter pos = |
let rec iter pos = |
1177 |
end; |
end; |
1178 |
let md4 = get_md4 s 1 in |
let md4 = get_md4 s 1 in |
1179 |
|
|
1180 |
(* Printf.printf "MULTI EMULE VERSION %d" |
(* lprintf "MULTI EMULE VERSION %d" |
1181 |
(extendedrequest emule); print_newline (); *) |
(extendedrequest emule); print_newline (); *) |
1182 |
let rec iter s pos len = |
let rec iter s pos len = |
1183 |
if pos < len then |
if pos < len then |