Convertion d'une fonction Delphi en Php

Question

Bonjour a tous !

JE debute dans le Php et je dois dire que j'ai un peu de mal mais je
dois utiliser cette fonction ecrite en delphi sur une page HTML . 


function MacStr(const AMac : int64) : string;

var

  pR : PChar;

  pB : ^byte;

  N  : integer;

const

  BTC : array[$0..$F] of char = '0123456789ABCDEF';

begin

  pB := @AMac;    {pointe l'@ mac}

  inc(pB,5);

  SetLength(Result, 17);  {chaine de 17 caractères en sortie 6 octets de 2 caractères + 5 sépararteus}

  pR := PChar(Result);

  inc(pr,15);       {pointe le résultat}

  for N := 0 to 5 do

  begin

    if N >0 then

    begin

      pR[0] := '-';

      dec(pR,2);

    end;


    pR[0] := BTC[ pB^ shr 4 ];       {décale la valeur binaire de @Mac de 4 vers la droite = division par 2^4 soit 16}

    pR[1] := BTC[ pB^ and $F ];

    dec(pB);

    dec(pR, 1);


  end;

end;


Pour la petite histoire ca me permet de remettre en forme une adresse MAC en entier sous forme Hexa.


Mais j'ai beaucoup de mal avec les pointeurs sous Php... 

voila si quelqu'un y arrive 


Merci d'avance !

Vive le monde du libre }:)

Vive le monde du libre }:)

lesdis · Answer

Bonjour,

Je ne suis pas sur que tout le monde comprenne le delphi ici. Serait-il possible de décrire précisement ce que tu attends de ta fonction stp? (donnée en entrée, donnée en sortie ainsi que le format...)

wismerhill40 · Answer

Bonjour ...

Oui pas de souci 

Cette fonction me permet de rentrer un grand chiffre d'une bonne 10aine de numeros. Je cherche a obtenir un traitement qui me permettra d'obtenir, a partir de ce numero, l'adresse MAC en hexa 4F:45:6B ...car je ne l'ai pas dis mais ce numero est en fait une adresse MAC ! voila !

Vive le monde du libre }:)

lesdis · Answer

Désolé de ne répondre que maintenant mais je n'avais plus suivit la discussion.

Voici une petite fonction, qui je l'espère correspond à tes attentes. Elle attend une chaîne de bit en entrée et ressort une chaîne d'hexadécimal avec un tiret entre chaque octet (format de l'adresse mac) :

<?php
  function MacStr($AMac){

  $adresse_mac = array();
  // Tableau contenant la conversion binaire -> hexa  $hex array(   0   > "0",
                  1    => "1",
                  10   => "2",
                  11   => "3",
                  100  => "4",
                  101  => "5",
                  110  => "6",
                  111  => "7",
                  1000 => "8",
                  1001 => "9",
                  1010 => "A",
                  1011 => "B",
                  1100 => "C",
                  1101 => "D",
                  1110 => "E",
                  1111 => "F");
                  
   $lenght = strlen($AMac); // on récupère la taille de la chaîne de caractère
   
   for($x = $lenght-4; $x >= 0;$x -= 4){ // on travail sur la chaîne en partant du dernier caractère

    $index = substr($AMac,$x,4)*1;  // on parse en int (je n'ai pas trouvé mieux pour le faire )

    array_push($adresse_mac,$hex[$index]); //on ajoute le quartet dans le tableau
    
    if ($x % 8 == 0 && $x != 0){ // on ajoute un tiret à chaque octet sauf pour le dernier
      array_push($adresse_mac,"-");
    }
   }
   
  $adresse_mac = array_reverse($adresse_mac); // on inverse le tableau pour afficher l'adresse dans le bon sens
  return implode("",$adresse_mac); // on convertit le tableau en string et on renvoit la chaîne

  }

  // appel de la fonction et affichage de la valeur de retour
  echo MacStr("111100001010100001110011");
?>

Bonne prog

Convertion d'une fonction Delphi en Php

3 réponses

Votre réponse

Discussions similaires