谁帮帮我把这asp BASE_64 啊代码转换为php啊

Question

谁帮帮我把这asp代码转换为php啊<%
     OPTION EXPLICIT
     const BASE_64_MAP_INIT =
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
     dim nl
     ' zero based arrays
     dim Base64EncMap(63)
     dim Base64DecMap(127)     ' must be called before using anything else
     PUBLIC SUB initCodecs()
          ' init vars
          nl = "<P>" & chr(13) & chr(10)
          ' setup base 64
          dim max, idx
             max = len(BASE_64_MAP_INIT)
          for idx = 0 to max - 1
               ' one based string
               Base64EncMap(idx) = mid(BASE_64_MAP_INIT, idx + 1, 1)
          next
          for idx = 0 to max - 1
               Base64DecMap(ASC(Base64EncMap(idx))) = idx
          next
     END SUB     ' encode base 64 encoded string
     PUBLIC FUNCTION base64Encode(plain)          if len(plain) = 0 then
               base64Encode = ""
               exit function
          end if          dim ret, ndx, by3, first, second, third
          by3 = (len(plain) \ 3) * 3
          ndx = 1
          do while ndx <= by3
               first  = asc(mid(plain, ndx+0, 1))
               second = asc(mid(plain, ndx+1, 1))
               third  = asc(mid(plain, ndx+2, 1))
               ret = ret & Base64EncMap(  (first \ 4) AND 63 )
               ret = ret & Base64EncMap( ((first * 16) AND 48) + ((second \ 16)
AND 15 ) )
               ret = ret & Base64EncMap( ((second * 4) AND 60) + ((third \ 64)
AND 3 ) )
               ret = ret & Base64EncMap( third AND 63)
               ndx = ndx + 3
          loop
          ' check for stragglers
          if by3 < len(plain) then
               first  = asc(mid(plain, ndx+0, 1))
               ret = ret & Base64EncMap(  (first \ 4) AND 63 )
               if (len(plain) MOD 3 ) = 2 then
                    second = asc(mid(plain, ndx+1, 1))
                    ret = ret & Base64EncMap( ((first * 16) AND 48) +
((second \
16) AND 15 ) )
                    ret = ret & Base64EncMap( ((second * 4) AND 60) )
               else
                    ret = ret & Base64EncMap( (first * 16) AND 48)
                    ret = ret & "="
               end if
               ret = ret & "="
          end if          base64Encode = ret
     END FUNCTION     ' decode base 64 encoded string
     PUBLIC FUNCTION base64Decode(scrambled)          if len(scrambled) = 0 then
               base64Decode = ""
               exit function
          end if          ' ignore padding
          dim realLen
          realLen = len(scrambled)
          do while mid(scrambled, realLen, 1) = "="
               realLen = realLen - 1
          loop
          dim ret, ndx, by4, first, second, third, fourth
          ret = ""
          by4 = (realLen \ 4) * 4
          ndx = 1
          do while ndx <= by4
               first  = Base64DecMap(asc(mid(scrambled, ndx+0, 1)))
               second = Base64DecMap(asc(mid(scrambled, ndx+1, 1)))
               third  = Base64DecMap(asc(mid(scrambled, ndx+2, 1)))
               fourth = Base64DecMap(asc(mid(scrambled, ndx+3, 1)))
               ret = ret & chr( ((first * 4) AND 255) +   ((second \ 16) AND 3)
)
               ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND
15) )
               ret = ret & chr( ((third * 64) AND 255) +  (fourth AND 63) )
               ndx = ndx + 4
          loop
          ' check for stragglers, will be 2 or 3 characters
          if ndx < realLen then
               first  = Base64DecMap(asc(mid(scrambled, ndx+0, 1)))
               second = Base64DecMap(asc(mid(scrambled, ndx+1, 1)))
               ret = ret & chr( ((first * 4) AND 255) +   ((second \ 16) AND 3)
)
               if realLen MOD 4 = 3 then
                    third = Base64DecMap(asc(mid(scrambled,ndx+2,1)))
                    ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND
15) )
               end if
          end if          base64Decode = ret
     END FUNCTION' initialize
     call initCodecs' Testing code
'    dim inp, encode
'    inp = request.QueryString("input")
'    encode = base64Encode(inp)
'    response.write "Encoded value = " & encode & nl
'    response.write "Decoded value = " & base64Decode(encode) & nl
%>我也知道php自带这个功能，但是，我需要用来改编用一用

Answer 1

Base64算法原理
Base64算法将输入的字符串或一段数据编码成只含有{''A''-''Z'', ''a''-''z'', ''0''-''9'', ''+'', ''/''}这64个字符的串，''=''用于填充。其编码的方法是，将输入数据流每次取6 bit，用此6 bit的值(0-63)作为索引去查表，输出相应字符。这样，每3个字节将编码为4个字符(3×8 → 4×6)；不满4个字符的以''=''填充。依次原理自己编写程序就是了$dict = "=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";$in = 'abcd123';
echo base64_encode($in), PHP_EOL;$ar = array_chunk(unpack('C*', $in), 3);
foreach($ar as $r) {
  $t[] = $r[0] >> 2;
  $t[] = (($r[0] & 0x03) << 4) | (isset($r[1]) ? ($r[1] & 0xf0) >> 4 : 0);
  $t[] = isset($r[1]) ? ((($r[1] & 0x0f) << 2) | (isset($r[2]) ? ($r[2] & 0xc0) >> 6 : 0)) : -1;
  $t[] = isset($r[2]) ? $r[2] & 0x3f : -1;
}
$s = '';
foreach($t as $v) $s .= $dict{$v+1};
echo $s;YWJjZDEyMw==
YWJjZDEyMw==

Answer 2

这样更规范点
$dict = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";$in = 'abcd123';for($i=0,$j=0; $i<strlen($in); $i++) {
  $n = ord($in{$i});
  switch($i % 3) {
    case 0:
      $t[$j++] = $n >> 2;
      $t[$j] = ($n & 0x03) << 4;
      break;
    case 1:
      $t[$j++] |= ($n & 0xf0) >> 4;
      $t[$j] = ($n & 0x0f) << 2;
      break;
    case 2:
      $t[$j++] |= $n >> 6;
      $t[$j++] = $n & 0x3f;
  }
}
$s = '';
foreach($t as $v) $s .= $dict{$v};
if($n = strlen($s) % 4) $s .= str_repeat('=', 4 - $n);
echo $s, PHP_EOL;