VB6代码到PHP的转换

我目前正在进行一个项目，将VB6代码转换为PHP，我需要一些帮助。我想知道我对校验和函数的转换是否正确，因为我得到的值根本不准确

VB6代码：

Function CheckSum(St As String) As Long
 Dim A As Long, B As Long
 For A = 1 To Len(St)
     B = B + Asc(Mid$(St, A, 1))
 Next A
 CheckSum = B
End Function

到

PHP代码：

Function CheckSum($st)
{

For($a=0; $a<Count($st); $a++)
{
$B = $B + SubStr($st,$a,1);
}
return $B;
}

函数校验和（$st）
{
对于（$a=0；$a）
我想知道我的校验和转换是否正确，因为我得到的值根本不准确

如果结果不匹配-则转换不正确

我想知道我的校验和转换是否正确，因为我得到的值根本不准确

如果结果不匹配-则转换不正确。
您发布的VisualBasic
校验和
代码对字符串st的每个字符进行操作，并将其转换为其等效的Ansi代码（函数
Asc（）
）。此外，VB代码使用
Len（）
函数对字符串进行操作，而PHP代码使用的是对数组进行操作的
count（）
函数

为了在PHP中获得相同的结果，您需要使用类似的函数，例如with，这样您的校验和函数看起来像：

function CheckSum($st)
{
    for($a=0; $a<strlen($st); $a++)
    {
        $B = $B + ord(substr($st,$a, 1));
    }
    return $B;
}

函数校验和（$st）
{
对于（$a=0；$a您发布的VisualBasic
checksum
代码对字符串st的每个字符进行操作，并将其转换为其等效的Ansi代码（
Asc（）
函数）。此外，VB代码使用
Len（）
函数对字符串进行操作，而PHP代码使用的是
count（）
函数，在阵列上运行

为了在PHP中获得相同的结果，您需要使用类似的函数，例如with，这样您的校验和函数看起来像：

function CheckSum($st)
{
    for($a=0; $a<strlen($st); $a++)
    {
        $B = $B + ord(substr($st,$a, 1));
    }
    return $B;
}

函数校验和（$st）
{
对于（$a=0；$aUse小写：“函数…”而不是“函数…”使用小写：“函数…”而不是“函数…”@user765071:那又怎样？你问转换是否正确-我回答：不，它不正确。@user765071:我还将粗体回答：不，它不正确，因为结果不正确MATCH@user765071：那又怎样？你问转换是否正确-我回答：不，它不正确。@user765071:我还将加粗我的回答：不，它不正确。@user765071CT，因为结果不匹配