请问高人，能否将下面VB代码转成PHP代码呢？

Private Sub ASCII2Bin(ByVal bit() As Byte, ByRef abyte() As Byte)
  Dim i As Integer, j As Integer
  For i = 0 To 7
  For j = 0 To 7
  abyte(i * 8 + j) = (bit(i) \ (2 ^ (7 - j))) And &H1
  Next
  Next
  End Sub

function ASCII2Bin($bit, $abyte) {
  for ($i=0; $i<=7; $i++) {
  for ($j=0; $j<=7; $j++) {
  abyte[$i * 8 + $j] = (bit[$i] \ (2 ^ (7 - $j))) & 0xH1
  }
  }
}

function ASCII2Bin($bit, &$abyte) {
  for ($i=0; $i<=7; $i++) {
  for ($j=0; $j<=7; $j++) {
  abyte[$i * 8 + $j] = (bit[$i] \ (2 ^ (7 - $j))) & 0xH1
  }
  }
}