Convert VB6 Function to PHP 1

[three57m]

Can anyone assist with converting this VB6 function to PHP

Private Function GenerateKeyNumber(MyName as String) As Long
    Dim i As Integer
    Dim S As String * 1
    Dim key As Long
    key = 0
    For i = 1 To Len(MyName)
        S = Mid(MyName, i, 1)
        key = key + Asc(S)
    Next i
    GenerateKeyNumber = Int(key * 14)
End Function

 

[three57m]

here is what i have pieced together so far:

function generatekey()
$i=1;
$key=0;
$myn=strlen(MyName);
do
	{
$onechar = substr(MyName,$i,1);
$key = $key + ord($onechar);
$i++;
while($i<=$myn)
$mykeynumber = $key * 14
}

 

[jpadie]

function generateKey($name){
 $return = 0;
 for($i=0; $i< strlen($name); $i++){
   $return = $return + ord($name[$i}];
 }
 return intval($return * 14);
}