Dificuldade ao converter função de ASP para PHP

Function Criptografar(Senha As String) As String

Dim HValor, JValor As String
Dim A, i, B As Integer

A = 1
For i = 1 To Len(Senha)
B = Asc(Mid("LOLA", A, 1))
A = A + 1
Mid(Senha, i, 1) = Chr(Asc(Mid(Senha, i, 1)) Xor B)
If A > 5 Then
A = 1
End If

Next

HValor = ""
For i = 1 To Len(Senha)
JValor = Hex(Asc(Mid(Senha, i, 1)))
If Len(JValor) = 1 Then JValor = "0" + JValor
HValor = HValor + JValor
Next

Criptografar = Format(Len(HValor), "00") + HValor

End Function

Estou tendo muitas dificuldades para botar esse código que tá em ASP para PHP, bom dia. desde ja agradeço