Se connecter  
Suivez Informaticien.be sur Facebook  Suivez Informaticien.be sur Twitter  Suivez le Podcast Les Technos sur YouTube  Suivez le Podcast Les Technos sur iTunes  Suivez Informaticien.be via RSS
Supprimer un message
Raison de suppression du message (envoyée à l'utilisateur)

Voulez vous réellement supprimer ce message?  


zion
Je dois convertir un code simplissime de pascal en PHP:

Code:
  1.   function ELFHash(const Str : String) : Cardinal; 
  2. var 
  3.   i : Cardinal; 
  4.   x : Cardinal; 
  5. begin 
  6.   Result := 0; 
  7.   for i := 1 to Length(Str) do 
  8.   begin 
  9.     Result := (Result shl 4) + Ord(Str[i]); 
  10.     x      := Result and $F0000000; 
  11.     if (x <> 0) then 
  12.     begin 
  13.       Result := Result xor (x shr 24); 
  14.     end; 
  15.     Result := Result and (not x); 
  16.   end; 
  17. end;


Code:
  1.   function GenerateELF($AFile) 
  2.   { 
  3.     $result = 0; 
  4.     $i = 0; 
  5.     $x = 0; 
  7.     $str = file_get_contents($AFile); 
  8.     for ($i=0; $i<strlen($str); $i++) 
  9.     { 
  10.       $chr = $str[$i]; 
  11.       $result = ($result & 0xFFFFFFF) << 4; 
  12.       $result = ($result + ord($chr)) & 0xFFFFFFFF; 
  13.       $x = $result & 0xF0000000; 
  14.       if ($x != 0) 
  15.         $result = ($result ^ ($x >> 24))  & 0xFFFFFFFF; 
  16.       $result = (int)($result & (~$x)); 
  17.     } 
  18.     return $result; 
  19.   }


Et apparemment je me plante qqpart. Déjà avec ce le typage en PHP je rajoute quelques petits & 0xFFFFFFFF pour m'assurer que l'on reste sur 32 bits mais il me manque inévitablement quelque chose ...
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?