Subversion Repositories SvarDOS

Rev

Rev 562 | Rev 650 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 562 Rev 563
Line 39... Line 39...
39 
 
 39 
 
40 
  while (!feof($fd)) {
 40 
  while (!feof($fd)) {
41 
 
 41 
 
42 
    $buff = fread($fd, 1024 * 1024);
 42 
    $buff = fread($fd, 1024 * 1024);
43 
 
 43 
 
44 
    foreach (str_split($buff) as $b) {
 44 
    $slen = strlen($buff);
- 
 
 45 
    for ($i = 0; $i < $slen; $i++) {
45 
      // rotr
 46 
      // rotr
46 
      $result = ($result >> 1) | ($result << 15);
 47 
      $result = ($result >> 1) | ($result << 15);
47 
      // add and truncate to 16 bits
 48 
      // add and truncate to 16 bits
48 
      $result += ord($b);
 49 
      $result += ord($buff[$i]);
49 
      $result &= 0xffff;
 50 
      $result &= 0xffff;
50 
    }
 51 
    }
51 
  }
 52 
  }
52 
 
 53 
 
53 
  fclose($fd);
 54 
  fclose($fd);