请帮忙把一个VB function转为php，谢谢！

Question

这个function的功能是判断一段文字中是否含有BIG5码汉字,可用做内码的自动识别
返回True表示包含BIG5码

Answer 1

Function  CheckBIG(strSource  As  String) As Boolean
Dim  idx  As  Long
Dim  ByteTemp()  As  Byte
CheckBIG = False
For  idx = 1 To Len(strSource)
   ByteTemp=StrConv(Mid(strSource,idx,1),vbFromUnicode)
   If UBound(ByteTemp) > 0  Then
        If   ByteTemp(1) >= 64 And ByteTemp(1) <= 126 Then
            CheckBIG = True
            Exit For
        End If
   End If
Next
End Function