[Erledigt] VB -> php

bolzerrr · 15.12.2008, 10:23

Hallo!

Ich möchte folgene VB Code zum erstellen eine CRC16 Lookup Tables in php implementieren:

PHP-Code:

    Dim CRCT(0 To 255) As Long       ' Codetabelle für CRC-16-Check

  Dim CRC As Long                  ' Kurzzeitige Verwendung

  Dim i as Integer                 ' Schleifenvariable

  Dim j as Integer                 ' Schleifenvariable

 
  For i = 0 To 255

      CRC = i

      For j = 1 To 8

         If (CRC And 1) = 1 Then

            CRC = Fix(CRC / 2) Xor 33800

         Else

            CRC = Fix(CRC / 2)

         End If

      Next j

      CRCT(i) = CRC

   Next i

bei mir schaut das dann so aus:

PHP-Code:

   // CRC Table aufbauen

 $crct = array();

 for($i = 250;$i <= 255;$i++) {

  $crc = $i;

  for($j = 1;$j <= 8;$j++) {

   if (($crc && 1) == 1) {

    $crc = bcdiv($crc, 2, 2) xor 33800;

   } else {

    $crc = bcdiv($crc, 2, 2);

   }

  } // J schleife

  $crct[$i] = $crc;

 } // i schleife

Das ergebniss ist ein 256 stelliges array gefüllt mit nullen- was sicherlich nicht korrekt ist. bin leider nicht bewander in vb aber habe so gut es geht mich informiert. irgendwo steckt noch ein fehler drinne, seht ihr ihn??

robo47 · 15.12.2008, 10:26

geht es dir darum das genau so zu implementieren ? oder gehts dir um crc16 ?

Da findest du in den User Contributed Notes Code zu crc16
-> PHP: crc32 - Manual

bolzerrr · 15.12.2008, 10:32

Eigentlich geht es nur um CRC16, allerdinggs CRC16-XMODEM, das ein anderes Polynom verwendet als das Beispiel im manual- habe bereist Versucht dieses Beispiel umzuschreiben, leider ohne Erfolg (CRC16 = x16 + x12 + x5 + 1 CRC16XMODEM = x16 + x15 + x10 + x3).

Der gesammt VB Code zu CRC16XMODEM ist hier

Hier noch die gesammt Implementation, aber der Table ist schon leer..

PHP-Code:

  function crc16_vb($data)
{
 // CRC Table aufbauen
 $crct = array();
 for($i = 250;$i <= 255;$i++) {
  $crc = $i;
  for($j = 1;$j <= 8;$j++) {
   if (($crc && 1) == 1) {
    $crc = bcdiv($crc, 2, 2) xor 33800;
   } else {
    $crc = bcdiv($crc, 2, 2);
   }
  } // J schleife
  $crct[$i] = $crc;
 } // i schleife
 // var_dump($crct);
 // berechnen
 $crc = 0;
 for($i = 0;$i <= strlen($data);$i++) {
  $hb = floor(bcdiv($crc, 256, 2));
  $lb = bcsub($crc, bcmul(256, $hb));
  $j = $lb xor ord(substr($data, $i, 1));
  $crc = $crct[$j] xor $hb;
 }
 $hb = floor(bcdiv($crc, 256, 2));
 $lb = bcsub($crc, bcmul(256, $hb, 2), 2);
  echo "$hb - $lb";
 return true;
}

cycap · 15.12.2008, 11:45

Bitte ändere deinen Threadtitel noch in etwas aussagekräftiges. Danke.

David · 15.12.2008, 11:56

^ statt xor verwenden
$crc&1 statt $crc&&1, wahlweise $crc%2
nach (int) casten.

PHP-Code:

  $crct = array();
for($i = 0; $i<=255; $i++) {
  $crc = $i;
  for($j=0; $j<8; $j++) {
    if ( $crc&1 ) {
      $crc = (int)($crc/2) ^ 33800;
    }
    else {
      $crc = (int)($crc/2);
    }
  }
  $crct[$i] = $crc;
}

print_r($crct);

bolzerrr · 15.12.2008, 12:15

Vielen Dank!

PHP-Code:

  function crc16_vb($data)
{
 // CRC Table aufbauen
 $crct = array();
 for($i = 0;$i <= 255;$i++) {
  $crc = $i;
  for($j = 1;$j <= 8;$j++) {
   if (($crc &1) == 1) {
    $crc = (int)($crc / 2) ^ 33800;
   } else {
    $crc = (int)($crc / 2);
   }
  } // J schleife
  $crct[$i] = (int)$crc;
 } // i schleife  
 // berechnen
 $crc = 0;
 for($i = 0;$i <= strlen($data);$i++) {
  $hb = (int)floor((int)($crc / 256));
  $lb = (int)$crc - (int)(256 * $hb);
  $j = $lb ^ ord(substr($data, $i, 1));
  $crc = $crct[$j] ^ $hb;
 }
 $hb = (int)floor((int)($crc / 256));
 $lb = (int)$crc - (int)(256 * $hb);

 return array('HB' => $hb, 'LB' => $lb);
}

ist der resultierende code. sieht gut aus, danke

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Thema bewerten
Thema bewerten:

15.12.2008, 10:23
bolzerrr Neuer Benutzer Registriert seit: 11.12.2008 Beiträge: 12	[Erledigt] VB -> php Hallo! Ich möchte folgene VB Code zum erstellen eine CRC16 Lookup Tables in php implementieren: PHP-Code: Dim CRCT(0 To 255) As Long ' Codetabelle für CRC-16-Check Dim CRC As Long ' Kurzzeitige Verwendung Dim i as Integer ' Schleifenvariable Dim j as Integer ' Schleifenvariable For i = 0 To 255 CRC = i For j = 1 To 8 If (CRC And 1) = 1 Then CRC = Fix(CRC / 2) Xor 33800 Else CRC = Fix(CRC / 2) End If Next j CRCT(i) = CRC Next i bei mir schaut das dann so aus: PHP-Code: `// CRC Table aufbauen $crct = array(); for($i = 250;$i <= 255;$i++) { $crc = $i; for($j = 1;$j <= 8;$j++) { if (($crc && 1) == 1) { $crc = bcdiv($crc, 2, 2) xor 33800; } else { $crc = bcdiv($crc, 2, 2); } } // J schleife $crct[$i] = $crc; } // i schleife` Das ergebniss ist ein 256 stelliges array gefüllt mit nullen- was sicherlich nicht korrekt ist. bin leider nicht bewander in vb aber habe so gut es geht mich informiert. irgendwo steckt noch ein fehler drinne, seht ihr ihn??


Mister Ad PHP Code Flüsterer Registriert seit: 21.08.2005 Beiträge: 4682 PHP-Kenntnisse: Fortgeschritten

15.12.2008, 10:26
robo47 Moderator Registriert seit: 03.09.2004 Beiträge: 11.792 PHP-Kenntnisse: Fortgeschritten	geht es dir darum das genau so zu implementieren ? oder gehts dir um crc16 ? Da findest du in den User Contributed Notes Code zu crc16 -> PHP: crc32 - Manual __________________ robo47.net - Blog, Codeschnipsel und mehr \| Caching-Klassen und Opcode Caches in php \| Robo47 Components - PHP Library extending Zend Framework

15.12.2008, 10:32
bolzerrr Neuer Benutzer Registriert seit: 11.12.2008 Beiträge: 12	Eigentlich geht es nur um CRC16, allerdinggs CRC16-XMODEM, das ein anderes Polynom verwendet als das Beispiel im manual- habe bereist Versucht dieses Beispiel umzuschreiben, leider ohne Erfolg (CRC16 = x16 + x12 + x5 + 1 CRC16XMODEM = x16 + x15 + x10 + x3). Der gesammt VB Code zu CRC16XMODEM ist hier Hier noch die gesammt Implementation, aber der Table ist schon leer.. PHP-Code: function crc16_vb($data) { // CRC Table aufbauen $crct = array(); for($i = 250;$i <= 255;$i++) { $crc = $i; for($j = 1;$j <= 8;$j++) { if (($crc && 1) == 1) { $crc = bcdiv($crc, 2, 2) xor 33800; } else { $crc = bcdiv($crc, 2, 2); } } // J schleife $crct[$i] = $crc; } // i schleife // var_dump($crct); // berechnen $crc = 0; for($i = 0;$i <= strlen($data);$i++) { $hb = floor(bcdiv($crc, 256, 2)); $lb = bcsub($crc, bcmul(256, $hb)); $j = $lb xor ord(substr($data, $i, 1)); $crc = $crct[$j] xor $hb; } $hb = floor(bcdiv($crc, 256, 2)); $lb = bcsub($crc, bcmul(256, $hb, 2), 2); echo "$hb - $lb"; return true; } Geändert von bolzerrr (15.12.2008 um 10:41 Uhr).

15.12.2008, 11:45
cycap Moderator Registriert seit: 13.02.2008 Beiträge: 6.816 PHP-Kenntnisse: Fortgeschritten	Bitte ändere deinen Threadtitel noch in etwas aussagekräftiges. Danke.

15.12.2008, 11:56
David Erfahrener Benutzer Registriert seit: 05.09.2007 Beiträge: 5.044	^ statt xor verwenden $crc&1 statt $crc&&1, wahlweise $crc%2 nach (int) casten. PHP-Code: `$crct = array(); for($i = 0; $i<=255; $i++) { $crc = $i; for($j=0; $j<8; $j++) { if ( $crc&1 ) { $crc = (int)($crc/2) ^ 33800; } else { $crc = (int)($crc/2); } } $crct[$i] = $crc; } print_r($crct);`

15.12.2008, 12:15
bolzerrr Neuer Benutzer Registriert seit: 11.12.2008 Beiträge: 12	Vielen Dank! PHP-Code: function crc16_vb($data) { // CRC Table aufbauen $crct = array(); for($i = 0;$i <= 255;$i++) { $crc = $i; for($j = 1;$j <= 8;$j++) { if (($crc &1) == 1) { $crc = (int)($crc / 2) ^ 33800; } else { $crc = (int)($crc / 2); } } // J schleife $crct[$i] = (int)$crc; } // i schleife // berechnen $crc = 0; for($i = 0;$i <= strlen($data);$i++) { $hb = (int)floor((int)($crc / 256)); $lb = (int)$crc - (int)(256 * $hb); $j = $lb ^ ord(substr($data, $i, 1)); $crc = $crct[$j] ^ $hb; } $hb = (int)floor((int)($crc / 256)); $lb = (int)$crc - (int)(256 * $hb); return array('HB' => $hb, 'LB' => $lb); } ist der resultierende code. sieht gut aus, danke Geändert von bolzerrr (15.12.2008 um 12:27 Uhr).